针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2674629
建立时间: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.submit
End 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,mto
msvr=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 next
set dmosvr=server.CreateObject("SQLDMO.SQLServer")
dmosvr.connect msvr,muid,mpwd
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
mdevname="Backup_"&muid&"_"&mdb
set dmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=mto
dmosvr.BackupDevices.Add dmodev
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
set dmobak=server.CreateObject("SQLDMO.Backup")
dmobak.database=mdb
dmobak.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 dmosvr
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
dmosvr.backupdevices(mdevname).remove
set dmobak=nothing
set dmodev=nothing
dmosvr.disconnect
set 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 全部选择 提示：你可先修改部分代码，再按运行] |
|
rs.open sql,conn,1,1 的后两个 1，1 的涵义
|
作者: 加入时间: 2005-01-20 文档类型: 来自: 柠檬树下
浏览统计: total: 38 year: 38 quarter: 38 month: 38 week: 38 today: 1
第一个1是游标类型
第二个1是锁类型
rs.open sql,conn,1,1 的后两个 1，1 各代表什么？
RS.OPEN SQL,CONN,A,B
A: ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移动
ADOPENSTATIC(=3) 只读,当前数据记录可自由移动
ADOPENKEYSET(=1) 可读写,当前数据记录可自由移动
ADOPENDYNAMIC(=2) 可读写,当前数据记录可自由移动,可看到新增记录
B: ADLOCKREADONLY(=1) 默认值,用来打开只读记录
ADLOCKPESSIMISTIC(=2) 悲观锁定
ADLOCKOPTIMISTIC(=3) 乐观锁定
ADLOCKBATCHOPTIMISTIC(=4) 批次乐观锁定 |
|
|
