<!--#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
%>