ASP面向对象，实例（代码）

<%
'创建数据库连接对象并打开
set Conn=server.createobject("adodb.connection")
GetConnectString="Provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("GuestBook.mdb")
Conn.open GetConnectString

'建立面向对象

Class clsDB   
Private strConn
Public rs, CurPageID
   
Private Sub Class_Initialize
 set rs = server.CreateObject("adodb.recordset")
 strConn = GetConnectString
End Sub
   
Sub InitRs4Read(strSql)
 rs.Open strSql, StrConn, 0, 1, &H0001
End Sub

End Class

'引用面向对象，提取记录
Dim objDB
set objDB=new clsDB
strID=1
objDB.initRs4read "select * from data where id= 1"
id=objDB.rs("id")
title=objDB.rs("title")
set objDB=nothing
response.write id&"--"&title
%>

 

参考：http://www.jb51.net/article/701.htm          关于类的介绍