回 帖 发 新 帖 刷新版面

主题:[讨论]请各路大侠指点这页代码的编写

小弟做个简单的考试系统,有A.asp(考试)、B.asp(反馈)两个页面。小弟想把反馈结果写入user表的answer、score字段里。请各路大侠指点指点B.asp页的代码,看看是哪行语句出了问题。

A.asp页

<!--#include file="conn.asp"-->
<%
exec="select * from test"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<body>
<FORM action="B.asp" id=FORM1 method=post name=FORM1>
 <%
  i=1
  rs.movefirst
  do while not rs.eof%>
<%=rs("question")%><br>
<input type="radio" name=ans<%=i%> value="A"><%=rs("A")%><br>
<input type="radio" name=ans<%=i%> value="B"><%=rs("B")%><br>
<input type="radio" name=ans<%=i%> value="C"><%=rs("C")%><br>
<input type="radio" name=ans<%=i%> value="D"><%=rs("D")%><br><br>
<%
i=i+1
rs.movenext
loop
%> 
<p> <INPUT id=submit1 name=submit1 type=submit value="提交"></p>
 </form>
</body>
</html>


B.asp页

<!--#include file="conn.asp"-->
<%
exec="select * from test"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
  i=1
  rs.movefirst
  do while not rs.eof
  %> 
  
  <body>你的答案:
 <%
Response.Write Request.Form(i)
%>
<br>
正确的答案:<%=rs("answer")%> 
<br>
你的得分是:<%
if Request.Form(i)=rs("answer") then
Response.Write rs("score")
else
Response.Write "0"
end if
%>
<br> <br>

<%
i=i+1
rs.movenext
loop
%>
</body>
</html

<%
answer=request("Request.Form(i)")
score =request("score")
ex="insert into user(answer,score)values('"+answer+"','"+score+"')"
conn.execute ex
set conn=nothing
%>

回复列表 (共1个回复)

沙发

应该是这样吧。
<body>你的答案:
 <%
Response.Write Request.Form(ans&i)
%>
<br>
正确的答案:<%=rs("answer")%> 
<br>
你的得分是:<%
if Request.Form(ans&i)=rs("answer") then
Response.Write rs("score")
else
Response.Write "0"
end if
%>

我来回复

您尚未登录,请登录后再回复。点此登录或注册