<% dim path,TP,ok path=trim(request.querystring("path")) ok=trim(request.querystring("ok")) TP=trim(request.querystring("TP")) if path="" then Call Error("文件地址无效！") end if if ok<>"" then path=Server.MapPath(path) Set fso = server.CreateObject("Scripting.FileSystemObject") IF (fso.FileExists(path)) Then Set delfile = fso.GetFile(path) delfile.Delete set delfile=nothing response.write("文件删除成功！
") else response.write(path & "文件不存在！
") end if set fso=nothing else Response.write "您确认要删除该文件？
" Response.write "是的
" Response.write "取消
" end if %>[返回上级]
[文件管理]
[站长工具]
[后台管理]