📄 testpaperlist.asp

📁 在线考试系统

💻 ASP

字号:

<?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" />
<title>无标题文档</title>
<!---#include file="conn.asp"--->
<link href="main.css" rel="stylesheet" type="text/css">
<script src="../Inc/common.js"></script>
<%
if(request.QueryString("oper")="del") then
	sql="delete from TestPaper where id="&request.QueryString("id")
	conn.execute(sql)
end if
%>
</head>

<body>
<h3 align="center">查看试卷</h3>

<hr width="100%">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
  <tr align="center" bgcolor="#F3F3F3"> 
    <th width="524">试卷名称</th>
    <th colspan="2">操作</th>
  </tr>
  <%
set rst=conn.execute("select id,TestPaperName,IsCurrent from TestPaper")
while not rst.eof
%>
  <tr align="center" bgcolor="#E0F1FC"> 
    <td><%=rst("TestPaperName")%></td>
    <td width="44"><a href="#" onclick="javascript:openmodeless('TestPaperTempletInfo.asp?oper=TestPaper&id=<%=rst("id")%>','d',250,230)">查看</a></td>
    <td width="76"> 
      <%
	if(cint(rst("IsCurrent"))=1) then 
	response.write("删除")
	else
	%>
      <a href="TestPaperList.asp?oper=del&id=<%=rst("id")%>"  onclick="return confirm('确定要删除吗？');">删除</a></td>
  </tr>
  <%
  end if
  rst.movenext
  wend
    rst.close()
  conn.close()
  set rst=nothing
  set conn=nothing
  %>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -