tkdanxuanupdate.asp

在线考试系统

<!---#include file="conn.asp"--->
<!-- args: categoryid,categoryname,oper,id--->
<%
oper=request.QueryString("oper")
categoryid=request.querystring("categoryid")
categoryname=request.querystring("categoryname")
if(oper="add") then
	Add
elseif(oper="del") then
	Del
elseif(oper="modify") then
	Modify
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='TKDanXuanAdd.asp'</script>")
else
	url="TKDanXuan.asp?categoryname="&categoryname&"&categoryid="&categoryid
	response.redirect(url)
end if

'添加单选题=============================================================
sub Add
question=request.Form("question")
set rst=conn.execute("select id from TKDanXuan where question='"&question&"'")
if rst.eof then
Insert
else
response.Write("<SCRIPT>alert('已有此题！');history.go(-1);</script>")
response.End()
end if
end sub
'入库操作
sub Insert
question=request.form("question")
a=request.form("a")
b=request.Form("b")
c=request.Form("c")
d=request.Form("d")
answer=request.Form("answer")
if(question ="" or a="" or b="" or answer="" )then
response.write("<script>alert('题目不完整，请检查必填项！');history.go(-1);</script>")
response.end
end if
sql="insert into TKDanXuan values('"&question&"','"&a&"','"&b&"','"&c&"','"&d&"','"&answer&"',"&categoryid&")"
conn.execute(sql)
end sub

'修改单选题=============================================================
sub Modify
question=request.form("question")
set rst=conn.execute("select id from TKDanXuan where question='"&question&"'")
if rst.eof then
Update
else
	if(rst("id")=cint(request.QueryString("id"))) then
	Update 
	else
	response.Write("<SCRIPT>alert('已有此题！');history.go(-1);</script>")
	response.End()
	end if
end if
end sub
'更新操作
sub Update
id=request.querystring("id")
question=request.form("question")
a=request.form("a")
b=request.Form("b")
c=request.Form("c")
d=request.Form("d")
answer=request.Form("answer")
if(question ="" or a="" or b="" or answer="" )then
response.write("<script>alert('题目不完整，请检查必填项！');history.go(-1);</script>")
response.end
end if
sql="update TKDanXuan set question='"&question&"',a='"&a&"',b='"&b&"',c='"&c&"',d='"&d&"',answer='"&answer&"' where id="&id
conn.execute(sql)
end sub

'删除单选题=============================================================
sub Del
	id=request.querystring("id")
	sql="delete from TKDanXuan where id="&id
	conn.execute(sql)
end sub
%>