Office中国论坛/Access中国论坛

标题: SqlServer Database Backup Function for ASP [打印本页]

作者: HG 时间: 2004-2-27 18:19
标题: SqlServer Database Backup Function for ASP
备份数据库的asp
<%
'***********连接你的sql server****************
Set srv = Server.CreateObject("SQLDMO.SQLServer")
  srv.LoginTimeout = 15 '连接超时
  srv.Connect "YXY", "xj", "1234"
'************************************************
Dim objDB
Dim objDevice
Set objDevice = Server.CreateObject("SQLDMO.BackupDevice")
Set objDB = Server.CreateObject("SQLDMO.Database")
%>
<form name="form" action="/realestate/weihu/pbackup.asp" method="post" onsubmit="return checkinfo();">
<TABLE>
  <TR>
  <TD><b>备份集名称:</b></TD>
  <TD><INPUT name="fname" size="20" maxlength="50" value="房地产估价备份" readonly></TD>
  </TR>
  <TR>
  <TD><b>数据库名称：</b></TD>
  <TD><SELECT name="fdatabase">
   <OPTION value=""></OPTION>
   <%
      For Each objDB In srv.Databases
      If objDB.SystemObject = False Then
   %>
      <OPTION value="<%=objDB.Name%>"><%=objDB.Name%></OPTION>
   <%
      End If
      Next
   %>
   </SELECT></TD></TR>
  <TR>
  <TD><b>动作</b></TD>
  <TD><SELECT name="faction">
   <OPTION Value="0" selected>备份为完全数据库</OPTION>
   <OPTION Value="1">备份为差异数据库</OPTION>
   </SELECT>
  </TD>
  </TR>
  <TR>
  <TD>备份文件描述: </TD>
  <TD><INPUT name="fdescription" size="40" maxlength="255" value="备份房地产估价<%=now()%>" readonly></TD>
  </TR>
  <TR>
  <TD><b>备份文件名称</b>: </TD>
  <TD><INPUT name="fbackupfile" size="40" maxlength="50"></TD>
  </TR>
</TABLE>
<div align="center">
   <INPUT type="SUBMIT" value="备份[B]" id="subreset" accesskey="B">
   <INPUT type="reset"  value="重置[R]" id="subreset" accesskey="R">
</div>
</FORM>

'***********连接你的sql server****************
Set srv = Server.CreateObject("SQLDMO.SQLServer")
  srv.LoginTimeout = 15 '连接超时
  srv.Connect "YXY", "xj", "1234"
'************************************************
  Dim objBackup
  'creating the backup object
  set objBackup    = Server.CreateObject("SQLDMO.Backup")
  'setting the properties
  objBackup.BackupSetName  = trim(Request("fname"))
  objBackup.Database    = trim(Request("fdatabase"))
  objBackup.Action       = trim(Request("fAction"))
  objBackup.BackupSetDescription = trim(Request("fdescription"))
  objBackup.Files       = trim(Request("fbackupfile"))
'开始备份
objBackup.SQLBackup srv
  '断开同sql server的连接
srv.disconnect
  set srv = nothing
  set objBackup = Nothing
---------------------------------------------------------------------
同理可以在ADP，或VB中调用此法!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)