admin_delbook.asp

系统功能说明： 1 本书库系统专为以文字为主的站点设计

<%@ 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=600px style="border-collapse: collapse"  align="center" >
  <tr> 
    <td align="center"> 
      <form method="post" action="admin_delbook.asp">
	<input type=hidden name=bookid value=<%=Request("bookid")%>>
	<input type=hidden name=menu value=del>
注意：一经删除，无法恢复！<br><br>
              <input type="submit" name="Submit" value="确 认">
              <input type="button" name="Submit3" value="取 消" onClick="javascript:history.back(-1);">
      </form>
    </td>
  </tr>
</table>
<br><br><br>

<%

Response.End
end sub

sub del()

bookid = Request.form("bookid")

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

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

	sql = "delete * from read where bookid=" & bookid
	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
%>