delfile.asp

来自「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链」· ASP 代码 · 共 28 行

<!--#include file="../fn/function.asp"-->
<!--#include file="seeadmin.asp"-->
<%

call gadmin
%>
<%
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 


ffd=request.form("dir")

for each df in request.form("dfiles")
dfile=ffd&"\"&df

DeleteFile(dfile)
next
call OKmsg("删除成功","fsofile.asp")
%>