examover.asp

在线考试系统

<!---#include file="conn.asp"--->
<%
TianKongNum=request.Form("TianKongNum")
PanDuanNum=request.Form("PanDuanNum")
DanXuanNum=request.Form("DanXuanNum")
JianDaNum=request.Form("JianDaNum")

TianKongScore=request.Form("TianKongScore")
PanDuanScore=request.Form("PanDuanScore")
DanXuanScore=request.Form("DanXuanScore")
JianDaScore=request.Form("JianDaScore")
TestPaperName=request.Form("TestPaperName")
StuId=request.Form("StuId")
TianKongStuScore=0
PanDuanStuScore=0
DanXuanStuScore=0
ZhuGuanScore=0
'填空
if(TianKongNum<>0)then
	for n=1 to TianKongNum
	if(request.form("TianKongStuAnswer"&n)=request.form("TianKongAnswer"&n)) then
		TianKongStuScore=TianKongStuScore+TianKongScore
	end if
	next
end if
response.write("<div align='center'>填空题得分："&TianKongStuScore&"</div>")
'判断
if(PanDuanNum<>0)then
	for n=1 to PanDuanNum
	PanDuanStuAnswer=request.form("PanDuanStuAnswer"&n)
	PanDuanAnswer=request.form("PanDuanAnswer"&n)
	if(PanDuanStuAnswer=PanDuanAnswer) then
	PanDuanStuScore=PanDuanStuScore+PanDuanScore
	end if
	next
end if
response.write("<div align='center'>判断题得分："&PanDuanStuScore&"</div>")
'单选
if(DanXuanNum<>0)then
	for n=1 to DanXuanNum
	DanXuanStuAnswer=request.form("DanXuanStuAnswer"&n)
	DanXuanAnswer=request.form("DanXuanAnswer"&n)
	if(DanXuanStuAnswer=DanXuanAnswer) then
	DanXuanStuScore=DanXuanStuScore+DanXuanScore
	end if
	next
end if
response.write("<div align='center'>单选题得分："&DanXuanStuScore&"</div>")
ZhuGuanScore=TianKongStuScore+PanDuanStuScore+DanXuanStuScore
response.write("<div align='center'>总得分："&ZhuGuanScore&"</div>")
sql="insert into StuTestPaper values("&StuId&",'"&TestPaperName&"',"&ZhuGuanScore&",0,0,'0','0')"

conn.execute(sql)
set rst=conn.execute("select top 1 id from StuTestPaper order by id desc")
StuTestPaperId=rst("id")
'简答
response.Write(JianDaNum)
if(JianDaNum<>0)then
	for n=1 to JianDaNum
	JianDaStuAnswer=request.form("JianDaStuAnswer"&n)
	JianDaAnswer=request.form("JianDaAnswer"&n)
	JianDaQuestion=request.Form("JianDaQuestion"&n)
	sql="insert into StuTestPaperJianDa values("&StuTestPaperId&",'"&JianDaQuestion&"','"&JianDaAnswer&"','"&JianDaStuAnswer&"')"
	response.Write(sql)
	conn.execute(sql)	
	next
end if

  rst.close()
  conn.close()
  set rst=nothing
  set conn=nothing
response.Write("<div align='center'><a href='#' onclick='window.close();'>关闭</a></div>")
%>