IDC资讯中心
刚才又有人问到用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>
