如何验证日期输入是否正确？
<%
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]
编程语言
- 如何快速学会编程 如何快速学会ug编程
- 免费学编程的app 推荐12个免费学编程的好网站
- 电脑怎么编程：电脑怎么编程网咯游戏菜单图标
- 如何写代码新手教学 如何写代码新手教学手机
- 基础编程入门教程视频 基础编程入门教程视频华
- 编程演示：编程演示浦丰投针过程
- 乐高编程加盟 乐高积木编程加盟
- 跟我学plc编程 plc编程自学入门视频教程
- ug编程成航林总 ug编程实战视频
- 孩子学编程的好处和坏处
- 初学者学编程该从哪里开始 新手学编程从哪里入
- 慢走丝编程 慢走丝编程难学吗
- 国内十强少儿编程机构 中国少儿编程机构十强有
- 成人计算机速成培训班 成人计算机速成培训班办
- 孩子学编程网上课程哪家好 儿童学编程比较好的
- 代码编程教学入门软件 代码编程教程