帝国软件
  设为首页 加入收藏 关于我们
 
解密帝国网站管理系统
栏 目:
 
您的位置:首页 > 技术文档 > ASP编程
利用On Error Resume Next来验证日期的输入
作者:佚名 发布时间:2005-04-02 来源:不详
 

刚才又有人问到用JavaScript来验证日期,回想起自己写了一堆函数来验证日期,而且还没有涉及到闰年的问题,近来看到ASP 3.0关于On Error Resume Next的用法,灵机一动,嘿嘿……。真爽呀!
<%
Option Explicit
Dim strDate '记录输入的日期,字符型
Dim datDate '测试输入的日期是否正确,日期型<html>
%>
<head>
<title>日期选择</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Css/export.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<Form name="InputDate" ACTION="<% = Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST">
<table width="500" border="1" cellpadding="0" cellspacing="0" align="center">
<tr>
<td background="../Pic/br.jpg">
<table width="500" border="0" cellpadding="4" cellspacing="4" class="9p">
<tr>
<td colspan="2">?</td>
</tr>
<tr>
<td colspan="2" height="60">
<div align="center">请输入所要查询的日期:
<input type="text" name="strDate" value="<% = Cstr(Year(Now())) & "-" & Cstr(Month(Now())) & "-" & Cstr(Day(Now()))%>" size="10" maxlength="10">
</div>
</td>
</tr>
<tr>
<td width="50%">
<div align="center">
<input type="submit" name="Submit" value="确 认">
</div>
</td>
<td>
<div align="center">
<input type="reset" name="Submit2" value="取 消">
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</Form>
<%
strDate = Request.Form("strDate")
If strDate <> "" Then
On Error Resume Next
datDate = CDate(strDate)
If Err.Number = 0 Then
%>
<Script Language="JavaScript">
<!--
InputDate.action="TypeAlert.asp"
InputDate.submit()
//-->
</Script>
<%
Else
%>
<Script Language="JavaScript">
<!--
alert ("你输入的日期不正确,请重新输入!")
//-->
</Script>
<%
End If
End If
%>
</body>
</html>

 
  
评论】【加入收藏夹】【 】【打印】【关闭
※ 相关链接
 ·利用索引服务(Indexing Service)  (2005-04-02)
 ·利用ASP制作EXECL报表方法  (2005-04-02)
 ·利用ISAPI实现向数据库中添加记录  (2005-04-02)
 ·利用ADSI对IIS进行编程  (2005-04-02)
 ·利用cookie收藏网站  (2005-04-02)
 ·如何利用ASP给主页加密  (2005-04-02)
 ·利用Flash+ASP联合打造投票程序  (2005-04-02)
 ·利用ASP实现对表的分页浏览  (2005-04-02)
 ·利用ASP改进文档上载控件!  (2005-04-02)
 ·利用网址传送资料  (2005-04-02)

   栏目导行
  PHP编程
  ASP编程
  ASP.NET编程
  JAVA编程
   站点最新
·致合作伙伴的欢迎信
·媒体报道
·帝国软件合作伙伴计划协议
·DiscuzX2.5会员整合通行证发布
·帝国CMS 7.0版本功能建议收集
·帝国网站管理系统2012年授权购买说
·PHPWind8.7会员整合通行证发布
·[官方插件]帝国CMS-访问统计插件
·[官方插件]帝国CMS-sitemap插件
·[官方插件]帝国CMS内容页评论AJAX分
   类别最新
·在ASP中使用数据库
·使用ASP脚本技术
·通过启动脚本来感受ASP的力量
·学习使用ASP对象和组件
·解析asp的脚本语言
·初看ASP-针对初学者
·ASP开发10条经验总结
·ASP之对象总结
·ASP与数据库应用(给初学者)
·关于学习ASP和编程的28个观点
 
关于帝国 | 广告服务 | 联系我们 | 程序开发 | 网站地图 | 留言板 帝国网站管理系统