<%@LANGUAGE="VBSCRIPT" CodePage="936"%> <% Option Explicit Response.Buffer = True Server.scriptTimeout="20" on error resume next Dim Jurl:Jurl=Left(Request.ServerVariables("URL"),InstrRev(Request.ServerVariables("URL"),"/")-1) %>document.write('') <% Dim strSourceFile,objXML,objRootsite,AllNodesNum strSourceFile=Server.MapPath("xml/qq.xml") Set objXML=Server.CreateObject("Microsoft.XMLDOM") objXML.load(strSourceFile) Set objRootsite=objXML.documentElement.selectSingleNode("qqlist") AllNodesNum=objRootsite.childNodes.length-1 Dim iCount,Qqnum For iCount=0 to AllNodesNum Qqnum=Qqnum&objRootsite.childNodes.item(iCount).childNodes.item(0).text&":" Next %>document.write('') <% Set objRootsite=nothing Set objXML=nothing %>document.write('') document.write('')