<!-- #include file="conn.asp" -->
 
<%

dim   t(187)
  for  i=1 to 187
 t(i)=request.Form("t"&i)
next
 
set rsc=server.createobject("adodb.recordset")
sqlc="select * from 注册资料 where zh='"&session("username")&"' and mm='"&session("password")&"'"
rsc.open sqlc,conn,1,3
rsc("qa")=cint(t1)+cint(t2)+cint(t3)+cint(t4)+cint(t5)+cint(t6)+cint(t7)
rsc.update
rsc.close
conn.close


set rsc=nothing
set conn=nothing

response.write("<script language='javascript'>")
response.write("alert('测试完成');location='index.asp';")
response.write("</script>")

%>


代码如上
小弟想实现
t1=request.form("t1")
t2=request.form("t2")
.....................
t187=request.form("t187")

没有报错，但
rsc("qa")=cint(t1)+cint(t2)+cint(t3)+cint(t4)+cint(t5)+cint(t6)+cint(t7)
这里的结果不对

谢谢各位了

从上一个页面传递过来的，一共有187道选择题
request.form("t1")至request.form("t187")




[ 本帖最后由 kimxny 于 2009-12-29 23:18 编辑 ]

t1=request.form("t1")
t2=request.form("t2")
.....................
t187=request.form("t187")

这步怎么实现?

rsc("qa")=cint(t1)+cint(t2)+cint(t3)+cint(t4)+cint(t5)+cint(t6)+cint(t7)
这一步没有实现

并没有得到它们value值的和

呵呵 已经解决了 谢谢各位
dim  t(187)
for i=1 to 187
str = "t" & i  & "=request.form(""t" & i & """)"
execute(str)
next

这样就OK了