📄 delete2.asp

📁 本网络考核系统采用现在比较先进的基于B-S模式的全新的网络考试系统。服务器端对数据库进行管理

💻 ASP

字号:

<html>
<head>
<title>delete2</title>
</head>
<body bgproperties="fixed" background="../images/bkg35.jpg">
<div align="center"><center>
<table border="0" width="100%">
  <tr>
    <th width="100%"><h1><font face="楷体_GB2312" color="#FF0080">试&nbsp;&nbsp; 卷&nbsp;&nbsp; 维&nbsp;&nbsp; 护</font></h1>     
    </th>     
  </tr>     
</table>     
</center></div>

<%@ Language=VBScript %>     
<%     
Set conn = Server.CreateObject("ADODB.Connection")     
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &	Server.MapPath("../试题库.mdb")     
deletename2=request.querystring("delete2")     
'response.write deletename2     
     
'sql="select * from 成绩登记表"     
'Set rs =conn.Execute(sql)     
sql="DELETE FROM 成绩登记表 where 试卷名称='"& deletename2 &"'"     
Set rs =conn.Execute(sql)  
on error resume next     
sql="DROP TABLE "& deletename2 &""   
on error resume next    
Set rs =conn.Execute(sql)
%>     
     
     
<form action="评阅试卷.asp" id="FORM1" method="post" name="FORM1">     
  <div align="center"><center><table border="1" width="90%" height="136">     
    <tr>     
      <th width="10%" height="16"><font color="#0000FF">用户名</font></th>     
      <th width="10%" height="16"><font color="#0000FF">改&nbsp;&nbsp; 卷</font></th>     
      <th width="10%" height="16"><font color="#0000FF">总分</font></th>     
      <th width="10%" height="16"><font color="#0000FF">成绩</font></th>     
      <th width="10%" height="16"><font color="#0000FF">密码</font></th>     
      <th width="10%" height="16"><font color="#0000FF">当前状态</font></th>     
      <th width="10%" height="16"><font color="#0000FF">删除用户试卷</font></th>     
      <th width="10%" height="16"><font color="#0000FF">删除试卷</font></th>     
    </tr>     
<%      
Set conn = Server.CreateObject("ADODB.Connection")      
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="  & Server.MapPath("../试题库.mdb")      
set rs= server.createobject("adodb.recordset")      
sql="select * from 成绩登记表"     
set  base=conn.execute(sql)     
     
sj=0     
'base.movefirst     
do while not base.eof     
sj=sj+1     
zhh=base("用户名")     
papername=base("试卷名称")     
chji=base("成绩")     
danwei=base("密码")     
dqzt=base("当前状态")     
zf=base("总分")     
sjt=base("试卷")     
%>     
    <tr>     
      <td width="10%" height="20" align="center"><%=zhh%>     
</td>     
      <td width="15%" height="20" align="center"><a     
      href="papermanage.asp?papername=<%=papername%>"><%=papername%></a></td>     
      <td width="10%" height="20" align="center"><%=zf%>     
</td>     
      <td width="10%" height="20" align="center"><%=chji%>     
</td>     
      <td width="10%" height="20" align="center"><%=danwei%>     
</td>     
      <td width="12%" height="20" align="center"><%=dqzt%>     
</td>     
      <td width="18%" height="20" align="center"><a href="delete2.asp?delete2=<%=papername%>"><%=papername%> </td>     
      <td width="15%" height="20" align="center"></a><a href="delete1.asp?delete1=<%=sjt%>"><%=sjt%> </td>     
    </tr>     
<%     
base.movenext     
loop     
%>     
  </table>     
  </center></div>     
</form>     
     
<table border="0" width="100%">     
  <tr>     
    <td width="100%"></td>     
  </tr>     
</table>     
     
<table border="0" width="100%">     
  <tr>     
    <td width="100%"></td>     
  </tr>     
</table>
     

<div align="center"><center>     
<table border="0" width="100%">     
  <tr>     
    <th width="100%"><a href="../mainselect.asp"><img src="../Images/back.bmp" alt="b5.jpg (1795 bytes)"></a></th>     
  </tr>     
</table>     
</center></div>     
<p>　</p>     
</body>     
</html>

💿 文件大小 1001 K

👤 上传用户 zhoujun008

📂 所属分类 Java编程

🏷️ 相关标签

#B-S #网络 #比较 #模式

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -