版本：草原二手市场V1.1
本程序作者：mysql QQ:54016224 TEL:13036133798
-->
function toValidChar(char)
char = replace(char,"'","")
char = replace(char,"and","")
char = replace(char,"or","")
char = replace(char,"if","")
char = replace(char," char = replace(char,"","")
char = replace(char,"=","")
char = replace(char,"update","")
char = replace(char,"delete","")
char = replace(char,"drop","")
toValidChar = char
end function
function isNum(num)
if isnumeric(num) then
isNum = true
else
isNum = false
end if
end function
sub gotoUrl(url)
response.redirect (url)
end sub
function checkEmail(str)
set reg = new RegExp
pattern = "^[a-zA-Z0-9_]+[@][a-zA-Z0-9_]+([.][a-zA-Z]{2,3}){1,}$"
with reg
.Global = true
.IgnoreCase = true
.Pattern = pattern
checkEmail = .test(str)
end with
end function
%>
