第一种办法：<%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...
http://www.jb51.net//article/4780.htm
<%OptionExplicitDimstrDate '记录输入的日期,字符型.DimdatDate '测试输入的日期是否正确,日期型.<html>%><head><title>千花飞舞之日期验证</title><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"><linkrel="stylesheet...
http://www.jb51.net//article/4753.htm
共有:2/10，当前1/1页
[首页] [上一页]
1
[下一页] [尾页]
转到：