繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 编程10000问 > 如何验证日期输入是否正确？
- 编程10000问
- 如何计算下载一个文件需要多长时间？
- 如何检测用户第一次访问我的网站并显示友好信息？
- 如何判断URL格式是否符合规范？
- 如何取得服务器上的用户组列表？
- 如何显示数据库的结构？
- 如何显示最后十名来访者？
- 如何显示随机信息？
- 如何向前端推送用户请求的信息？
- 如何修改被表单引用的ASP页面？
- 如何验证IP地址？
- 如何用ASP建立Index Server查询对象并为其参数赋值？
- 如何用ASP输出HTML文件？
- 如何用表单的方式推送请求的信息？
- 如何远程读取数据库页面？
- 如何在ASP里显示进度条？
- 如何自动更新导航栏？
- 如何阻止别人非法链接你网站的图片？
- 怎样获知数据库的连接属性？
- 如何按时间显示最新标志
- 禁止站外提交表单(author:killer)
编程10000问 中的 如何验证日期输入是否正确？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 29 ::
收藏到网摘: n/a
<%
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 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>
[1]
评论 (0) All
