利用On Error Resume Next來驗證日期的輸入(ASP 3.0) (轉)[@more@]豆豆

剛才又有人問到用script來驗證日期，回想起自己寫了一堆來驗證日期，而且還沒有涉及到閏年的問題，近來看
到 3.0關於On Error Resume Next的用法，靈機一動，嘿嘿……。真爽呀！
Option Explicit
Dim strDate '記錄輸入的日期，字元型
Dim datDate '測試輸入的日期是否正確，日期型
%>

日期選擇

" 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
%>

<!--   InputDate.action="TypeAlert.asp"   InputDate.submit() //--&gt

Else
%>

<!--   alert ("你輸入的日期不正確，請重新輸入！") //--&gt

End If
End If
%>

利用On Error Resume Next來驗證日期的輸入(ASP 3.0) (轉)

相關文章