asp在线备份sql server数据库：1、备份<%SQL="backup database 数据库名 to disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"set cnn=Server.createobject("adodb.connection")cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="cnn.execute SQLon error resume nextif err<>0 then response.write "错误："&err.Descriptingelse response.write "数据备份成功！"end if%>2、恢复<%SQL="Restore database 数据库名 from disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"set cnn=Server.createobject("adodb.connection")cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd="cnn.execute SQLon error resume nextif err<>0 then response.write "错误："&err.Descriptingelse response.write "数据恢复成功！"end if%>ACCESS原理一样 <% '*****************************************function CopyTo(ByVal cFile,ByVal toFile) cFile=Server.MapPath(cFile) ‘所要备份的文件 toFile=Server.MapPath(toFile) ‘备份文件 Dim cFso,cf set cFso=Server.CreateObject("Scripting.FileSystemObject") cFso.fileexists(cFile) cFso.Copyfile cFile,toFileend function'********************************************* ASP实现备份及恢复ACCESS数据库操作本页面为 databackup.aspdim dbpath,bkfolder,bkdbname,fso,fso1 call main() call main2() conn.close set conn=nothingsub main()if request("action")="Backup" then call backupdata()else%> <table cellspacing=1 cellpadding=1 align=center width="90%"> <tr> <th height=25 > <B>数据库备份</B> </th> </tr> <form method="post" action="databackup.asp?action=Backup"> <tr> <td height=100 style="line-height:150%"> 当前数据库路径(相对路径)： <input type=text size=15 name=DBpath value="../mdb/database.mdb"><BR> 备份数据库目录(相对路径)： <input type=text size=15 name=bkfolder value=../Databackup> 如目录不存在，程序将自动创建<BR> 备份数据库名称(填写名称)： <input type=text size=15 name=bkDBname value=database.mdb> 如备份目录有该文件，将覆盖，如没有，将自动创建<BR> <input type=submit value="备份数据"><hr align="center" width="90%" color="#999999"></td> </tr> </form> </table> <%end ifend subsub main2()if request("action")="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) Response.write Backpath Set Fso=server.createobject("scripting.filesystemobject") if fso.fileexists(dbpath) then fso.copyfile Dbpath,Backpath response.write "<font color=red>成功恢复数据！</font>" else response.write "<font color=red>备份目录下并无您的备份文件！</font>" end ifelse%> <table align=center cellspacing=1 cellpadding=1 width="90%"> <tr> <th height=25 > <B>恢复数据库</B> </th> </tr> <form method="post" action="databackup.asp?action=Restore"> <tr> <td height=100 > 备份数据库路径(相对)： <input type=text size=30 name=DBpath value="../Databackup/database.mdb"> <BR> 当前数据库路径(相对)： <input type=text size=30 name=backpath value="../mdb/database.mdb"><BR> <input type=submit value="恢复数据"> <hr width="90%" align="center" color="#999999"> <font color="#666666">·注意：所有路径都是相对路径 </font></td> </tr> </form></table><%end ifend subsub backupdata() 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 "<font color=red>备份数据库成功，您备份的数据库路径为" &bkfolder& "\\"& bkdbname+"</font>" Else response.write "<font color=red>找不到您所需要备份的文件。</font>" End ifend 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 = nothingEnd Function'-------------根据指定名称生成目录---------Function MakeNewsDir(foldername) dim f Set fso1 = CreateObject("Scripting.FileSystemObject") Set f = fso1.CreateFolder(foldername) MakeNewsDir = True Set fso1 = nothingEnd Function%>
评论