ASP网站制作之ASP备份数据库
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>
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?
页:
[1]