<% 
'SQL Server 数据库的备份与恢复! 
if request("action")="backupdatabase" Then 
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act 
sqlserver = "localhost"
sqlname = "sa"
sqlpassword ="password"
sqlLoginTimeout = 15
databasename = trim(request("databasename")) 
bak_file = trim(request("bak_file")) 
bak_file = replace(bak_file,"$1",databasename)
act = lcase(request("act"))
http://dev.csdn.net/article/54612.shtm

用SQL备份和恢复SQL SERVER数据库
选择自 qihboy 的 Blog
http://dev.csdn.net/article/54612.shtm