checktestpaperlist.asp

来自「在线考试系统」· ASP 代码 · 共 37 行

ASP

37 行

<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!---#include file="conn.asp"--->
<link href="main.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<%TestPaperName=request.QueryString("TestPaperName")%>
</head>

<body>
<h3 align="center"><%=TestPaperName%> 阅卷管理</h3>
<hr>
<table width="200" border="1" align="center" cellpadding="2" cellspacing="2" bordercolor="#999999">
  <tr align="center" bgcolor="#F3F3F3"> 
    <td>序号</td>
    <td>操作</td>
	<%
	set rst=conn.execute("select id from StuTestPaper where IsCheck='0' and TestPaperName='"&TestPaperName&"'")
	n=1
	while not rst.eof
	response.write("</tr><tr align='center'><td>"&n&"</td><td><a href='CheckTestPaper.asp?id="&rst("id")&"' target='blank'>阅卷</a></td></tr>")
	n=n+1
	rst.movenext
	wend
	rst.close()
  conn.close()
  set rst=nothing
  set conn=nothing
	%>

</table>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

checktestpaperlist.asp

checktestpaperlist.asp - 源码说明

⌨️ 快捷键说明