您正在使用 IPV4 [3.236.145.153] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
悟空收录网       [公益]保护绿色环境,构建和谐社会      

【腾讯云】云服务器、云数据库、COS、CDN、短信等云产品特惠热卖中      
[公益] 地球是我家,绿化靠大家      
2024年 妇女节 010
2024年 清明节 037
2025年 元 旦 309
2025年 春 节 337
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
asp 在线备份与恢复sqlserver数据库的代码
内容摘要: asp在线备份sqlserver数据库:1、备份sqlserver代码如下:%SQL='backupdatabase数据库名todisk=''Server.MapPath('backup')'\''backuptext.dat''''setcnn=Server.createobject('adodb.connection')cnn.open'driver={......
asp在线备份sqlserver数据库:

1、备份sqlserver

代码如下:

<%

SQL="backupdatabase数据库名todisk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"

setcnn=Server.createobject("adodb.connection")

cnn.open"driver={SQLServer};Server=服务器名;uid=sa;pwd="

cnn.executeSQL

onerrorresumenext

iferr<>0then

response.wrITe"错误:"&err.Descripting

else

response.wrITe"数据备份成功!"

endif

%>

2、恢复sqlserver

代码如下:

<%

SQL="Restoredatabase数据库名fromdisk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'"

setcnn=Server.createobject("adodb.connection")

cnn.open"driver={SQLServer};Server=服务器名;uid=sa;pwd="

cnn.executeSQL

onerrorresumenext

iferr<>0then

response.wrITe"错误:"&err.Descripting

else

response.wrITe"数据恢复成功!"

endif

%>

ACCESS原理一样

代码如下:

<%

'*****************************************

functionCopyTo(ByValcFile,ByValtoFile)

cFile=Server.MapPath(cFile)‘所要备份的文件

toFile=Server.MapPath(toFile)‘备份文件

DimcFso,cf

setcFso=Server.CreateObject("Scripting.FileSystemObject")

cFso.fileexists(cFile)

cFso.CopyfilecFile,toFile

endfunction

'*********************************************

'ASP实现备份及恢复ACCESS数据库操作

'本页面为databackup.asp

dimdbpath,bkfolder,bkdbname,fso,fso1

callmain()

callmain2()

conn.close

setconn=nothing

submain()

ifrequest("action")="Backup"then

callbackupdata()

else

%>

<tablecellspacing=1cellpadding=1align=centerwidth="90%">

<tr>

<thheight=25>

&nbsp;&nbsp;<B>数据库备份</B>

</th>

</tr>

<formmethod="post"action="databackup.asp?action=Backup">

<tr>

<tdheight=100style="line-height:150%">

&nbsp;&nbsp;

当前数据库路径(相对路径):

<inputtype=textsize=15name=DBpathvalue="../mdb/database.mdb"><BR>

&nbsp;&nbsp;备份数据库目录(相对路径):

<inputtype=textsize=15name=bkfoldervalue=../Databackup>&nbsp;如目录不存在,程序将自动创建<BR>

&nbsp;&nbsp;备份数据库名称(填写名称):

<inputtype=textsize=15name=bkDBnamevalue=database.mdb>&nbsp;如备份目录有该

文件,将覆盖,如没有,将自动创建<BR>

&nbsp;&nbsp;<inputtype=submITvalue="备份数据"><hralign="center"width="90%"color="#999999"></td>

</tr>

</form>

</table>

<%

endif

endsub

submain2()

ifrequest("action")="Restore"then

Dbpath=request.form("Dbpath")

backpath=request.form("backpath")

ifdbpath=""then

response.wrITe"请输入您要恢复成的数据库全名"

else

Dbpath=server.mappath(Dbpath)

endif

backpath=server.mappath(backpath)

Response.wrITeBackpath

SetFso=server.createobject("scripting.filesystemobject")

iffso.fileexists(dbpath)then

fso.copyfileDbpath,Backpath

response.wrITe"<fontcolor=red>成功恢复数据!</font>"

else

response.wrITe"<fontcolor=red>备份目录下并无您的备份文件!</font>"

endif

else

%>

<tablealign=centercellspacing=1cellpadding=1width="90%">

<tr>

<thheight=25>

&nbsp;&nbsp;<B>恢复数据库</B>

</th>

</tr>

<formmethod="post"action="databackup.asp?action=Restore">

<tr>

<tdheight=100>

&nbsp;&nbsp;备份数据库路径(相对):

<inputtype=textsize=30name=DBpathvalue="../Databackup/database.mdb">&nbsp;&nbsp;<BR>

&nbsp;&nbsp;当前数据库路径(相对):

<inputtype=textsize=30name=backpathvalue="../mdb/database.mdb"><BR>

&nbsp;&nbsp;<inputtype=submITvalue="恢复数据"><hrwidth="90%"align="center"color="#999999">

&nbsp;&nbsp;<fontcolor="#666666">·注意:所有路径都是相对路径&nbsp;&nbsp;</font></td>

</tr>

</form>

</table>

<%

endif

endsub

subbackupdata()

Dbpath=request.form("Dbpath")

Dbpath=server.mappath(Dbpath)

bkfolder=request.form("bkfolder")

bkdbname=request.form("bkdbname")

SetFso=server.createobject("scripting.filesystemobject")

iffso.fileexists(dbpath)then

IfCheckDir(bkfolder)=TrueThen

fso.copyfiledbpath,bkfolder&"\\"&bkdbname

else

MakeNewsDirbkfolder

fso.copyfiledbpath,bkfolder&"\\"&bkdbname

endif

response.wrITe"<fontcolor=red>备份数据库成功,您备份的数据库路径为"&bkfolder&"\\"&bkdbname+"</font>"

Else

response.wrITe"<fontcolor=red>找不到您所需要备份的文件。</font>"

Endif

endsub

'------------------检查某一目录是否存在-------------------

FunctionCheckDir(FolderPath)

folderpath=Server.MapPath(".")&"\\"&folderpath

Setfso1=CreateObject("Scripting.FileSystemObject")

Iffso1.FolderExists(FolderPath)then

'存在

CheckDir=True

Else

'不存在

CheckDir=False

Endif

Setfso1=nothing

EndFunction

'-------------根据指定名称生成目录---------

FunctionMakeNewsDir(foldername)

dimf

Setfso1=CreateObject("Scripting.FileSystemObject")

Setf=fso1.CreateFolder(foldername)

MakeNewsDir=True

Setfso1=nothing

EndFunction

%>

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:asp终极防范SQL注入漏洞

 

下一篇:asp将全角的字符转变成半角字符,将半角转变成全角d的代码

发布日期:2024/1/23
手机扫二维码直达本页
发布时间:12:06:48
点  击:35
录  入:伊伊
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....