uploaddel.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 40 行

<!--#include file="inc/pstart.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/incpage.asp"-->
<!--#include file="inc/bbsinfo.asp"-->
<%
call checkulogin()
if not checkadmin(ckuname)=4 then showmsg("不能确认您的超级管理员身份")
dim hx66,df,dfile
if request.form("action1")="del" then
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 
hx66=request.form("dir")
hx66=server.mappath(""&hx66&"")
for each df in request.form("dfiles")
dfile=hx66&"\"&df
DeleteFile(dfile)
conn.execute("delete from [upload] where filename='"&df&"'")
next
response.redirect Request.ServerVariables("http_referer")
end if
Public Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>