<% dim path,TP path=trim(request.querystring("path")) TP=trim(request.querystring("TP")) if path="" then Call Error("WML页面地址无效！") end if if TP<>"" 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("WML页面删除成功！
") else response.write(path & "WML页面不存在！
") end if set fso=nothing else Response.write "您确认要删除该WML页面？
" Response.write "是的
" Response.write "取消
" end if %>[WML页面]
[站长工具]
[后台管理]