updatashiti.asp

1.本考试系统没有任何商业利益,请大家放心使用 2.本人进行了一些修改和界面美化 3.本考试系统考试题题型均为单选题,

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

dim tihao,shiti,a,b,c,d,zhengque
tihao=session("id")
if tihao<>"" then
shiti=request.Form("timu")
a=request.Form("a")
b=request.Form("b")
c=request.Form("c")
d=request.Form("d")
zhengque=request.Form("zhengque")
set rs=server.createobject("adodb.recordset")
cmd="select * from test where id like '"&tihao&"'"
rs.open cmd,conn,1,3
rs("id")=tihao
rs("question")=shiti
rs("a")=a
rs("b")=b
rs("c")=c
rs("d")=d
rs("ans")=zhengque

'rs("kaohao")=kaohao
rs.update

response.Write("<script>alert('试题修改成功!');window.location.href('Manageshiti.asp')</script>")
else
response.Write("<script>alert('未选择试题!');window.location.href('Manageshiti.asp')</script>")
end if
%>