利用On Error Resume Next来验证日期的输入(ASP 3.0) (转)

利用On Error Resume Next来验证日期的输入(ASP 3.0) (转)[@more@]豆豆

刚才又有人问到用 Javascript来验证日期，回想起自己写了一堆 函数来验证日期，而且还没有涉及到闰年的问题，近来看
到 ASP 3.0关于On Error Resume Next的用法，灵机一动，嘿嘿……。真爽呀！
Option Explicit
Dim strDate  '记录输入的日期，字符型
Dim datDate  '测试输入的日期是否正确，日期型
%>

日期选择






RM name="InputDate" ACTION="" METHOD="POST">

请输入所要查询的日期：   & "-" & Cstr(Day(Now()))%>" size="10" maxlength="10">

strDate = Request.Form("strDate")
If strDate <> "" Then
  On Error Resume Next
  datDate = CDate(strDate)
  If Err.Number = 0 Then
%>

  Else
%>

  End If
End If
%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10790690/viewspace-956947/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10790690/viewspace-956947/