public string check_number(string num_str)        {            num_str = num_str.Trim();            if (...

<% functioncheckisUrl(tmpString)   dimc,i   checkisUrl=true   tmpString=Lcase(trim(tmpString))   ifleft(tmpString,7)<>"http://"thentmpString="http://"&tmpString   fori=8toLen(checkisUrl)   &nb...

第一种办法：<%FunctionIsValidEmail(Email)ValidFlag=FalseIf(Email<>"")And(InStr(1,Email,"@")>0)And(InStr(1,Email,".")>0)ThenatCount=0SpecialFlag=FalseForatLoop=1ToLen(Email)atChr=Mid(Email,atLoop,1)IfatChr="@"ThenatCount=atCount+1If(atChr>=Chr(32))And(atChr<=Chr(44))ThenSpecialFlag=Tru...