巧用SQL-DMO创建备份及校验的ASP应用

概述
　　
　　SQL分布式管理对象(SQLDistributedManagementobjects,SQL-DMO)为开发者提供了使用程序和脚本语言执行普通任务的方法，从而扩展了SQLServer功能。本文谈论如何巧妙的利用SQL-DMO创建数据库备份和校验的ASP应用。
　　
　　前提
　　
　　你需要有SQLServer数据库备份的相关知识。另外还要在global.asa文件中加入SQL-DMO库的引用。以下是SQLServer2000的引用：
　　
　　
　　
　　本文示例代码适用于SQL7.0,MSDE,和SQLServer2000。
　　
　　喜与忧
　　
　　使用SQL-DMO对象让人且喜且忧。它提供了非常丰富的功能，以至于不知该如何使用。本文只讨论示例涉及的对象属性和方法。你可以在SQLServer在线教学上找到许多相关信息。
　　
　　SQLDMO.SQLServer
　　
　　用于连接SQLServer数据库：
　　
　　<%DimsrvSetsrv=Server.CreateObject("SQLDMO.SQLServer")srv.LoginTimeout=15srv.Connect"servername","username","password"%>
　　
　　这里通过代入用户名和口令来连接SQLServer数据库。如果要使用NT的身份认证，就将它的LoginSecure属性设为真(TRUE)，忽略代入的用户名和口令，而使用NT的注册信息。
　　
　　SQLDMO.Database
　　
　　列出服务器中的数据库。在本文示例中，对列出的数据库进行备份。下面的代码将服务器中的数据库列于下拉菜单：
　　
　　<%DimsrvDimobjDBSetsrv=Server.CreateObject("SQLDMO.SQLServer")srv.LoginTimeout=15srv.Connect"servername","username","password"SetobjDB=Server.CreateObject("SQLDMO.Database")%><SELECTname="fdatabase"><%ForEachobjDBInsrv.DatabasesIfobjDB.SystemObject=FalseThen%><OPTION><%=objDB.Name%></OPTION><%EndIfNext%></SELECT>
　　
　　SQLDMO.BackupDevice
　　
　　列出服务器上安装的备份装置。我建议使用备份装置来备份数据库。因为这样可以使用SQL-DMO的校验功能来校验备份情况。下面的代码列出服务器上的备份装置：
　　
　　<%DimsrvDimobjDeviceSetsrv=Server.CreateObject("SQLDMO.SQLServer")srv.LoginTimeout=15srv.Connect"servername","username","password"SetobjDevice=Server.CreateObject("SQLDMO.BackupDevice")ForEachobjDeviceInsrv.BackupDevicesResponse.WriteobjDevice.Name+" "Next%>
　　
　　SQLDMO.Backup
　　
　　这就是我们要用到的备份核心对象。它有许多属性，让我们作到与企业版SQL管理器一样水平的备份。先讨论一下本文示例用到的属性。
　　
　　BackupSetName-备份文件名。
　　
　　Database-要备份的数据库。
　　
　　Action-全部或增量备份。还有其他选项，不过示例中只用到这二个。
　　
　　BackupSetDescription-备份说明。
　　
　　Files-文件备份选项。标明备份文件的路径和名字，如：C:\pubs.bak。使用文件备份时，下面的备份装置名要设置为空。
　　
　　Devices-服务器上的备份装置。如果使用备份装置，上面的文件备份选项要设置为空。
　　
　　TruncateLog-备份日志选项。其选项有：
　　
　　NoLog-不备份交易日志。
　　
　　NoTruncate-备份交易日志。日志里提供时间标记。
　　
　　Truncate-备份交易日志，但不保留交易纪录。
　　
　　Initialize-如设置为真(True)，该备份装置将取代其他备份媒介而成为首选。
　　
　　以下是示例中的backup.asp文件：
　　
　　<%@Language=VBScript%><HTML><BODY><%DimobjBackup'创建备份对象setobjBackup=Server.CreateObject("SQLDMO.Backup")'设置属性objBackup.BackupSetName=Request("fname")objBackup.Database=Request("fdatabase")objBackup.Action=Request("fAction")objBackup.BackupSetDescription=Request("fdescription")objBackup.Files=Request("fbackupfile")objBackup.Devices=Request("fdevice")objBackup.TruncateLog=Request("flog")objBackup.Initialize=Request("finit")'备份数据库objBackup.SQLBackupsrv'断开与服务器的连接srv.disconnect'释放setsrv=nothingsetobjBackup=Nothing%>Thebackupwasstarted,usethe<AHREF="devices.asp">verify</A>optiontoseeifitcompletedsuccessfully.<AHREF="default.asp">Clickhere</A>toreturn.</BODY></HTML>
　　
　　备份校验
　　
　　如果用VB或C++编程，可以用事件触发来校验备份过程，但在ASP中不行。我们用SQLDMO.BackupDevice对象的ReadBackupHeader方法来确认备份是否成功。
　　
　　下面是verify.asp文件代码，它列出备份装置名字并提供最近备份的有关信息。
　　
　　<%@Language=VBScript%><HTML><BODY><%DimobjDeviceDimobjResultsDimiCountDimxCount'创建备份装置对象SetobjDevice=Server.CreateObject("SQLDMO.BackupDevice")'循环直到找到匹配的装置ForEachobjDeviceInsrv.BackupDevicesIfobjDevice.Name=Request("fname")Then'找到匹配装置，开始读取结果SetobjResults=objDevice.ReadBackupHeaderForiCount=1ToobjResults.RowsForxCount=1ToobjResults.Columns%><%=objResults.ColumnName(xcount)%>:<%=objResults.GetColumnString(icount,xcount)%> <%Next%><HR><%Next%><%EndIf%><%Next%><%srv.Disconnectsetsrv=nothingsetobjDevice=nothingsetobjResults=nothing%></BODY></HTML>
　　
　　ReadBackupHeader方法返回QueryResults对象。用其Rows属性可以得到备份的纪录数。然后对每行纪录作列信息搜索。
　　
　　其他功能
　　
　　SQL-DMO还提供远程备份和恢复功能。本文没有涉及数据库恢复，但SQL-DMO有很强的恢复功能。

分享到：