testpapercreate.asp

在线考试系统

<!---#include file="conn.asp"--->
<%
on error resume next
TestPaperName=request.Form("TestPaperName")
CategoryId=request.Form("CategoryId")
Score=request.Form("score")
Length=request.Form("length")
'response.Write(TestPaperName&","&CategoryId&","&Score&","&Length)
TianKongNum=request.Form("TianKongNum")
TianKongScore=request.Form("TianKongScore")
PanDuanNum=request.Form("PanDuanNum")
PanDuanScore=request.Form("PanDuanScore")
DanXuanNum=request.Form("DanXuanNum")
DanXuanScore=request.Form("DanXuanScore")
JianDaNum=request.Form("JianDaNum")
JianDaScore=request.Form("JianDaScore")
'response.Write("<br>"&TianKongNum&","&TianKongScore&","&PanDuanNum&","&PanDuanScore&","&DanXuanNum&","&DanXuanScore&","&DuoXuanNum&","&DuoXuanScore&","&JianDaNum&","&JianDaScore&",")
'插入试卷表TestPaper
sql="insert into TestPaper values('"&TestPaperName&"',"&DanXuanNum&","&TianKongNum&","&PanDuanNum&","&JianDaNum
sql=sql&","&DanXuanScore&","&TianKongScore&","&PanDuanScore&","&JianDaScore&","&Score&","&CategoryId&","&Length&",'0')"
conn.execute(sql)
'获得刚才插入试卷表的Id
set rst=conn.execute("select top 1 id from TestPaper order by id desc")
TestPaperId=rst("id")

'获取预览页的填空题id
for n=1 to TianKongNum
Id=request.form("TianKong"&n)
sql="insert into ExamTianKong select question,answer,"&TestPaperId&" from TKTianKong where id="&Id
conn.execute(sql)
next

'获取预览页的判断题id
for n=1 to PanDuanNum
Id=request.form("PanDuan"&n)
sql="insert into ExamPanDuan select question,answer,"&TestPaperId&" from TKPanDuan where id="&Id
conn.execute(sql)
next

'获取预览页的单选题id
for n=1 to DanXuanNum
Id=request.form("DanXuan"&n)
sql="insert into ExamDanXuan select question,a,b,c,d,answer,"&TestPaperId&" from TKDanXuan where id="&Id
conn.execute(sql)
next

'获取预览页的多选题id
'for n=1 to DuoXuanNum
'Id=request.form("DuoXuan"&n)
'sql="insert into ExamDuoXuan select question,a,b,c,d,e,f,g,h,answer,"&TestPaperId&" from TKDuoXuan where id="&Id
'conn.execute(sql)
'next

'获取预览页的简答题id
for n=1 to JianDaNum
Id=request.form("JianDa"&n)
sql="insert into ExamJianDa select question,answer,"&TestPaperId&" from TKJianDa where id="&Id
conn.execute(sql)
next


  conn.close()

  set conn=nothing
if(err) then
response.Write("<SCRIPT>alert('生成失败！\n如有问题请联系管理员！');window.close();</script>")
else
response.Write("<SCRIPT>window.close();</script>")
end  if

%>