asp连接数据库代码

<%@ Language=VBScript %>
<%
    Dim conn
    Dim connStr
    Dim rs
    Dim sql

    ' 数据库连接字符串
    connStr = "Provider=SQLOLEDB;Data Source=your_server_name;Initial Catalog=your_database_name;User ID=your_username;Password=your_password;"

    ' 创建连接对象
    Set conn = Server.CreateObject("ADODB.Connection")

    ' 打开连接
    conn.Open connStr

    ' SQL查询语句
    sql = "SELECT * FROM your_table_name"

    ' 创建记录集对象
    Set rs = Server.CreateObject("ADODB.Recordset")

    ' 执行查询
    rs.Open sql, conn

    ' 输出结果
    Do While Not rs.EOF
        Response.Write rs("column_name") & "<br>"
        rs.MoveNext
    Loop

    ' 关闭记录集和连接
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
%>