针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2673602
建立时间:2005年1月1日 |
|
|
| |
 ASP备份数据库
|
|
作者: 不详 加入时间: 2004-10-25 文档类型: 来自: 浏览统计: total: 24 year: 24 quarter: 24 month: 24 week: 8 today: 1
文件1：BackupDB.asp==================代码：
<%@ Language=VBScript %><META content=VBScript name=VI60_defaultClientScript><META content="Microsoft FrontPage 4.0" name=GENERATOR><SCRIPT language=vbscript id=clientEventHandlersVBS><!--Sub btnbak_onclick if frmbak.txtsvr.value="" then window.alert("'Server Name' is empty!") frmbak.txtsvr.focus exit sub end if if frmbak.txtuid.value="" then window.alert("'Administrators' is empty!") frmbak.txtuid.focus exit sub end if if frmbak.txtdb.value="" then window.alert("'Database' is empty!") frmbak.txtdb.focus exit sub end if if frmbak.txtto.value="" then window.alert("'Backup To' is empty!") frmbak.txtto.focus exit sub end if frmbak.submitEnd Sub--></SCRIPT></TD></TR></TBODY></TABLE><LINK href="../../sheets/B2BStyle.css" rel=stylesheet><FORM id=frmbak name=frmbak action=backupdbsave.asp method=post><P class=heading>Database --> Backup</P><P align=center><DIV align=center><CENTER><TABLE cellSpacing=1 cellPadding=1 width="60%" align=center border=0><TBODY><TR><TD class=TD_Mand_FN align=middle width="40%" height=35>Server Name:</TD><TD class=TD_Mand_F width="59%" height=35><INPUT id=txtsvr style="FONT-SIZE: 9pt; FONT-FAMILY: Arial" name=txtsvr></TD></TR><TR><TD class=TD_Mand_FN align=middle width="40%" height=35>Administrators:</TD><TD class=TD_Mand_F width="59%" height=35><INPUT id=txtuid style="FONT-SIZE: 9pt; FONT-FAMILY: Arial" name=txtuid></TD></TR><TR><TD class=TD_Mand_FN align=middle width="40%" height=35>Password:</TD><TD class=TD_Mand_F width="59%" height=35><INPUT id=txtpwd style="FONT-SIZE: 9pt; FONT-FAMILY: Arial" type=password name=txtpwd></TD></TR><TR><TD class=TD_Mand_FN align=middle width="40%" height=35>Database:</TD><TD class=TD_Mand_F width="59%" height=35><P align=left><INPUT id=txtdb style="FONT-SIZE: 9pt; FONT-FAMILY: Arial" name=txtdb></P></TD></TR><TR><TD class=TD_Mand_FN align=middle width="40%" height=35>Backup To:<BR><U>(Server Path)</U></TD><TD class=TD_Mand_F width="59%" height=35><INPUT id=txtto style="FONT-SIZE: 9pt; FONT-FAMILY: Arial" name=txtto></TD></TR></TBODY></TABLE></CENTER></DIV><P align=center><INPUT id=btnbak style="FONT-SIZE: 9pt; FONT-FAMILY: Arial" type=button value="Start Backup" name=btnbak></P></FORM></SPAN></=============================文件2：BackupDBSave.asp<%@ Language=VBScript %><%dim msvr,muid,mpwd,mdb,mtomsvr=Request.Form("txtsvr")muid=Request.Form("txtuid")mpwd=Request.Form("txtpwd")mdb=Request.Form("txtdb")mto=Request.Form("txtto")if mpwd="" then mpwd="''"on error resume nextset dmosvr=server.CreateObject("SQLDMO.SQLServer")dmosvr.connect msvr,muid,mpwdif err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)mdevname="Backup_"&muid&"_"&mdbset dmodev=server.CreateObject("SQLDMO.BackupDevice")dmodev.name=mdevnamedmodev.type=2dmodev.PhysicalLocation=mtodmosvr.BackupDevices.Add dmodevif err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)set dmobak=server.CreateObject("SQLDMO.Backup")dmobak.database=mdbdmobak.devices=mdevname%><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><body background="../../Images/dot.gif"><p><strong>Backuping, wait please...</strong></p><%dmobak.sqlbackup dmosvrif err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)dmosvr.backupdevices(mdevname).removeset dmobak=nothingset dmodev=nothingdmosvr.disconnectset dmosvr=nothing%><p><strong>Database '<%=mdb%>' backup successed!</strong></p></BODY></HTML>文件3：BackupErr.asp代码运行框：<%@ Language=VBScript %>
<%
dim errno,errstr
errno=Request.QueryString("err")
errstr=""
select case cstr(errno)
case "18456"
errstr="administrators or password error!"
case "20482"
errstr="server name error or server cannot connect!"
case "911"
errstr="database not found!"
case "15026"
errstr="server path not found!"
case "3201"
errstr="server path not found!"
case "3254"
errstr="restore from file lawlessness!"
case else
errstr="unknown error! retry later please!"
end select
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub btnret_onclick
history.back
End Sub
-->
</SCRIPT>
<title></title>
</HEAD>
<body class="bg_frame_up">
<p align=center><font color=#006666><%=errstr%></font></p>
<p align=center><input id=btnret name=btnret type=button value=Return style="font-family: Arial; font-size: 9pt"></p>
</BODY>
</HTML>
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行] |
|
|
