 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
刚才又有人问到用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> 返回类别: 教程 上一教程: FILESYSTEMOBJECT组件 下一教程: ASP获取机器的网络属性配置 您可以阅读与"利用ON ERROR RESUME NEXT来验证日期的输入"相关的教程: · 利用SQL SERVER存储过程实现ASP用户身份验证 · 利用SMTP和ASP发送CDONTS电子邮件 · 利用PAGE.ISPOSTBACK属性保持用户输入的FRAMEWORK · 直接显示"Monday"等星期的ASP语句 · 利用CDONTS发送邮件的ASP函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
