作者共發了1篇帖子。 內容轉換:不轉換▼
 
點擊 回復
132 0
<%
一派護法 十九級
1樓 發表于:2010-10-5 22:47

<%
 '设置输出的字符编码
 Response.charset = "gb2312"
 
 '获取省份
 id = request.QueryString("id")
 if id = "layer0" then
  province = "湖南"
 elseif id = "layer1" then
  province = "广东"
 elseif id = "layer2" then
  province = "广西"
 end if
 
 
 '加载XML解析器
 Set objXML = Server.CreateObject("Msxml2.DOMDocument")
 '加载XML文件
 xmlDoc = objXML.load(Server.MapPath("sample15.xml"))
 
 '获得省份节点
 Set provinceNode = objXML.getElementsByTagName(province)
 '获得省份节点下的所有市节点
 set cityNodes = provinceNode(0).getElementsByTagName("市")
 
 '设置输出的文字
 returnStr = ""
 
 For i = 0 To cityNodes.length-1
  returnStr = returnStr & cityNodes(i).text & ","
 Next

 '输出文字
 Response.Write returnStr
 
 set cityNodes = Nothing
 set provinceNode = Nothing
 set xmlDoc = Nothing
 set objXML = Nothing
%>

回復帖子

內容:
用戶名: 您目前是匿名發表
驗證碼:
(快捷鍵:Ctrl+Enter)
 

本帖信息

點擊數:132 回複數:0
評論數: ?
作者:巨大八爪鱼
最後回復:巨大八爪鱼
最後回復時間:2010-10-5 22:47
 
©2010-2024 Arslanbar Ver2.0
除非另有聲明,本站採用創用CC姓名標示-相同方式分享 3.0 Unported許可協議進行許可。