<%
 '/// <summary>
 '/// AccHelper 的摘要说明。
 '/// </summary>
 Class AccHelper

  Public CONN_STRING

  '/// <summary>
  '/// 执行ExecuteNonQuery
  '/// </summary>
  '/// <param name="connString">连接字符</param>
  '/// <param name="cmdText">sql命令</param>
  Public Function ExecuteNonQuery(connString,cmdText)
  
   Dim objConn
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   objConn.Execute(cmdText)

  End Function

  '/// <summary>
  '/// 执行ExecuteReader
  '/// </summary>
  '/// <param name="connString">连接字符</param>
  '/// <param name="cmdText">sql命令</param>
  '/// <returns>RS</returns>
  Public Function ExecuteReader(connString,cmdText)
 
   Dim objConn,objRS
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   Set objRS = objConn.Execute(cmdText)
   Set ExecuteReader = objRS

  End Function

  '/// <summary>
  '/// 执行Recordset
  '/// </summary>
  '/// <param name="connString">连接字符</param>
  '/// <param name="cmdText">sql命令</param>
  '/// <returns>RS</returns>
  Public Function Recordset(connString,cmdText)
 
   Dim objConn,objRS
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open connString
   Set objRS = Server.CreateObject("ADODB.RecordSet")
   objRS.Open cmdText,objConn,1,3
   Set Recordset = objRS

  End Function

  Private Sub Class_Initialize()
   CONN_STRING = "provider = microsoft.jet.oledb.4.0;data source=" & Server.Mappath("db.mdb")
  End Sub

 End Class
%>