<HTML>
<HEAD>
<TITLE>数据库操作_网页设计家园</TITLE>
<metahttpequiv="ContentType"content="text/html;charset=gb">
</HEAD>
<BODY>
<formmethod="post"name=myform>
<%ifaction="restore"then%><INPUTTYPE="hidden"name="action"value="restore">准备恢复数据库
<%elseifaction="backup"then%><INPUTTYPE="hidden"name="action"value="backup">准备备份数据库<%else%>
选择操作
<INPUTTYPE="radio"name="action"id="act_backup"value="backup"><labelfor=act_backup>备份</label>
<INPUTTYPE="radio"name="action"id="act_restore"value="restore"><labelfor=act_restore>恢复</label><%endif%>
<br>数据库名<INPUTTYPE="text"name="databasename"value="forum">
<br>文件路径<INPUTTYPE="text"name="bak_file"value="forumbak">(备份或恢复的文件路径)<br>
<inputtype="submit"value="确定">
</form>
<%
’SQLServer数据库的备份与恢复!
’
dimsqlserversqlnamesqlpasswordsqlLoginTimeoutdatabasenamebak_fileact
sqlserver="localhost"’sql服务器
sqlname="sa"’用户名
sqlpassword="sa"’密码
sqlLoginTimeout=’登陆超时
databasename=trim(request("databasename"))
bak_file=trim(request("bak_file"))
bak_file=ServerMapPath("backup/"&bak_file)
act=lcase(request("action"))
ifdatabasename=""then
responsewrite"inputdatabasename"
else
ifact="backup"then
Setsrv=ServerCreateObject("SQLDMOSQLServer")
srvLoginTimeout=sqlLoginTimeout
srvConnectsqlserversqlnamesqlpassword
Setbak=ServerCreateObject("SQLDMOBackup")
bakDatabase=databasename
bakDevices=Files
bakFiles=bak_file
bakAction=
bakInitialize=
’bakReplaceDatabase=True
bakSQLBackupsrv
iferrnumber>then
responsewriteerrnumber&"<fontcolor=red><br>"
responsewriteerrdescription&"</font>"
endif
Responsewrite"<fontcolor=green>备份成功!</font>"
srvdisconnect
Setsrv=nothing
Setbak=nothing
elseifact="restore"then
’恢复时要在没有使用数据库时进行！
Setsrv=ServerCreateObject("SQLDMOSQLServer")
srvLoginTimeout=sqlLoginTimeout
srvConnectsqlserversqlnamesqlpassword
Setrest=ServerCreateObject("SQLDMORestore")
restAction=’fulldbrestore
restDatabase=databasename
restDevices=Files
restFiles=bak_file
restReplaceDatabase=True’Forcerestoreoverexistingdatabase
iferrnumber>then
responsewriteerrnumber&"<fontcolor=red><br>"
responsewriteerrdescription&"</font>"
endif
restSQLRestoresrv
Responsewrite"<fontcolor=green>恢复成功!</font>"
srvdisconnect
Setsrv=nothing
Setrest=nothing
else
Responsewrite"<fontcolor=red>没有选择操作</font>"
endif
endif
%>
</BODY>
</HTML>
