isvalid.asp

私密信息系统-PrivNote System v20080719 很好用的大家试试看

<%
Dim re2,re5,reTime
Set re2 = new RegExp
Set re5 = new RegExp
Set reTime = new RegExp
re2.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"'判断EMAIL地址是否正确
re5.pattern = "^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2}) (\d{1,2}):(\d{1,2}):(\d{1,2})$"'判断日期时间格式
reTime.pattern = "^((((1[6-9]|[2-9]\d)\d{2})-(0?[13578]|1[02])-(0?[1-9]|[12]\d|3[01]))|(((1[6-9]|[2-9]\d)\d{2})-(0?[13456789]|1[012])-(0?[1-9]|[12]\d|30))|(((1[6-9]|[2-9]\d)\d{2})-0?2-(0?[1-9]|1\d|2[0-8]))|(((1[6-9]|[2-9]\d)(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00))-0?2-29-))$"'判断时间YYYY-MM-DD格式
%>