asp 读取mysql

<%@ Language=VBScript %>
<%
    ' 数据库连接信息
    Dim connStr
    connStr = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=your_server;PORT=3306;DATABASE=your_database;UID=your_username;PWD=your_password;"

    ' 创建数据库连接
    Dim conn
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open connStr

    ' 执行SQL查询
    Dim sql
    sql = "SELECT * FROM your_table"
    Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn

    ' 处理查询结果
    Dim row
    Do While Not rs.EOF
        Response.Write "ID: " & rs("id") & ", Name: " & rs("name") & "<br>"
        rs.MoveNext
    Loop

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