asp数据库读取写成类

<%@ Language=VBScript %>
Class DatabaseHelper
    Private conn

    Public Sub Class_Initialize()
        Dim connectionString
        connectionString = "Provider=SQLOLEDB;Data Source=yourServer;Initial Catalog=yourDatabase;User ID=yourUsername;Password=yourPassword;"
        Set conn = Server.CreateObject("ADODB.Connection")
        conn.Open connectionString
    End Sub

    Public Function ExecuteQuery(query As String) As ADODB.Recordset
        Dim rs
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.Open query, conn
        Set ExecuteQuery = rs
    End Function

    Public Sub Close()
        If Not conn Is Nothing Then
            conn.Close
            Set conn = Nothing
        End If
    End Sub

    Private Sub Class_Terminate()
        Close
    End Sub
End Class

' 使用示例
Dim dbHelper
Set dbHelper = New DatabaseHelper
Dim rs
Set rs = dbHelper.ExecuteQuery("SELECT * FROM yourTable")
While Not rs.EOF
    Response.Write rs("columnName") & "<br>"
    rs.MoveNext
Wend
rs.Close
Set rs = Nothing
dbHelper.Close
Set dbHelper = Nothing