admin_del.asp

来自「系统功能说明： 1 本书库系统专为以文字为主的站点设计」· ASP 代码 · 共 72 行

<%@ language=VBScript %>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<%

if Request("menu") = "del" then
call del()
else call index()
end if

sub index()

%>
<br><br><br>

<table border=0 cellPadding=3 cellSpacing=0 width=640px style="border-collapse: collapse"  align="center" >
  <tr> 
    <td height="25"> 
      <form method="post" action="admin_del.asp">
	<input type=hidden name=id value=<%=Request("id")%>>
	<input type=hidden name=menu value=del>
       <table border=0 cellPadding=3 cellSpacing=3 width=600px style="border-collapse: collapse">
          <tr> 
            </td>
          </tr>
          
          <tr> 
            <td width="32%" nowrap height="20">
            </td>
            <td nowrap width="68%" height="20"> &nbsp;&nbsp; 
              <input type="submit" name="Submit" value="确 认">
              <input type="button" name="Submit3" value="取 消" onClick="javascript:history.back(-1);">
            </td>
          </tr>
        </table>
      </form>
    </td>
  </tr>
</table>
<br><br><br>

<%

Response.End
end sub

sub del()

id = Request.form("id")

on error resume next
if message <> "" then
	call error(""&message&"")
	Response.end
	else

	sql = "delete * from read where id=" & id
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.open sql,conn,3,1
	Rs.close

set Rs = nothing
conn.close
set conn = nothing

Response.Write "<br><br><br><br>删除成功！"
Response.End
end if
end sub
%>