manbackup.asp

来自「此程序为网上下载」· ASP 代码 · 共 12 行

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