您现在的位置是:网站首页> 编程资料编程资料

如何验证日期输入是否正确?_编程10000问_

2023-05-25 321人已围观

简介 如何验证日期输入是否正确?_编程10000问_

<%
Option Explicit
Dim strDate           

' 记录输入的日期,字符型.
Dim datDate           

' 测试输入的日期是否正确,日期型.


%>

</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: ''; mso-hansi-font-family: ''; mso-bidi-font-size: 9.0pt">千花飞舞之日期验证</span><span lang="EN-US" style="FONT-FAMILY: ''; mso-bidi-font-size: 9.0pt">






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

 

[1]

-六神源码网