admin_del.asp

是运行在asp环境下寻梦书库管理系统

<%@ language=VBScript %>
<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<%
action=request("action")
select CASE action
  case "delbook"
    call delbook()
  case "delpl"
    call delpl()
  case "deljg"
    call deljg()
  case "deluser"
    call deluser()
  case else
    call delarticle()
END select

sub delarticle()
   bookid=request("bookid")
  response.write ("<meta http-equiv='refresh' content='0;URL=admin_bookread.asp?bookid="&bookid&"'>")
sqlb = "select top 1 bookname,addtim from book where bookid="&bookid&" "
set rsb= Server.CreateObject("ADODB.RECORDSET")
rsb.Open sqlb,Conn,1,3
    Rtime=Rsb("addtim")
    Rtime = left(Rtime,7)
    Rtime = replace(Rtime, "-", "")

   id = Request("id")

fpath="\DATA\"&Rtime&"\"&bookid&"\"&id&".dat"
set objfilesys=server.createobject("scripting.filesystemobject")
  fpath=server.mappath(fpath)
  if objfilesys.FILEExists(fpath) then
    objfilesys.deleteFILE fpath
  end if

	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

end sub

sub delbook()
  bookid=request("bookid")
sqlb = "select top 1 bookid,kindid,addtim from book where bookid="&bookid&" "
set rsb= Server.CreateObject("ADODB.RECORDSET")
rsb.Open sqlb,Conn,1,3
         kindid=rsb("kindid")
  response.write ("<meta http-equiv='refresh' content='0;URL=admin_index.asp?kindid="&kindid&"'>")
         Rtime=Rsb("addtim")
         Rtime = left(Rtime,7)
         Rtime = replace(Rtime, "-", "")

foldpath="\DATA\"&Rtime&"\"&bookid&"\"

set fso=server.CreateObject("Scripting.FileSystemObject") 

If (fso.FolderExists(server.MapPath (foldpath))) then 
set tmpfolder=fso.GetFolder(server.MapPath (foldpath)) 
set tmpfiles=tmpfolder.files 
for each tmpfile in tmpfiles 
fso.DeleteFile (tmpfile) 
next 
fso.DeleteFolder (server.MapPath (foldpath)) 
end if 

      sqlr = "delete * from read where bookid="&bookid&""
	Set Rsr = Server.CreateObject("ADODB.Recordset")
	Rsr.open sqlr,conn,3,1

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

end sub

sub delpl()
  id = Request("id")
	sql = "delete * from pinglun where id=" & id
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.open sql,conn,3,1
  response.write "<script>alert( '删除评论成功!' );</script>"
  response.write "<meta http-equiv='refresh' content='0;URL=admin_pl.asp?sh=0'>"
end sub

sub deljg()
  jgid = Request("jgid")
	sql = "delete * from jiaogai where jgid=" & jgid
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.open sql,conn,3,1
  response.write "<script>alert( '删除校改成功!' );</script>"
  response.write "<meta http-equiv='refresh' content='0;URL=admin_jg.asp'>"
end sub

sub deluser()
  user = Request("user")
	sql = "delete * from user where user=" & user&""
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.open sql,conn,1,3
  response.write "<script>alert( '删除会员成功!' );</script>"
  response.write "<meta http-equiv='refresh' content='0;URL=admin_user.asp'>"
end sub
%>