<%
dim i
i=cdbl(num.text)
%><table width="400" border="0" cellpadding="0" cellspacing="0">
<tr><%
dim j
for j=1 to i
%>
<tr><td>
<input name="movie"&j value="" >
</td></tr>
<%
next
%>
</table><%
dim glb_cn
dim sql
dim cnn
set glb_cn=SERVER.CreateObject("ADODB.Connection")
cnn="connectionstring"
OA_CONN.OPEN Conn
sql="insert语句"Glb_Cn.BeginTrans
for j=1 to i
glb_cn.execute(sql)
next
Glb_Cn.CommitTrans
%>