📄 searchmyscore.asp

📁 网络考试系统最终备份
💻 ASP
字号:
<!--#include file="conn.inc"-->
<html>
<head>
<link rel="stylesheet" type="text/css" href="css.css">
<script language="javascript">
function testinfo(testid)
{ 
  page="testinfo.asp?testid="+testid
  window.open (page,'查看考试信息','width=320,height=470')
}
</script>
</head>
<body>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%">
  <tr>
    <form name="searchscoreform" method="POST" action="searchmyscore.asp">
      <td><select size="1" name="subject">
      <option selected>--选择科目--</option>
      
      <%  sql="select * from subject_info"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      do while not rs.eof %>
	  <option value="<%=rs("SubID")%>"><%=rs("SubName")%></option>
      <% rs.movenext
      loop
      rs.close %>
      </select>
      <input type="submit" value="查 询" name="B3" class="s02"></td>
    </form>
  </tr>
</table>
<form name="viewdatabase" method="post">
  <table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
    <tr>
      <td bgcolor="#E1E1E1" height="20" colspan="9">&nbsp;下面显示的是您本人的考试科目</td>
    </tr>
    <tr>
      <td width="7%" height="20" align="center" bgcolor="#E1E1E1"><b>序号</b></td>
      <td width="12%" align="center" bgcolor="#E1E1E1"><b>试卷编码</b></td>
      <td width="10%" align="center" bgcolor="#E1E1E1"><b>考试科目</b></td>
      <td width="11%" align="center" bgcolor="#E1E1E1"><b>开始答题时间</b></td>
      <td width="18%" align="center" bgcolor="#E1E1E1"><b>交卷时间</b></td>
      <td width="10%" align="center" bgcolor="#E1E1E1"><strong>评分标准</strong></td>
      <td width="7%" align="center" bgcolor="#E1E1E1"><strong>平时成绩</strong></td>
      <td width="7%" align="center" bgcolor="#E1E1E1"><strong>卷面成绩</strong></td>
      <td width="18%" align="center" bgcolor="#E1E1E1"><b>成绩</b></td>
    </tr>
<%  
  'v_SubID=request("subject")
  'sql="select * from subject_info where SubID=v_SubID"
  'set rs=server.createobject("adodb.recordset")
  'rs.open sql,conn,3,2
  'v_SubName=rs("SubName")
  v_SubName=request("subject")
  v_userid=request.cookies("userid")
  'response.Write(v_userid)
if v_SubName="--选择科目--" or v_SubName=""  then
 sql = "select * from student_score where User_ID="&v_userid&""
else
   sql = "select * from student_score s, paper_info p where s.Paper_ID=p.PaperID and  s.User_ID="&v_userid&" and p.Sub_ID ="&v_SubName&""  
end if
PageCount=0
set rs=conn.execute(sql)
while not rs.eof
	PageCount=PageCount+1
	rs.movenext
wend


if PageCount = 0 then
%>
<font color="#FF0000"><strong>你没有参加考试的科目</strong></font>
<%
response.End()
end if


set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
PageSize = 10
PageCount=(PageCount+PageSize-1)\PageSize
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > PageCount Then Page = PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To PageSize

%>
    <tr>
      <td height="20" rowspan="2" align="center" bgcolor="#E1E1E1"><%=i%>　</td>
      <td rowspan="2" align="center"><a href="javascript:testinfo(<%=rs("Paper_ID")%>)">    <%=rs("Paper_ID")%></a></td>
      
	  <td rowspan="2" align="center">
	  <% 
	  
	   'sql1 = "select * from subject_info s,paper_info p where s.SubID = p.Sub_ID and p.PaperID = 234325345 "
	  sql1 = "select * from subject_info s,paper_info p where s.SubID = p.Sub_ID and p.PaperID = "&rs("Paper_ID")
	  SET rs1 = server.CreateObject("adodb.recordset")
	  rs1.open sql1,conn,3,2
	  response.Write(rs1("SubName"))
	  rs1.close
	  set rs1 = nothing
	  
	  sql1 = "select * from score_tand where paper_id = "&rs("Paper_ID")
	  set rs1 = server.CreateObject("adodb.recordset")
	  rs1.open sql1,conn,3,2
	  v_uscoreRate = rs1("UsualScoreRate")
	  v_pscoreRate = rs1("PaperScoreRate")
	  rs1.close
	  set rs1 = nothing
	  %>
	  </td>
      <td rowspan="2" align="center"><%=rs("Stu_Start_time")%>　</td>
      <td rowspan="2" align="center"><%=rs("Stu_End_time")%>　</td>
      <td align="center">平时成绩占<font color="#FF0000"><strong><%=v_uscoreRate%></strong></font>%</td>
      <td rowspan="2" align="center"><%=rs("UsaScore")%></td>
      <td rowspan="2" align="center"><%=rs("PaperScore")%></td>
      <td rowspan="2" align="center"><%=rs("Score")%>　</td>
    </tr>
    <tr>
      <td align="center">考试成绩占<font color="#FF0000"><strong><%=v_pscoreRate%></strong></font>%</td>
    </tr>
    <% 
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
  </table>
</form>
⌨️ 快捷键说明

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