ITPub博客

首页 > 应用开发 > IT综合 > 利用On Error Resume Next来验证日期的输入(ASP 3.0) (转)

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

原创 IT综合 作者:worldblog 时间:2007-12-08 11:16:12 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="<% = Request.ServerVariables("SCRIPT_NAME") %>" 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/10752043/viewspace-989796/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 千年零一虫 (转)
请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2405527