#32005/7/9 15:56:26
<%
url="http://.../xml_hire.asp"
set objSrvHTTP =server.createobject("MSXML2.XMLHTTP")
objSrvHTTP.open "get",url, false
objSrvHTTP.setRequestHeader "Content-Type", "text/xml"
objSrvHTTP.send ()
Set objXML = Server.CreateObject("MSXML2.DOMDocument")
loadResult=objXML.load(objSrvHTTP.responseXML)
Set fso=Server.CreateObject("Scripting.fileSystemObject")
Set XmlTxt=fso.CreateTextFile(Server.MapPath("hire.xml"),True)
XmlTxt.WriteLine "<?xml version=""1.0"" encoding=""GB2312""?>"
XmlTxt.WriteLine "<HouseHireInfo>"
Set objNodes = objXML.getElementsByTagName("HouseHireInfo/HouseItem")
k = objNodes.length
For i =0 To k-1
'======== 取出XML节点值 =======
arrTemp = objNodes.Item(i).getAttribute("id") 'ID
arrTemp0 = objNodes.Item(i).childNodes.Item(0).Text '城区
arrTemp1 = objNodes.Item(i).childNodes.Item(1).Text '地址
arrTemp2 = objNodes.Item(i).childNodes.Item(2).Text '户型
arrTemp3 = objNodes.Item(i).childNodes.Item(3).Text '最小面积
arrTemp4 = objNodes.Item(i).childNodes.Item(4).Text '最大面积
arrTemp5 = objNodes.Item(i).childNodes.Item(5).Text '最低价
arrTemp6 = objNodes.Item(i).childNodes.Item(6).Text '最高价
arrTemp7 = objNodes.Item(i).childNodes.Item(7).Text '联系电话
arrTemp8 = objNodes.Item(i).childNodes.Item(8).Text '联系人
arrTemp9 = objNodes.Item(i).childNodes.Item(9).Text 'Email
arrTemp10= objNodes.Item(i).childNodes.Item(10).Text '发布日期
arrTemp11= objNodes.Item(i).childNodes.Item(11).Text '中介
arrTemp12= objNodes.Item(i).childNodes.Item(12).Text '信息代码
'======= 生成XML文档 =======
XmlTxt.WriteLine "<HouseItem id="""&arrTemp&""">"
XmlTxt.WriteLine "<AREA>"&arrTemp0&"</AREA>"
XmlTxt.WriteLine "<ADDRESS>"&arrTemp1&"</ADDRESS>"
XmlTxt.WriteLine "<HOUSEMODEL>"&arrTemp2&"</HOUSEMODEL>"
XmlTxt.WriteLine "<MIN_AREA>"&arrTemp3&"</MIN_AREA>"
XmlTxt.WriteLine "<MAX_AREA>"&arrTemp4&"</MAX_AREA>"
XmlTxt.WriteLine "<MIN_PRICE>"&arrTemp5&"</MIN_PRICE>"
XmlTxt.WriteLine "<MAX_PRICE>"&arrTemp6&"</MAX_PRICE>"
XmlTxt.WriteLine "<TEL>"&arrTemp7&"</TEL>"
XmlTxt.WriteLine "<CONNECTOR>"&arrTemp8&"</CONNECTOR>"
XmlTxt.WriteLine "<EMAIL>"&arrTemp9&"</EMAIL>"
XmlTxt.WriteLine "<SUBDATE>"&arrTemp10&"</SUBDATE>"
XmlTxt.WriteLine "<AGENCY_ID>"&arrTemp11&"</AGENCY_ID>"
XmlTxt.WriteLine "<INFOCODE>"&arrTemp12&"</INFOCODE>"
XmlTxt.WriteLine "</HouseItem>"
next
XmlTxt.WriteLine "</HouseHireInfo>"
XmlTxt.Close
set XmlTxt=nothing
set objXML=nothing
set fso=nothing
%>