assembletestpaperupdate.asp

在线考试系统

<!---#include file="conn.asp"--->
<%
oper=request.QueryString("oper")
if oper="add" then
Add
elseif oper="modify" then
Modify
elseif oper="del" then
Del
end if
if(rst<>null) then
	rst.close()
	set rst=nothing
end if
  conn.close()
  set conn=nothing
if(err)then
	response.Write("<SCRIPT language='javascript'>alert('操作失败，\n如有问题请联系管理员！');history.go(-1);</script>")
else
	response.redirect("AssembleTestPaper.asp")
end if
'添加试卷模板=================================================
sub Add
TestPaperTempletName=request.Form("TestPaperTempletName")
set rst=conn.execute("select id from TestPaperTemplet where TestPaperTempletName='"&TestPaperTempletName&"'")
'判断是否有重复的名称 
if(rst.eof) then
Insert
else
response.Write("<SCRIPT>alert('已有此考试模板名称！');history.go(-1);</script>")
response.End()
end if

end sub
'入库操作
sub Insert
TestPaperTempletName=request.form("TestPaperTempletName")
CategoryId=request.form("CategoryId")
TianKongNum=request.form("TianKongNum")
TianKongScore=request.form("TianKongScore")
PanDuanNum=request.form("PanDuanNum")
PanDuanScore=request.form("PanDuanScore")
DanXuanNum=request.form("DanXuanNum")
DanXuanScore=request.form("DanXuanScore")
DuoXuanNum=0
DuoXuanScore=0
JianDaNum=request.form("JianDaNum")
JianDaScore=request.form("JianDaScore")
Score=request.Form("Score")
Length=request.form("Length")

sql="insert into TestPaperTemplet values('"&TestPaperTempletName&"',"&DanXuanNum&","&PanDuanNum&","&TianKongNum&","&JianDaNum&","&DanXuanScore&","&TianKongScore&","&PanDuanScore&","&JianDaScore&","&Score&","&Length&")"
'response.write(sql)
'response.End()
conn.execute(sql)
end sub
'修改试卷模板=================================================
sub Modify
TestPaperTempletName=request.form("TestPaperTempletName")
set rst=conn.execute("select id from TestPaperTemplet where TestPaperTempletName='"&TestPaperTempletName&"'")
'判断是否有重复的名称 
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")
TestPaperTempletName=request.form("TestPaperTempletName")
CategoryId=request.form("CategoryId")
TianKongNum=request.form("TianKongNum")
TianKongScore=request.form("TianKongScore")
PanDuanNum=request.form("PanDuanNum")
PanDuanScore=request.form("PanDuanScore")
DanXuanNum=request.form("DanXuanNum")
DanXuanScore=request.form("DanXuanScore")
DuoXuanNum=0
DuoXuanScore=0
JianDaNum=request.form("JianDaNum")
JianDaScore=request.form("JianDaScore")
Score=request.Form("Score")
Length=request.form("Length")

sql="update TestPaperTemplet set TestPaperTempletName='"&TestPaperTempletName&"',DanXuanNum="&DanXuanNum&",PanDuanNum="&PanDuanNum&",TianKongNum="&TianKongNum&",JianDaNum="&JianDaNum&",DanXuanScore="&DanXuanScore&",TianKongScore="&TianKongScore&",PanDuanScore="&PanDuanScore&",JianDaScore="&JianDaScore&",Score="&Score&",Length="&Length&" where id="&id
'response.write(sql)
conn.execute(sql)
end sub
'删除试卷模板=================================================
sub Del
conn.execute("delete from TestPaperTemplet where id="&request.QueryString("id"))
end sub
%>