ASP备份SQL Server数据库

<%   
'调用方法:  DBbackup.asp?dbName=数据库名称  
'只能备份IIS所在的服务器SQL数据库(不能备份远程SQL数据库)。  
'Eric 2009.12.7 14:18  
const conf_dbhost       = "(local)"   
const conf_dbuser       = "sa"      '数据库用户名  
const conf_dbpassword   = "inchbyinch" '数据库密码  
dim conf_dbname  
Dim conf_dbSavePath  
conf_dbname = trim(request.QueryString("dbName"))  
conf_dbSavePath = server.MapPath(".\")&"\"&conf_dbname&getDateTimeSeries()&".bak"  
If conf_dbname <>"" then  
    Set connObj = Server.CreateObject("ADODB.Connection")  
    connObj.Open "driver={SQL Server};server=" & conf_dbhost & ";u)   
fso.GetFile(fileName).Delete()  
Set fso = nothing  
End Function   
%>