manbackupdel.asp

此程序为网上下载

<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" then Response.Redirect "manerr.asp?id=100"
if grade<>12 or Session("ipbt")<>"1" then Response.Redirect "manerr.asp?id=250"
copyfromfilepath=server.Mappath("backup/global.mdb")
Set fs=CreateObject("Scripting.FileSystemObject")
if fs.FileExists(copyfromfilepath) then fs.DeleteFile copyfromfilepath,true
Set fs=nothing
Response.Redirect "ok.asp?id=302"%>