ASP
这段代码错在哪里？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区sql="select * from kehuset1"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
outstr="<FORM name=forma action=access.asp method=post>"
For I=0 to rs.fields.count-1
tab1=tab1&"<td>"&rs.fields(i).name&"</td>"'(注释：前面的有获取表单元素个数的，和此差不多。Request.form.count)
Next
outstr=outstr & "<TR>"&tab1&"</TR>"
for I=0 to rs.fields.count-1
tab2=tab2&"<td><INPUT class=p1 name=t1" & i & " size=8 value=" & chr(34) &rs.fields(i).value & chr(34) & "></td>"
next
outstr=outstr&"<tr>"&tab2&"</tr></form>"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
for i=1 to rs.fields.count-1
title=title&rs.fields(i).name&","
values=values&"'"&request.form("ti"&i)&"'"&","
next
response.write title&"<br>"
response.write values&"<br>"
response.end
sql="insert into kehuset1 (title) values(values)"
Set RS=Conn.Execute(sql)
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
outstr="<FORM name=forma action=access.asp method=post>"
For I=0 to rs.fields.count-1
tab1=tab1&"<td>"&rs.fields(i).name&"</td>"'(注释：前面的有获取表单元素个数的，和此差不多。Request.form.count)
Next
outstr=outstr & "<TR>"&tab1&"</TR>"
for I=0 to rs.fields.count-1
tab2=tab2&"<td><INPUT class=p1 name=t1" & i & " size=8 value=" & chr(34) &rs.fields(i).value & chr(34) & "></td>"
next
outstr=outstr&"<tr>"&tab2&"</tr></form>"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,3,2
for i=1 to rs.fields.count-1
title=title&rs.fields(i).name&","
values=values&"'"&request.form("ti"&i)&"'"&","
next
response.write title&"<br>"
response.write values&"<br>"
response.end
sql="insert into kehuset1 (title) values(values)"
Set RS=Conn.Execute(sql)
...全文
