| |
<%
aData = Split( Request.QueryString( "In1001" ), ", " )
' この条件が成立するのは初期画面です
if Ubound( aData ) < 2 then
Redim aData(2)
end if
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Shift_JIS">
</HEAD>
<BODY>
<FORM method="GET">
<INPUT
type=text
name=In1001
value="<%= aData(0) %>"
>
<INPUT
type=text
name=In1001
value="<%= aData(1) %>"
>
<INPUT
type=text
name=In1001
value="<%= aData(2) %>"
>
<INPUT type=submit value="送信">
</FORM>
<PRE>
<%
For i = 1 to Request.QueryString("In1001").Count
Response.Write Request.QueryString("In1001")(i) & vbCrLf
Next
Response.Write vbCrLf
Response.Write Request.QueryString
%>
</PRE>
</BODY>
</HTML>
| |
