manbackupre.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=150"
copyfromfilepath=server.Mappath("backup/global.mdb")
copytofilepath=server.Mappath("noread/global.asa")
Set fs=CreateObject("Scripting.FileSystemObject")
if fs.FileExists(copyfromfilepath) then fs.CopyFile copyfromfilepath,copytofilepath,true
Set fs=nothing
Response.Redirect "ok.asp?id=301"%>