asp如何验证日期输入是否正确？
发布时间：2010-06-10 18:38:00
如何验证日期输入是否正确？
我们可以利用ASP 3.0里的On Error Resume Next来完成这项功能：
<％
Option Explicit
Dim strDate
' 记录输入的日期,字符型
Dim datDate
' 测试输入的日期是否正确,日期型
<html>
％>
<head>
<title>日期验证 - asp之家</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>
0
投稿猜你喜欢
很多现代的浏览器在地址栏的右边有个搜索框，默认的安装有 Google 搜索等。如下图所示：其实这是 OpenSearch 的一个应用，只要编- MySQL是一个跨平台的开源关系型数据库管理系统，是我们常用的最经济实惠的数据库，由于其体积小、速度快、总体拥有成本低，尤其是开放源码这一特
- 一、如何理解本条内容:一个“简单”和“复杂”的例子在我和开发人员沟通一个项目需求的时候，他们频频慨叹Mockup的设计所考虑情况之细致，很多
- 下面通过对比来看看ASP中3种分页显示的性能，执行效率。一，使用存储过程分页，这种情况又分为两种方式：第一种，使用command对象，如下：
- 使用jmail组件发送邮件：Function JMail(Send_From,Send_To,Send_Subject,Send_
- 我在Web服务器端安装了Web Server IIS4.0、Oracle Net8 for Client，并创建好了和Oracle8数据库的
- # 建表CREATE TABLE `T_TEST` ( `Id` int(11) NOT NULL AUTO_INCREMENT
- 代码如下:<％ class MyClass Dim var '公共变量必须使
- 昨天在书友会上讨论信息分类和方法，有位朋友问：“大家现在讨论的还是几年前那套web2.0的东西，有没有一些新的东西可以分享？”我当时确实感觉
- 我设计第一篇网页的时候，就遇到了字体的设置问题。我发现如果用软件约定的字体大小，则显示效果会很难看的。我是用FrontPage2000作网页
- 设法让用户happy吧～只要你的设计让用户乐了，产品的个性就得到了一次彰显，而用户对网站的情感就会获得一次升华，看看下面的知名网站的人性化设
- tips：如果根目录下有favicon.ico，可省去<link rel="shortcut icon" ...&
- 到了今天，数据库已经成了网站的灵魂，可以说，没有对数据进行集中管理就算不上是一个真正的网站。而ASP加数据库，更成了主流中的主流，网站里的用
- 从今天开始起，基督山将和大家一起进入ASP.net 诸多程序的学习中，老实说，.net到底是法宝还是垃圾，我们拭目以待。有任何问题，联络基督
- 网页设计是由很多个不同的元素构成的,而这些元素的重要性都不同,并且有些元素还需要尤为的突出.有些元素彼此之间存在着联系,而另外的元素之间则一
- 介绍：细处着手，巧处用功。高手和菜鸟之间的差别就是：高手什么都知道，菜鸟知道一些。电脑小技巧收集最新奇招高招，让你轻松踏上高手之路。 摘要
- 在应用SA-FileUp时，必须确认用户已对目的路径有读、写、删除的权力。在多文件上传中，由于浏览器不支持SIZE= 属性，所以对多文件的情
- 在网站建设中，分类算法的应用非常的普遍。在设计一个电子商店时，要涉及到商品分类；在设计发布系统时，要涉及到栏目或者频道分类；在设计软件下载这
- Hello, 大家好，又是我~ 大家有看过font set和一些要注意的基本问题以及通用字体族两篇文章后，应该对字体的基本有了一些了解。现
- 姓名的翻译： 英语是名(First name)在前，姓(Last name)在后。中文地址的翻译：如果你英语水平不高，填表时只要国家名用英语
