还有一个读取XML的类 XmlReader：

<%
Class XmlReader

Private Xml

Public Sub Load(ByVal Path)
Xml.Load(Server.MapPath(Path))
End Sub

Public Function SelectSingleNode(ByVal XPath)
Set SelectSingleNode = Xml.SelectSingleNode(XPath)
End Function

Public Function SelectNodes(ByVal XPath)
Set SelectNodes = Xml.SelectNodes(XPath)
End Function

Private Sub Class_initialize()
Set Xml = Server.CreateObject("Microsoft.XMLDOM")
Xml.async = False
''Xml.setProperty "ServerHTTPRequest", True
End Sub
Private Sub Class_Terminate()
Set Xml = Nothing
End Sub

End Class
%>

　　好了，万事俱备，开始搭建基本的三层：

　　数据模型层：此层对应成一个类，类的类名和字段属性对应于数据库的相应表名及字段。

　　考虑表News，其结构如下：

　　则其对应的模型层如下：

<%
Class DataNews

Private IAddDate
Private IContent
Private ICount
Private INewsID
Private ITitle
Private IUserID
Private IUserName