📄 delete1.asp

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

💻 ASP

字号:

<html>
<head>
<title>delete1</title>
</head>

<body bgproperties="fixed" background="images/bkg35.jpg">
<div align="center"><center>
<h1><font face="楷体_GB2312" color="#FF0080">试&nbsp;&nbsp; 卷&nbsp;&nbsp; 维&nbsp;&nbsp; 护</font></h1>         
</center></div>

<%@ Language=VBScript %>         
<%         
Set conn = Server.CreateObject("ADODB.Connection")         
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &	Server.MapPath("../试题库.mdb")         
deletename1=request.querystring("delete1")         
sql="DELETE FROM 试卷名称表 where 试卷名称='"& deletename1 &"'"         
  
Set rs =conn.Execute(sql)         
sql="DROP TABLE "& deletename1 &""  
on error resume next           
Set rs =conn.Execute(sql)    
on error resume next       
%>         
         
         
<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>         

<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 + -