Rss & SiteMap
爱心论坛 http://www.zqax.net/bbs/
Function GetXmlFile(Condition)
Dim Doc:Set Doc = CreateObject("msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
Doc.async = false
Doc.setProperty "ServerHTTPRequest", true
Doc.load(Server.MapPath("路径+文件名"))
Dim Node:Set Node = Doc.DocumentElement.SelectSingleNode("label[@name='"&Condition&"']")
GetXmlFile = Node.text
End Function
参 数:Condition 得到节点条件