adminpaperdel.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 53 行

ASP
53
字号
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>试卷删除</title>
</head>

<body>
<%
Temp_PaperID=request("TempPaperid")
sql="select * from paper_detail where Paper_ID="&Temp_PaperID&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
while not rs.eof
 rs.delete
 rs.movenext
wend
rs.close

sql1="select * from waitforpass where objid="&Temp_PaperID&""
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
rs1.delete
rs1.close

sql2="select * from paper_info where PaperID="&Temp_PaperID&""
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
rs2.delete
rs2.close
%>

<div align="center">
  <center>
  <table cellspacing="0" style="border-collapse: collapse" bordercolor="#336699" width="480" id="AutoNumber2" cellpadding="0" border="1">
    <tr>
      <td width="100%" height="25" bgcolor="#6699CC"><b>&nbsp;<font color="#FFFFFF">操作成功</font></b></td>
    </tr>
    <tr>
      <td width="100%" height="160" bgcolor="#EFEFEF">
      <p align="center"><font size="2">您已经成功删除所选试卷!</font></td>
    </tr>
    <tr>
      <td width="100%" height="25" bgcolor="#6699CC">
      <p align="center">
      <input type="button" value="返回" name="B3" class="s02" onclick="window.location='adminpapersearch.asp'"></td>
    </tr>
  </table>
  </center>
</div>
</body>
</html>

⌨️ 快捷键说明

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