日付の入力が正しいかどうかを検証しますか?
<%Option ExplicitDim streDate ' 入力した日付を記録します。文字型?Dim datDate ' 入力した日付が正しいかどうかをテストします。日付型.<>千花が舞う日付は<title><meta http-equiv="Content-Type"content="text/";charset=gb 2312"<>link rel="styless heet"href="./Css/export.css"type="text/css"></head><body text="Form name="InputDate"ACTIION="="=Request.Server."NAME「%」""METHOD="POST"<テーブルwidth="500"border="1"cell lpadding="0"celspacing="0"align="センター"> <tr> <td background=「./Pic/b.jpg」 <table width="500"border="0"cell padding="4"celspacing="4"class="9 p" <tr> <td colspan=「2」td> </tr> <tr> <td colspan=「2」height=「60」 <div align=「センター」はクエリーの日付を入力してください。 <input type=「text」name=「streDate」value=「%=Cstr(Now)」-「&Cstr(Now)」-「&Cstr(Now)%」「&Cstr(Day(Now)」」=「10」maxlength=「10」 </div> </td> </tr> <tr> <td width=「50%」 <div align=「センター」 <input type=「submit」name=「Submit」value=「確認」 </div> </td> <td> <div align=「センター」 <input type=「リセット」name=「Submit 2」value=「キャンセル」 </div> </td> </tr> </テーブル </td> </tr></table></Form><%stredate=Request.Form(「streDate」)If streDate<>「The」The n On Error Resume Next dat Date=CDate(strate) If Errr.Number=0 Then%<ScriptLanguage=「javascript」><!-- InputDate.action=「Type Alert.asp」 InputDate.submit()/-</Script><% Else%<ScriptLanguage=「javascript」><!-- alert(「あ、入力の日付が間違っています。もう一度入力してください。」)/--</Script><% End IfEnd If%</ body></> [1)