asp下载sql数据库

<%
Dim conn, rs, filePath
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "YourConnectionString"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM YourTable", conn

filePath = Server.MapPath("~/Backup/YourDatabase.mdf")
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=YourDatabase.mdf"

Dim fileStream
Set fileStream = Server.CreateObject("ADODB.Stream")
fileStream.Type = 1 ' adTypeBinary
fileStream.Open
fileStream.Write rs("YourField").Value
fileStream.SaveToFile filePath, 2 ' adSaveCreateOverWrite
fileStream.Close
Set fileStream = Nothing

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>

<%
Dim conn, rs, csvContent
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "YourConnectionString"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM YourTable", conn

csvContent = ""
Do While Not rs.EOF
    csvContent = csvContent & rs("Field1") & "," & rs("Field2") & vbCrLf
    rs.MoveNext
Loop

Response.ContentType = "text/csv"
Response.AddHeader "Content-Disposition", "attachment; filename=export.csv"

Response.Write csvContent

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>