📄 listscore.asp

📁 这是一个用ASP写的在线考试系统.特别一点就是考试试卷有两种考法,一种为系统自动出卷,另一种是老师出卷考试.前者的实现是参考网上代码.总的来说还是很值得参考的.
💻 ASP
字号:

<!--#include file="conn2.asp"-->
<!--#include file="safe.asp" -->
<html>
<head>
<title> </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META content=CnSohoW设计 name=description>
<META content="firekinger@163.com" name=author>
<%
   'set rsT=server.CreateObject("ADODB.RecordSet")
	'uSubmitSql="update verification set STU_SUBMIT=""1"" where STU_NUM='"& Session("NumT_Stu")&"'"
	'set rsT=Conn.Execute(uSubmitSql)
%>
<link href="css/Style.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="49" height="35" background="images/HOME_BG3.GIF">&nbsp;</td>
    <td height="35" background="images/HOME_BG9.GIF"> <div align="center"><span class="Xsmall"><font color="#FF0000">恭喜你完成本次考试任务</font></span></div></td>
    <td width="13" height="1">&nbsp;</td>
  </tr>
  <tr> 
    <td width="49" background="images/HOME_BG1.GIF"> <br> </td>
    <td background="images/home_bg10.gif">
	 <blockquote class="Xsmall"> 
        <p> 
    <%
	 '判断----------------------------------------->
	 trySql="select * from "&Session("tryT")&" where TRY＿TYPE='1'"
	 set rst=conn.execute(trysql)
	'rsT.open trySql,Conn
	'判断题学生分数
	PdSum=0
	'判断题做对个数	
	PdRightNum=0
	PdNum=Session("Pd_Num")
	 for i=1 to PdNum
	 	'判断题学生TRY_KEY		
	 	PdStuTT=request.form("PdCb"&i)
		select case PdStuTT
			case 1
				PdStuT="1"
			case else
				PdStuT="0"
		end select
		'试卷TRY_KEY
		PdRsTT=Trim(rsT("TRY_KEY"))
		'判断题TRY_CENT
		PdRsCentT=rsT("TRY_CENT")
	 	select case PdStuT
			case PdRsTT
				PdRightNum=PdRightNum+1
				PdSum=PdSum+PdRsCentT
		end select
		rsT.movenext
	 next
	 rsT.close
	 '单选---------------------------------------->
	 trySql="select * from "&Session("tryT")&" where TRY＿TYPE='2'"
	rsT.open trySql,Conn
		'单选TRY_SUBJECT做对数目
		DxRightNum=0	
		'单选总分
		DxSum=0
		DxNum=Session("Dx_Num")
	 for i=1 to DxNum
	 	'学生TRY_KEY	
		DxStuT=request.form("DxRb"&i)
		'试卷TRY_KEY
		DxRsTT=Trim(RsT("TRY_KEY"))
		'本单选题TRY_CENT
		DxRsCentT=(RsT("TRY_CENT"))
		select case DxStuT
			case DxRsTT
				DxRightNum=DxRightNum+1
				DxSum=DxSum+DxRsCentT
		end select
		rsT.movenext
	next
	rsT.close
	'多选---------------------------------------->
	 trySql="select * from "&Session("tryT")&" where TRY＿TYPE='3'"
	rsT.open trySql,Conn
		'多选TRY_SUBJECT做对数目
		DdxRightNum=0	
		'多选总分
		DdxSum=0
		DdxNum=Session("Ddx_Num")
	for i=1 to DdxNum
	 	'学生TRY_KEY	
		DdxStuTT=request.form("DxCb"&i)
		DdxStuT=replace(replace(DdxStuTT,",","")," ","")
		'试卷TRY_KEY
		DdxRsTT=Trim(RsT("TRY_KEY"))
		'本单选题TRY_CENT
		DdxRsCentT=(RsT("TRY_CENT"))
		select case DdxStuT
			case DdxRsTT
				DdxRightNum=DdxRightNum+1
				DdxSum=DdxSum+DdxRsCentT
		end select
		rsT.movenext
	next	
	rsT.close
	TrySum=PdSum+DxSum+DdxSum
	 %>
          <%
		ListFlag=request("ListFlagCb")
		select case ListFlag
			case 1				
				response.write(Session("NameT_Stu")&"同学，你的成绩为： "&TrySum)
				response.write("<br>判断做对个数： "&PdRightNum)
				response.write("<br>单选做对个数： "&DxRightNum)
				response.write("<br>多选做对个数： "&DdxRightNum)
			case else
				response.write("<br><center>若想要成绩请于你的老师联系！</center>")
		end select
		TryDate=Date()
		TryTime=Time()
		MaxIdSql="select max(ID) as MaxID from score"
		set rsT=Conn.Execute(MaxIdSql)
		MaxID=rsT("MaxID")
		if isNull(MaxID) then
			MaxID=0
		end if
		MaxID=MaxID+1
		
		'sasql="select stu_key from score where stu_num='"&session("stunum")&"'"
		'set rst=conn.execute(sasql)
		'stukey=rst("stu_key")
		'if stukey<>1 then
		insertScoreSql="insert into score values("&MaxID&",'"&session("stunum")&"','"&Session("tryT")&"',"&TryDate&",'"&TryTime&"',"&TrySum&",'1')"
		set rsT=Conn.Execute(insertScoreSql)
		
		 sql="select stu_name from stuinit where stu_num='"&session("stunum")&"'"
		 set rst=conn.execute(sql)
		    
		
		lookscoresql="insert into look_score values("&maxid&",'"&Session("tryT")&"','"&session("stunum")&"','"&rst("stu_name")&"',"&TrySum&")"
		set rst=conn.execute(lookscoresql)
		
		'end if
		'uScoreSql="update verification set STU_SCORE="&TrySum&" where STU_NUM='"& Stu_NameT&"'"
		'response.Write(insertScoreSql)
		'response.End()
		
		%>
        </p>
      </blockquote></td>
    <td width="13" background="images/home_bg7.gif">&nbsp;</td>
  </tr>
  <tr> 
    <td width="49" height="42" background="images/HOME_BG2.GIF">&nbsp;</td>
    <td height="22" background="images/home_bg10.gif" bgcolor="#FFFFFF" class="Xsmall"><div align="center"><a href="javascript:window.close()">[关闭窗口]</a></div></td>
    <td width="13" height="22" background="images/HOME_BG7.GIF">&nbsp;</td>
  </tr>
  <tr> 
    <td height="12" background="images/HOME_BG4.GIF">&nbsp;</td>
    <td background="images/HOME_BG5.gif">&nbsp;</td>
    <td background="images/HOME_BG6.GIF">&nbsp;</td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -