日付の入力が正しいかどうかを検証しますか?


<%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)