adofunctions.asp

本系统用来开发网络开发系统的实现

<!-- #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(db) & "../data/" & FileName               
        objConn.Open                                                                  

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

    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(db) & "../data/" & FileName                    
        objConn.Open

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