testmanage.asp

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

ASP

59 行

<?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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<!---#include file="conn.asp"--->
<link href="main.css" rel="stylesheet" type="text/css">
<title>无标题文档</title>
<%
if(request.QueryString("oper")="del") then
Id=request.QueryString("id")
conn.execute("delete from StuTestPaper where id="&id)
end if
%>
</head>

<body>
<h3 align="center">
<%set rst=conn.execute("select TestPaperName from TestPaper where IsCurrent='1'")
TestPaperName=rst("TestPaperName")
response.write(TestPaperName)
%>
考试管理</h3>
<hr>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr align="center"> 
    <th width="45">序号</th>
    <th width="75">学号</th>
    <th width="78">姓名</th>
    <th width="44">总分</th>
    <th width="53">主观题</th>
    <th width="51">客观题</th>
    <th width="60">操作</th>
  </tr>
  <%
  set rst=conn.execute("select * from StudentTestPaper where TestPaperName='"&TestPaperName&"'")
	n=1
  while not rst.eof

  %>
  <tr align="center" bgcolor="#E0F1FC"> 
    <td><%=n%></td>
    <td><%=rst("StuId")%></td>
    <td><%=rst("Name")%></td>
    <td><%=rst("Score")%></td>
    <td><%=rst("ZhuGuanScore")%></td>
    <td><%=rst("KeGuanScore")%></td>
    <td><a href="TestManage.asp?oper=del&id=<%=rst("id")%>">删除</a></td>
  </tr>
  <%
    rst.movenext
	n=n+1
  wend
  %>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

testmanage.asp

testmanage.asp - 源码说明

⌨️ 快捷键说明