gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_db_backup.asp
<% if Request.Cookies("admindj")<>"1" then Response.Write "<BR><BR><BR><BR><center>权限不足,你没有此功能的管理权限" Response.end end if sss=LCase(request.servervariables("QUERY_STRING")) GuoLv="select,insert,;,update,',delete,exec,admin,count,drop" GuoLvA=split(GuoLv,",") for i=0 to ubound(GuoLvA) if instr(sss,GuoLvA(i))<>0 then Response.Redirect "res://shdoclc.dll/dnserror.htm" response.end end if next %> <!--#include file = admin_chk.asp --> <!--#include file = titleb.asp --> <STYLE type="text/css"> <!-- a:link {text-decoration: none; font-family: AdobeSm; color: #000000 } a:visited {text-decoration: none; color: #000000 } A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline} body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000} TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all} p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000} select {FONT-SIZE: 9PT;font-family: 宋体} option {FONT-SIZE: 9pt;font-family: 宋体} textarea {FONT-SIZE: 9pt;font-family: 宋体} --> </STYLE> <% dim action dim admin_flag action=trim(request("action")) dim dbpath,bkfolder,bkdbname,fso,fso1 Dim uploadpath '备份数据 select case action case "BackupData" '备份数据 if request("act")="Backup" then call updata() else call BackupData() end if case "RestoreData" '恢复数据 dim backpath 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 "<br>" response.write "<br>" response.write "<br>" response.write "<center>成功恢复数据!" response.write "</center>" else response.write "备份目录下并无您的备份文件!" end if else call RestoreData() end if end select '====================备份数据库========================= sub BackupData() If IsSqlDataBase = 1 Then SQLUserReadme() Exit Sub End If %> <body bgcolor="#EFEFDE"> <div align="center"> <table border="0" cellspacing="1" cellpadding="5" height="1" width="80%" class="tableBorder"> <tr> <th height=20 > <B>备份数据</B>( 需要FSO支持,FSO相关帮助请看微软网站 ) </th> </tr> <form method="post" action="admin_db_backup.asp?action=BackupData&act=Backup"> <tr> <td height=20 class="forumrow"> </td> </tr> <tr> <td height=20 class="forumrow"> 当前数据库路径(相对路径):<input type=text size=45 name=DBpath value="<%=finddir(request.servervariables("URL"))%>data/#db1.asp"></td> </tr> <tr> <td height=20 class="forumrow"> 备份数据库目录(相对路径):<input type=text size=45 name=bkfolder value=Databackup> <br> <font color="#FF0000">如目录不存在,程序将自动创建</font></td> </tr> <tr> <td height=20 class="forumrow"> 备份数据库名称(填写名称):<input type=text size=45 name=bkDBname value=#db1.mdb> <br> <font color="#FF0000">如备份目录有该文件,将覆盖,如没有,将自动创建</font></td> </tr> <tr> <td height=20 class="forumrow"> <p align="center"> <input type=submit value="备份数据" style="border: 1px solid #FFFFFF"></td> </tr> <tr> <td class="forumrow"> <font color="#FF0000">在上面填写本程序的数据库路径全名,本程序的默认数据库文件为database/#db1.mdb,<B><br> 请一定不能用默认名称命名备份数据库</B>您可以用这个功能来备份您的法规数据,以保证您的数据安全!<br> 注意:所有路径都是相对与程序空间根目录的相对路径 </font> </font> </td> </tr> <tr> <td class="forumrow"> </td> </tr> </form> </table> </div> <% end sub 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 "<br>" response.write "<br>" response.write "<br>" response.write "<center>备份数据库成功,您备份的数据库路径为 服务器空间的:" &bkfolder& "\"& bkdbname response.write "</center>" Else response.write "找不到您所需要备份的文件。" End if end sub '====================恢复数据库========================= sub RestoreData() %> <div align="center"> <table border="0" cellspacing="1" cellpadding="5" height="160" width="80%" class="tableBorder"> <th height=20 > <B>恢复数据</B>( 需要FSO支持,FSO相关帮助请看微软网站 ) </th> </tr> <form method="post" action="admin_db_backup.asp?action=RestoreData&act=Restore"> <tr> <td height=20 class="forumrow"> </td> </tr> <tr> <td height=20 class="forumrow"> 备份数据库路径(相对):<input type=text size=30 name=DBpath value="DataBackup\#db1.mdb"> </td> </tr> <tr> <td height=20 class="forumrow"> 目标数据库路径(相对):<input type=text size=30 name=backpath value="#db1.mdb"></td> </tr> <tr> <td class="forumrow"> <font color="#FF0000"> 填写您当前使用的数据库路径,如不想覆盖当前文件,可自行命名(注意路径是否正确),然后修改admin_conn.asp<span lang="zh-cn">和member下的conn</span>.<span lang="zh-cn">asp</span>文件,如果目标文件名和当前使用数据库名一致的话,不需修改admin_conn.asp<span lang="zh-cn">和member下的conn</span>.<span lang="zh-cn">asp</span>文件</font></td> </tr> <tr> <td class="forumrow"> <p align="center"> <input type=submit value="恢复数据" style="border: 1px solid #FFFFFF"> </td> </tr> <tr> <td class="forumrow"> <font color="#FF0000"> 在上面填写本程序的数据库路径全名,本程序的默认备份数据库文件为DataBackup\#db1.mdb,请按照您的备份文件自行修改。<br> 您可以用这个功能来备份您的法规数据,以保证您的数据安全!<br> 注意:所有路径都是相对与程序空间根目录的相对路径</font> </font> </td> </tr> </form> </table> </div> <% end sub '------------------检查某一目录是否存在------------------- Function CheckDir(FolderPath) folderpath=Server.MapPath(".")&"\"&folderpath Set fso1 = CreateObject("Scripting.FileSystemObject") If fso1.FolderExists(FolderPath) then '存在 CheckDir = True Else '不存在 CheckDir = False End if Set fso1 = nothing End Function '-------------根据指定名称生成目录----------------------- Function MakeNewsDir(foldername) dim f Set fso1 = CreateObject("Scripting.FileSystemObject") Set f = fso1.CreateFolder(foldername) MakeNewsDir = True Set fso1 = nothing End Function %>