aspexcel做数据库查询

<%@ Language=VBScript %>
<%
Dim conn, rs, sql
Dim ExcelApp, ExcelWorkbook, ExcelWorksheet

' 建立数据库连接
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 查询
sql = "SELECT * FROM your_table"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn

' 创建 Excel 应用程序对象
Set ExcelApp = Server.CreateObject("Excel.Application")
ExcelApp.Visible = False

' 创建 Excel 工作簿和工作表
Set ExcelWorkbook = ExcelApp.Workbooks.Add
Set ExcelWorksheet = ExcelWorkbook.Worksheets(1)

' 将查询结果写入 Excel 文件
Dim i, j
i = 1
Do While Not rs.EOF
    For j = 0 To rs.Fields.Count - 1
        ExcelWorksheet.Cells(i, j + 1).Value = rs.Fields(j).Value
    Next
    i = i + 1
    rs.MoveNext
Loop

' 保存并关闭 Excel 文件
ExcelWorkbook.SaveAs "C:\path\to\your\file.xlsx"
ExcelWorkbook.Close
ExcelApp.Quit

' 关闭数据库连接
rs.Close
conn.Close

Set rs = Nothing
Set conn = Nothing
Set ExcelWorksheet = Nothing
Set ExcelWorkbook = Nothing
Set ExcelApp = Nothing
%>