asp数据库导出excel

<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=exported_data.xls"
%>

<%
Response.Charset = "UTF-8"
%>

<%@ Language=VBScript %>
<%
Dim conn, rs, sql
Dim ExcelFileName
ExcelFileName = "exported_data.xls"

' 设置响应头
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=" & ExcelFileName
Response.Charset = "UTF-8"

' 连接数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;User ID=your_username;Password=your_password;"

' 查询数据
sql = "SELECT * FROM your_table"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn

' 输出数据到Excel
Response.Write "<table border='1'>"
Do While Not rs.EOF
    Response.Write "<tr>"
    For Each field In rs.Fields
        Response.Write "<td>" & field.Value & "</td>"
    Next
    Response.Write "</tr>"
    rs.MoveNext
Loop
Response.Write "</table>"

' 关闭连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>