<%@ CodePage=65001 Language="VBScript"%>
<%
class classdb

 Private conn
 Public rs
 Public strconn
 
 'Initial class
 Private Sub Class_Initialize

  dbPath = "yourdb.mdb"
  'strconn="Driver={sql server};server=127.0.0.1;database=db;uid=a;pwd=a;"
  'strconn="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dbPath)
  strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dbPath&"")  
  opendb()
  'response.Write("Successful initial class---------<br><br>")
 End Sub
 
 'Terminate class。          
 'clear class
 Private Sub Class_Terminate  
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  'response.Write("<br><br>---------Close database")
 End Sub
 
 'open database
 Public Function opendb()                  
  if isempty(strconn) then
  response.Write("Have set database connect string 'strconn'")
  response.end
  end if
  
  if isempty(conn) then
   Set conn=Server.CreateObject("ADODB.Connection")
   conn.open strconn
  else
   response.Write("Database has open success")
   response.end
  end if
 End Function
 
 'get recordset
 Public Function getrs(ByVal sql)                  
  if isempty(conn) then
  opendb()
  end if
  
  Set rs=Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,1
  getrs=rs
 End Function
 
 'exec sql use to insert update delete recordset
 Public Function exesql(ByVal sql)                  
  if isempty(conn) then
  opendb()
  end if
  conn.execute(sql)
 End Function
end class
on error resume next
'//*************************************************************
’//两个常用函数
Function HTMLDecode(fString)
If Not IsNull(fString) Then 
fString = replace(fString, "&gt;", ">") 
fString = replace(fString, "&lt;", "<") 
fString = Replace(fString, " ", CHR(32))  '&nbsp; 
fString = Replace(fString, " ", CHR(9))   '&nbsp; 
fString = Replace(fString, "&quot;", CHR(34)) 'filter " 
fString = Replace(fString, CHR(39), "&#39;") 'filter '
'fString = Replace(fString, ,"" CHR(13)) 
fString = Replace(fString, "</p><p>", CHR(10) & CHR(10)) 
fString = Replace(fString, "<br>", CHR(10)) 
HTMLDecode = fString
End If
End Function
'//*************************************************************
Function HTMLEncode(fString)
If Not IsNull(fString) Then 
fString = replace(fString, ">", "&gt;") 
fString = replace(fString, "<", "&lt;") 
fString = Replace(fString, CHR(32), " ")  '&nbsp; 
fString = Replace(fString, CHR(9), " ")   '&nbsp; 
fString = Replace(fString, CHR(34), "&quot;") 'filter " 
fString = Replace(fString, CHR(39), "&#39;") 'filter '
fString = Replace(fString, CHR(13), "") 
fString = Replace(fString, CHR(10) & CHR(10), "</p><p>") 
'fString = Replace(fString, CHR(10), "<br>") 
HTMLEncode = fString
End If
End Function
%>