如何验证日期输入是否正确?
我们可以利用ASP 3.0里的On Error Resume Next来完成这项功能:
<%
Option Explicit
Dim strDate
' 记录输入的日期,字符型
Dim datDate
' 测试输入的日期是否正确,日期型
%>
精彩春风之日期验证
<%
strDate = Request.Form("strDate")
If strDate <> "" Then
On Error Resume Next
datDate = CDate(strDate)
If Err.Number = 0 Then
%>
<%
Else
%>
<%
End If
End If
%>