adofunctions.asp

来自「一个用来连接access数据库的网页示例 not bad」· ASP 代码 · 共 41 行

<!-- #include file="adovbs.inc" -->  
<%  
    Dim objConn   
    Function GetRecordset(FileName, TableName)
        '使用Connection对象打开数据库文件                                                                               
        Set objConn = Server.CreateObject("ADODB.Connection")                          
        objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                   "Data Source=" & Server.MapPath(FileName)               
        objConn.Open                                                                  

        '从数据表中读取记录并存放在Recordset对象中
        Set GetRecordset = Server.CreateObject("ADODB.Recordset") 
        GetRecordset.Open TableName, objConn, adOpenKeyset, adLockOptimistic, adCmdTable
    End Function    

    Function GetSQLRecordset(strSQL, FileName, TableName)
        '使用Connection对象打开数据库文件                                                                               
        Set objConn = Server.CreateObject("ADODB.Connection")                          
        objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                   "Data Source=" & Server.MapPath(FileName)               
        objConn.Open

        '从数据表中读取符合SQL语句的记录并存放在Recordset对象中
        Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset") 
        GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
    End Function

    Function GetSecureRecordset(FileName, TableName, Password)
        '使用Connection对象打开数据库文件                                                                              
        Set objConn = Server.CreateObject("ADODB.Connection")                          
        objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                   "Data Source=" & Server.MapPath(FileName) & _
                                   ";Jet OLEDB:Database Password=" & Password               
        objConn.Open                                                                  

        '从数据表中读取记录并存放在Recordset对象中
        Set GetSecureRecordset = Server.CreateObject("ADODB.Recordset") 
        GetSecureRecordset.Open TableName, objConn, adOpenKeyset, adLockOptimistic, adCmdTable
    End Function 
%>