<%
''文件刪除函數
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename
else
Response.Write "<script>alert(''該文件不存在'');</script>"
end if
end if
end function
strfile=server.MapPath("fileName")
deletefile(strfile)
%>
'程序名：delfile.asp
'關鍵參數：struploadfiles 文件名稱
例：<a href="/delfile.asp?action=test.rar">刪除test.rar文件</a>
<%
struploadfiles=trim(request.querystring("struploadfiles"))
action=trim(request.querystring("action"))
response.write "成功刪除<font color=red>"&struploadfiles&"</font>文件!"
call delfiles(struploadfiles & "")
sub delfiles(struploadfiles)
if struploadfiles="" then exit sub
dim fso,arruploadfiles,i
set fso = createobject("scripting.filesystemobject")
fso.deletefile(server.mappath("" & struploadfiles))
set fso = nothing
response.write"<script language=javascript>alert('成功刪除文件,將返回上一頁!');"
response.write"this.location.href='javascript:history.back();'</script>"
end sub
%>
<%
''文件刪除函數
function deletefile(filename)
if filename<>"" then
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists(filename) then
fso.DeleteFile filename
else
Response.Write "<script>alert(''該文件不存在'');</script>"
end if
end if
end function
strfile=server.MapPath("fileName")
deletefile(strfile)
%>
Function?DeleFile(FilePath)
????On?Error?Resume?Next
????Set?Del=Server.CreateObject("Scripting.FileSystemObject")
????if?Err?<>?0?Then?
????????DelFile="該空間不支持FSO組件，無法刪除文件！"
????else
????????if?InStr(FilePath,?",")?>?0?then
????????????FilePath=Split(FilePath,",")
????????????For?i?=?0?to?ubound(FilePath)
????????????????If?Del.FileExists(Server.MapPath(FilePath))=True?Then?Del.DeleteFile?Server.MapPath(FilePath(i)),true
????????????Next
???????Else
????????????If?Del.FileExists(Server.MapPath(FilePath))=True?Then?Del.DeleteFile?Server.MapPath(FilePath),true
????????End?if
????End?if
????Set?Del=Nothing
End?Function
posted on 2006-06-15 14:10
blog搬家了--[www.ialway.com/blog] 閱讀(1213)
評論(0) 編輯 收藏 所屬分類:
PHP