ASP只能输入小数或整数的正则表达式

[QUOTE]<%
function CheckPattern(str,pat)
set r=new regexp
r.Pattern=pat
r.IgnoreCase=false
r.Global=false
if r.Test(str) then
CheckPattern=true
else
CheckPattern=false
end if
end Function

const Reg_PatNum = "^\d+(\.{1}\d+)?$"

Dim myNum
myNum = Request("myNum")
Response.Write(CheckPattern(myNum,Reg_PatNum))
%>[/QUOTE]

[此贴子已经被作者于2007-3-22 8:43:46编辑过]

谢谢了.