设为首页收藏本站
开启辅助访问 切换到窄版

仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
仓酷云»社区 › 程序开发 Program › ASP网页编程 › ASP网站制作之ASP备份数据库
返回列表 发新帖
查看: 400|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网站制作之ASP备份数据库

[复制链接]
老尸 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:16:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x
ASP脚本是采用明文（plaintext）方式来编写的。备份|数据|数据库
文件1：BackupDB.asp

<%@Language=VBScript%>
<HTML>
<HEAD>
<METAname=VI60_defaultClientScriptcontent=VBScript>
<METANAME="GENERATOR"Content="MicrosoftFrontPage4.0">
<SCRIPTID=clientEventHandlersVBSLANGUAGE=vbscript>
<!--
Subbtnbak_onclick
iffrmbak.txtsvr.value=""then
window.alert("ServerNameisempty!")
frmbak.txtsvr.focus
exitsub
endif
iffrmbak.txtuid.value=""then
window.alert("Administratorsisempty!")
frmbak.txtuid.focus
exitsub
endif
iffrmbak.txtdb.value=""then
window.alert("Databaseisempty!")
frmbak.txtdb.focus
exitsub
endif
iffrmbak.txtto.value=""then
window.alert("BackupToisempty!")
frmbak.txtto.focus
exitsub
endif
frmbak.submit
EndSub
-->
</SCRIPT>
<linkrel="stylesheet"href="../../sheets/B2BStyle.CSS">
</HEAD>
<formaction="backupdbsave.asp"method="post"id=frmbakname=frmbak>
<bodyclass="bg_frame_up">
<pclass=heading>Database-->Backup</p>
<Palign=center>
<divalign="center">
<center>
<tablewidth="60%"cellpadding=1cellspacing=1border=0align=center>
<tr>
<tdclass=TD_Mand_FNalign="center"height="35"width="40%">ServerName:</td>
<tdclass=TD_Mand_Fheight="35"width="59%">
<INPUTid=txtsvrname=txtsvrsize="20"style="font-family:Arial;font-size:9pt"></td>
</tr>
<tr>
<tdclass=TD_Mand_FNalign="center"height="35"width="40%">Administrators:</td>
<tdclass=TD_Mand_Fheight="35"width="59%">
<INPUTid=txtuidname=txtuidsize="20"style="font-family:Arial;font-size:9pt"></td>
</tr>
<tr>
<tdclass=TD_Mand_FNalign="center"height="35"width="40%">Password:</td>
<tdclass=TD_Mand_Fheight="35"width="59%">
<INPUTid=txtpwdname=txtpwdtype=passwordstyle="font-family:Arial;font-size:9pt"></td>
</tr>
<tr>
<tdclass=TD_Mand_FNalign="center"height="35"width="40%">Database:</td>
<tdclass=TD_Mand_Fheight="35"width="59%">
<palign="left">
<INPUTid=txtdbname=txtdbsize="20"style="font-family:Arial;font-size:9pt"></p>
</td>
</tr>
<tdclass=TD_Mand_FNalign="center"height="35"width="40%">BackupTo:<br>
<u>(ServerPath)</u></td>
<tdclass=TD_Mand_Fheight="35"width="59%">
<inputid=txttoname=txttostyle="font-family:Arial;font-size:9pt"></td>
</tr>
</table>
</center></div>
<palign=center><inputid=btnbakname=btnbaktype=buttonvalue="StartBackup"style="font-family:Arial;font-size:9pt"></p>
</body>
</form>
</HTML>

文件2：BackupDBSave.asp
<%@Language=VBScript%>
<%
dimmsvr,muid,mpwd,mdb,mto
msvr=Request.Form("txtsvr")
muid=Request.Form("txtuid")
mpwd=Request.Form("txtpwd")
mdb=Request.Form("txtdb")
mto=Request.Form("txtto")
ifmpwd=""thenmpwd=""
onerrorresumenext
setdmosvr=server.CreateObject("SQLDMO.SQLServer")
dmosvr.connectmsvr,muid,mpwd
iferr.number>0thenResponse.Redirect("http:backuperr.asp?err="&err.number)
mdevname="Backup_"&muid&"_"&mdb
setdmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=mto
dmosvr.BackupDevices.Adddmodev
iferr.number>0thenResponse.Redirect("http:backuperr.asp?err="&err.number)
setdmobak=server.CreateObject("SQLDMO.Backup")
dmobak.database=mdb
dmobak.devices=mdevname
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</HEAD>
<bodybackground="../../Images/dot.gif">
<p><strong>Backuping,waitplease...</strong></p>
<%
dmobak.sqlbackupdmosvr
iferr.number>0thenResponse.Redirect("http:backuperr.asp?err="&err.number)
dmosvr.backupdevices(mdevname).remove
setdmobak=nothing
setdmodev=nothing
dmosvr.disconnect
setdmosvr=nothing
%>
<p><strong>Database<%=mdb%>backupsuccessed!</strong></p>
</BODY>
</HTML>

文件3：BackupErr.asp
<%@Language=VBScript%>
<%
dimerrno,errstr
errno=Request.QueryString("err")
errstr=""
selectcasecstr(errno)
case"18456"
errstr="administratorsorpassworderror!"
case"20482"
errstr="servernameerrororservercannotconnect!"
case"911"
errstr="databasenotfound!"
case"15026"
errstr="serverpathnotfound!"
case"3201"
errstr="serverpathnotfound!"
case"3254"
errstr="restorefromfilelawlessness!"
caseelse
errstr="unknownerror!retrylaterplease!"
endselect
%>
<HTML>
<HEAD>
<METAname=VI60_defaultClientScriptcontent=VBScript>
<METANAME="GENERATOR"Content="MicrosoftFrontPage4.0">
<SCRIPTID=clientEventHandlersVBSLANGUAGE=vbscript>
<!--
Subbtnret_onclick
history.back
EndSub
-->
</SCRIPT>
<title></title>
</HEAD>
<bodyclass="bg_frame_up">
<palign=center><fontcolor=#006666><%=errstr%></font></p>
<palign=center><inputid=btnretname=btnrettype=buttonvalue=Returnstyle="font-family:Arial;font-size:9pt"></p>
</BODY>
</HTML>

缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。
Microsoft, content, Backup, 数据库

相关帖子
回复

使用道具 举报

金色的骷髅 该用户已被删除
沙发
发表于 2015-1-20 08:47:15 | 只看该作者
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。
回复 支持 反对

使用道具 举报

灵魂腐蚀 该用户已被删除
板凳
发表于 2015-1-25 16:50:10 | 只看该作者
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。
回复 支持 反对

使用道具 举报

分手快乐 该用户已被删除
地板
发表于 2015-2-3 11:10:28 来自手机 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
回复 支持 反对

使用道具 举报

乐观 该用户已被删除
5#
发表于 2015-2-8 20:11:31 | 只看该作者
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。
回复 支持 反对

使用道具 举报

简单生活 该用户已被删除
6#
发表于 2015-2-26 03:19:52 | 只看该作者
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.
回复 支持 反对

使用道具 举报

爱飞 该用户已被删除
7#
发表于 2015-3-8 11:39:36 | 只看该作者
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。
回复 支持 反对

使用道具 举报

愤怒的大鸟 该用户已被删除
8#
发表于 2015-3-15 22:25:28 | 只看该作者
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?
回复 支持 反对

使用道具 举报

因胸联盟 该用户已被删除
9#
发表于 2015-3-22 17:08:27 | 只看该作者
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 10:40

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表