如何验证日期输入是否正确?
如何验证日期输入是否正确?
发布时间:2016-12-29 来源:查字典编辑
摘要:千花飞舞之日期验证请输入所要查询的日期:[1]

<%

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">

<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="">

<>

</Script>

<%

Else

%>

<Script Language="">

<>

</Script>

<%

End If

End If

%>

</body></html>

[1]

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新编程10000问学习
热门编程10000问学习
编程开发子分类