language.xml

复制代码 代码如下:

<?xml version="1.0" encoding="gb2312"?>

<languageRoot>

<>

<language>

<LanguageName>简体中文</LanguageName>

<LanguageValue>SimpilifiedChinese</LanguageValue>

<LanguageImages>images</LanguageImages>

<LanguageFile></LanguageFile>

</language>

<>

<language1>

<LanguageName>繁體中文</LanguageName>

<LanguageValue>TraditionalChinese</LanguageValue>

<LanguageImages>imagesBig5</LanguageImages>

<LanguageFile>ddd</LanguageFile>

</language1>

</languageRoot>

sl.asp

复制代码 代码如下:

<%

Set objXML2 = Server.CreateObject("Msxml2.DOMDocument")

objXML2.async = False

loadResult = objXML2.load(Server.MapPath("language.xml"))

if not loadResult then

Response.write "装载XML文件错误"

Response.end

end If

Set objNodes = objXML2.getElementsByTagName("languageRoot/language")

For i = 0 to objNodes.length - 1

Response.write Trim(objNodes(i).selectSingleNode("LanguageName").Text)&"<br>"

Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"<br>"

Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"<br>"

Next

set objNodes = Nothing

Set objNodes = objXML2.getElementsByTagName("languageRoot/language1")

For i = 0 to objNodes.length - 1

Response.write Trim(objNodes(i).selectSingleNode("LanguageName").Text)&"<br>"

Response.write Trim(objNodes(i).selectSingleNode("LanguageValue").Text)&"<br>"

Response.write Trim(objNodes(i).selectSingleNode("LanguageImages").Text)&"<br>"

Response.write Trim(objNodes(i).selectSingleNode("LanguageFile").Text)&"<br>"

Next

set objNodes = Nothing

Set objXML = Nothing

%>

以上代码，经查字典教程网编辑测试通过。