adofunctions.asp

我的课程设计

<!-- #include file="adovbs.inc"-->
<%
   Dim objConn
   Function GetRecordset(FileName,TableName)
     ' 打开数据库连接
      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
       GetRecordset.Open TableName,objConn,1,3,adCmdTable
   End Function
   Function GetSQLRecordset(strSQL,FileName,TableName)
     ' 打开数据库连接
      Set objConn=Server.CreateObject("ADODB.Connection")  
      objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath(FileName)
      objConn.Open 
      ' 从表读取记录并存放在Recordset对象
      Set GetSQLRecordset=Server.CreateObject("ADODB.Recordset")
      GetSQLRecordset.Open strSQL,objConn,1,3,adCmdText
    End Function
    Function GetSecureRecordset(FileName,TableName,Password)
     ' 打开数据库连接
      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,1,3,adCmdTable
   End Function
%>