📄 queryinfo.asp

📁 在线考试系统

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="style.css" rel="stylesheet" type="text/css">
<!---#include file="conn.asp"--->
<SCRIPT src="Inc/common.js"></SCRIPT>
</head>

<body>
<p><br>
  <%
StuId=session("StuId")
set rst=server.CreateObject("adodb.recordset")
sql="select TestPaperName from StudentTestPaper where StuId="&StuId&" Group by TestPaperName"

rst.open sql,conn
if rst.eof then
response.write("对不起，你未参加任何考试。<br>如有问题请联系管理员！")
'response.end()
end if
%>
</p>
<h2 align="center"><%=Session("StuId")%>成绩查询</h2>
<form name="form1" method="post" action="">
  <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td align="right">请选择考试名称：</td><!--onChange="javascript:startRequest(this.options[this.selectedIndex].value);"-->
      <td>&nbsp; <select name="select"  onchange="javascript:openmodeless('QueryResult.asp?name='+this.options[this.selectedIndex].value,'d',250,100)">
          <option value="" selected>请选择考试名称</option>
          <%
		  while not rst.eof
		  response.write("<option value='"&rst("TestPaperName")&"'>"&rst("TestPaperName")&"</option>")
		  rst.movenext
		  wend
		  rst.close()
		  conn.close()
		  set rst=nothing
		  set conn=nothing
		  %>
        </select></td>
    </tr>
    <tr align="center">
      <td colspan="2">&nbsp;</td>
    </tr>
    <tr align="center"> 
      <td colspan="2">&nbsp; </td>
    </tr>
  </table>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -