ASP判断字符串是否为数值型或全数字 <% '判断字符串是否为数值型或全数字【凌陈亮（QQ：57404811）】 '参数：返回类型（0：返回提示信息，其它：返回值），验证类型（0：数值型验证，其它：全数字不包括小数点验证），验证字符串，提示信息，跳转页面地址 function checknum(typ,typ2,str,msg,url) dim f_return : f_return=0 'false if len(str)<1 or isnumeric(str)=false then if typ=0 then call alert(msg,url) end if if typ2=0 then '数值型验证 if len(str)>0 and isnumeric(str)=true and typ<>0 then f_return=1 'true else '全数字不包括小数点验证 if len(str)>0 and isnumeric(str)=true then dim re : set re=New RegExp '建立正则表达式 re.Pattern="\D" '设置模式，即建立正则式规则 re.Global=False '设置全局可用性 re.Ignorecase=True '设置是否区分字符大小写 re.MultiLine=False '设置多行标记可用性 if re.test(str)=true then '执行搜索测试 if typ=0 then call alert(msg,url) else if typ<>0 then f_return=1 'true end if end if end if if typ<>0 then checknum=f_return end function sub alert(msg,url) response.write("") & vbcrlf response.end() end sub %> 调用案例： 1、判断是否为数值型，且弹出提示并返回上一页 <% call checknum(0,0,price,"价格必须为数值！","javascript:window.history.back();") %> 2、判断是否为纯数字，且弹出提示并返回指定页面 <% call checknum(0,1,id,"ID号必须为纯数字！","product.asp") %> 3、以 判断是否为数值型 为条件来执行其他语句 <% if checknum(1,0,price,"","")=1 then '返回类型为1则表示函数获取返回值（1：true，0：false） 其他语句。。。 end if %> 4、以 判断是否为纯数字 为条件来执行其他语句 <% if checknum(1,1,id,"","")=1 then '返回类型为1则表示函数获取返回值（1：true，0：false） 其他语句。。。 end if %> JavaScript例子