'備份數據庫并提供下載的asp文件
<%
Response.Buffer=true
Response.Clear

'根據你的情況修改用戶名和密碼
constr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用戶名;Password=密碼;Data Source=(local)"

set conn=server.createobject("adodb.connection")
conn.open constr
bkfname=server.mappath("數據庫備份.bak")
sqlstr="backup database pubs to disk='"+bkfname+"' with init"
conn.execute sqlstr
conn.close

set fn=server.createobject("adodb.stream")
fn.mode=3
fn.type=1
fn.open
fn.LoadFromFile bkfname
Response.ContentType="application/octet-stream"
Response.BinaryWrite fn.read
fn.close
%>