delfile.asp

这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主

<!--#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")
%>