save_try_modfiy.asp

这是一个用ASP写的在线考试系统.特别一点 就是考试试卷有两种考法,一种为系统自动出卷,另一种是老师出卷考试.前者的实现是参考网上代码.总的来说还是很值得参考的.

<!--#include file="conn2.asp"-->

<%
tryInfoSql="select id,DB_TRYNAME,DB_NAME from tryInfo1"
set rsT=conn.execute(tryInfoSql)

tryId=request("Id")
tryselectT=request("selectT")
'tryselectN=request("selectN")
trycent=request("cent")
trysubject=request("subject")
tryselectQ=request("selectQ")
if tryselectT<>"1" then
	tryselA=request("selA")
	tryselB=request("selB")
	tryselC=request("selC")
	tryselD=request("selD")
	tryselA=replace(tryselA,"'","’")
	tryselB=replace(tryselB,"'","’")
	tryselC=replace(tryselC,"'","’")
	tryselD=replace(tryselD,"'","’")
	ModfiySql="update "&session("addnamet")&" set TRY＿TYPE='"&tryselectT&"',TRY_CENT="&trycent&",TRY_SUBJECT='"&trysubject&"',a='"&tryselA&"',b='"&tryselB&"',c='"&tryselC&"',d='"&tryselD&"',TRY_KEY='"&tryselectQ&"' where ID="&tryId
else
	ModfiySql="update "&session("addnamet")&" set TRY＿TYPE='"&tryselectT&"',TRY_CENT="&trycent&",TRY_SUBJECT='"&trysubject&"',TRY_KEY='"&tryselectQ&"' where ID="&tryId
end if
'response.write(ModfiySql)
'response.end()
'response.Write(ModfiySql)
'response.End()
set rsT=conn.execute(ModfiySql)
response.Redirect("try_add_list.asp")
%>