<PRE>
<%
if Request.QueryString("Date") = "" then
strDate = Date()
else
strDate = Request.QueryString("Date")
end if
Response.Write Request.QueryString("Date") & vbCrLf
Response.Write CLng(DateValue(strDate)) & vbCrLf
%>
</PRE>
<FORM>
<OBJECT
NAME=Date
CLASSID='CLSID:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1'
style='width:120;height:26'
>
<PARAM name="CurrentDate" value="<% = CLng(DateValue(strDate)) %>">
</OBJECT>
<br>
<INPUT type=submit value="送信">
</FORM>
|