del.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<%Admin="ad"%>
<!--#include file="../check.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#Include File="conn.asp"-->
<%
'****************************************************
' Hxcms_JS广告插件V1.0      Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='../admin.asp';</script>")
  response.end
end if
if Request.QueryString("id")<> "" then
   id = cint(Request.QueryString("id"))
   hx66_net=Request.QueryString("dir")  
   hx66_net=server.mappath(hx66_net)
   Set rs = Server.CreateObject("ADODB.Recordset")
       sql="select * from [ad] where id=" & id
   rs.Open sql,conn,1,3
   rs.Delete 
   set rs=nothing
     conn.Close
   set conn=nothing
   for each df in request("dfiles")  
       dfile=hx66_net&"\"&df
       DeleteFile(dfile)
   next
     Response.Redirect ("index.asp")
else
   Response.Write "参数错误"
end if

function DeleteFile(Filename) 
  if Filename<>"" then 
     Set fso = server.CreateObject("Scripting.FileSystemObject") 
     if fso.FileExists(Filename) then 
      fso.DeleteFile Filename 
     end if 
     set fso = nothing 
  end if 
end function 
%>