asp查询数据库代码

<%@ Language=VBScript %>
<%
    ' 连接数据库
    Dim conn
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码"

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

    ' 输出结果
    Response.Write "<table border='1'>"
    Response.Write "<tr><th>ID</th><th>Name</th></tr>"
    Do While Not rs.EOF
        Response.Write "<tr>"
        Response.Write "<td>" & rs("ID") & "</td>"
        Response.Write "<td>" < & rs("Name") & "</td>"
        Response.Write "</tr>"
        rs.MoveNext
    Loop
    Response.Write "</table>"

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