response.Charset = "utf-8"

Session.Codepage = 65001

Response.Buffer=true

Response.Clear

constr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=endiva;Password=endiva;Data Source=211.160.78.6"

set conn=server.createobject("adodb.connection")

conn.open constr

bkfname=server.mappath(Format_Time(Now(),5)&"database.bak")

sqlstr="backup database fang to disk='"+bkfname+"' with init"

conn.execute sqlstr

conn.close

response.Write "database [fang] is backup success!
"

response.Write "click download"

如果想直接备份并下载，可以加上下边的这部分，就会备份后自动保存。但是弹出的文件是.asp的文件，修改下就OK。