读取XML的类 XmlReader

opipisq

opipisq

2016-02-19 19:01

今天天气好晴朗处处好风光,好天气好开始,图老师又来和大家分享啦。下面给大家推荐读取XML的类 XmlReader,希望大家看完后也有个好心情,快快行动吧!

  还有一个读取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

Public Property Let AddDate(ByVal Value)
IAddDate = Value
End Property
Public Property Get AddDate()
AddDate = IAddDate
End Property

Public Property Let Content(ByVal Value)
IContent = Value
End Property
Public Property Get Content()
Content = IContent
End Property

Public Property Let Count(ByVal Value)
ICount = Value
End Property
Public Property Get Count()
Count = ICount
End Property

Public Property Let NewsID(ByVal Value)
INewsID = Value
End Property
Public Property Get NewsID()
NewsID = INewsID
End Property

Public Property Let Title(ByVal Value)
ITitle = Value
End Property
Public Property Get Title()
Title = ITitle
End Property

Public Property Let UserID(ByVal Value)
IUserID = Value
End Property
Public Property Get UserID()
UserID = IUserID
End Property

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)

Public Property Let UserName(ByVal Value)
IUserName = Value
End Property
Public Property Get UserName()
UserName = IUserName
End Property

Private Sub Class_initialize()
End Sub
Private Sub Class_Terminate()
End Sub

End Class
%

  这里用了类名DataNews,因为VBScript不支持Namespace(-_-),以前缀区分,而类中私有属性用I作前缀,没什么特别含义,仅仅是因为I所占宽度较小,不影响理解时的联想反应速度,如果非要拉点合理的解释的话,那么就是,Private中的I,以区分于Public,不用m_之类,是因为觉得它不够美观,影响编码心情(所以不喜欢写C),因为需要以优雅之心情,编写优雅的代码(哎呀,谁扔的鸡蛋?拜托换个新鲜点的)。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)
展开更多 50%)
分享

猜你喜欢

读取XML的类 XmlReader

Web开发
读取XML的类 XmlReader

javascript读取xml

Web开发
javascript读取xml

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Excel Vba读取XML

电脑入门
Excel Vba读取XML

XML的简单读取与写入

Web开发
XML的简单读取与写入

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

如何读取XML文件内容

Web开发
如何读取XML文件内容

读取XML为行记录

Web开发
读取XML为行记录

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

XAML 实例演示之三 – Grid 控件的使用

XAML 实例演示之三 – Grid 控件的使用

JBuilder 2005开发Applet游戏全接触

JBuilder 2005开发Applet游戏全接触
下拉加载更多内容 ↓