读xml高手

Sub Getxom()
Dim objXML,objRoot,Total,I
Set objXML=Server.CreateObject("Microsoft.XMLDOM")
objXML.async=False
objXML.load (Server.Mappath(SettingFile))
Set objRoot=objXML.selectsinglenode("系统设置/系统设置")
Total=objRoot.childnodes.length
 ReDim xom(Total-1)
For I=0 To Total-1
 xom(i)=objRoot.childnodes(i).text
 'Response.Write "xom("&i&")"&xom(i)&"<br>"
Next
Set objRoot=Nothing
Set objXML=Nothing
End Sub

Dim DataBaseName,SettingFile
SettingFile="xom.Xml" '网站设置路径 

 

 

Getxom()

CopyRight=xom(5)
DefaultTemplate=xom(7)
PageSize=CInt(xom(8))
SplitWords=xom(14) 

 

  感谢：jude_liu