开发网站其实就是对数据库中数据的操作，所以我们可以把数据看作一个总的对象，每一个数据表都是一个对象，加入有数据表Topic的话，我们可以这样来做：
(以下部分只是一个思路，里面的许多东西都在另外几个类中，如cms，data之类的，大家看看思路就行，不明白的可以问我)
topic表的字段假设为 ID,Title,Content,Hits,AddTime
[Copy to clipboard]CODE:
<%
'==================== 数据类： Topic_Class 注释开始 ==========================
'== Important ：对数据表 Topic 进行相关操作
'== Written by ：Hankx Chen
'== Version : 1.3
'== Created Date ：2007-2-6 17:04:40
'==================== 数据类： Topic_Class 注释结束 ==========================
Class Topic_Class
'以下是系统数据字段
Public ID,Title,Content,Hits,AddTime
'以下是自定义的公共属性
Public Template
'初始化类
Private Sub Class_Initialize
AddTime=Now()
End Sub
'注销类
Private Sub Class_Terminate
End Sub
'Read方法用于读取具体的数据内容
Public Sub Read()
on error resume next
cms.errorcode=0
cms.data.sql="Select Top 1 * From [Topic] where ID="&ID
Set cms.data.rs=cms.data.execute(cms.data.sql)
If Not cms.data.rs.eof Then
ID=cms.data.rs("ID")
Title=cms.data.rs("Title")
Content=cms.data.rs("Content")
Hits=cms.data.rs("Hits")
AddTime=cms.data.rs("AddTime")
Else
cms.errorcode=10000
cms.errortext="ReadDataError: 未能在数据表 [Topic] 找到 ID 为 "&ID&" 的数据"
End If
cms.data.rs.close
Set cms.data.rs=nothing
If err Then
cms.errorcode=10010
cms.errortext="ReadDataError: 从数据表 [Topic] 读取 ID 为 的数据时出现错误:"&Err.Description
End IF
End Sub
'Save方法用于保存添加的数据内容
Public Sub Save()
on error resume next
cms.errorcode=0
If Not IsObject(cms.data.conn) Then cms.data.open()
Set cms.data.rs = Server.CreateObject("ADODB.Recordset")
cms.data.sql="Select Top 1 * From [Topic]"
cms.data.rs.open cms.data.sql,cms.data.conn,1,3
cms.data.rs.Addnew
cms.data.rs("ID")=ID
cms.data.rs("Title")=Title
cms.data.rs("Content")=Content
cms.data.rs("Hits")=Hits
cms.data.rs("AddTime")=AddTime
cms.data.rs.update
cms.data.rs.close
Set cms.data.rs=nothing
If err Then
cms.errorcode=10020
cms.errortext="SaveDataError: 向数据表 [Topic] 添加数据时出现错误:"&Err.Description
End IF
End Sub
'Update方法用于更新具体的数据内容
Public Sub Update()
on error resume next
cms.errorcode=0
If Not IsObject(cms.data.conn) Then cms.data.open()
Set cms.data.rs = Server.CreateObject("ADODB.Recordset")
cms.data.sql="Select Top 1 * From [Topic] where ID="&ID
cms.data.rs.open cms.data.sql,cms.data.conn,1,3
If Not cms.data.rs.Eof Then
cms.data.rs("ID")=ID
cms.data.rs("Title")=Title
cms.data.rs("Content")=Content
cms.data.rs("Hits")=Hits
cms.data.rs("AddTime")=AddTime
cms.data.rs.update
Else
cms.errorcode=10000
cms.errortext="UpdateDataError: 在数据表 [Topic] 中无法找到 ID 为 "&ID&" 的数据"
End If
cms.data.rs.close
Set cms.data.rs=nothing
If err Then
cms.errorcode=10030
cms.errortext="UpdateDataError: 向数据表 [Topic] 更新数据时出现错误:"&Err.Description
End IF
End Sub
'Delete方法用于删除具体的数据内容
Public Sub Delete()
on error resume next
cms.errorcode=0
If Not IsObject(cms.data.conn) Then cms.data.open()
Set cms.data.rs = Server.CreateObject("ADODB.Recordset")
cms.data.sql="Select Top 1 * From [Topic] where ID="&ID
cms.data.rs.open cms.data.sql,cms.data.conn,1,3
If Not cms.data.rs.eof Then
cms.data.rs.delete
cms.data.rs.update
Else
cms.errorcode=10000
cms.errortext="DeleteDataError: 在数据表 [Topic] 中无法找到 ID 为 "&ID&" 的数据"
End If
cms.data.rs.close
Set cms.data.rs=nothing
If err Then
cms.errorcode=10040
cms.errortext="DeleteDataError: 从数据表 [Topic] 中删除 ID 为 "&ID&" 数据时出现错误:"&Err.Description
End IF
End Sub
'List函数用于返回模版列表
Public Function List()
End Function
'Hit用于点击
Public Sub Hit()
End Sub
End Class
%>