%
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">nbsp;/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]
您可能感興趣的文章:- javascript日期驗證之輸入日期大于等于當前日期
- php提取身份證號碼中的生日日期以及驗證是否為成年人的函數
- C#驗證給定字符串形式日期是否合法的方法
- C#中判斷、驗證字符串是否為日期格式的實現代碼
- jquery validate 自定義驗證方法介紹 日期驗證
- JS驗證日期的格式YYYY-mm-dd 具體實現
- Winform之TextBox輸入日期格式驗證yyyy-mm-dd
- javascript 驗證日期的函數
- JS 日期驗證正則附asp日期格式化函數
- 兩行代碼輕松搞定JavaScript日期驗證
