如何验证日期输入是否正确？

这里是一个经典的ASP日期验证示例，直接贴出完整的代码，包含HTML表单和后端处理逻辑。核心思路很简单：用户输入一个日期字符串，服务端尝试用CDate转换，如果转换成功则跳转到另一个页面处理，否则弹出提示让用户重新输入。代码中注释部分已经比较清晰，稍作润色让它更自然一点。

<%
Option Explicit
Dim strDate       ' 记录输入的日期（字符型）
Dim datDate       ' 测试输入的日期是否正确（日期型）
%>








" METHOD="POST">

  

    

      

        
 
          
 
        
        
 
          
 
            

              请输入所要查询的日期: 
              " 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
%>

[1]