testpaperupdate.asp

来自「在线考试系统」· ASP 代码 · 共 32 行

<!---#include file="conn.asp"--->
<%
oper=request.QueryString("oper")
if(oper="set")then
SetCurrent
elseif(oper="del") then
Del
end if
if(rst<>null) then
	rst.close()
	set rst=nothing
end if
  set rst=nothing
  set conn=nothing
if(err)then
	response.Write("<SCRIPT language='javascript'>alert('操作失败，\n如有问题请联系管理员！');window.href='CategoryAdd.asp'</script>")
else
	response.redirect("TestPaper.asp")
end if

'设置当前试卷==========================================================
sub SetCurrent
id=request.QueryString("id")
conn.execute("update TestPaper set IsCurrent='0'")
conn.execute("update TestPaper set IsCurrent='1' where id="&id)
end sub

'删除试卷================================
sub Del
conn.execute("delete from TestPaper where id="&request.querystring("id"))
end sub
%>