好久没做asp了，这个天都在做asp，今天做asp操作xml，找了些资料才做出来

查询并写入xml
function domainfind()
'----------------------------------------domain
dim yumingarr
yumingarr=Array(".com",".cn",".net",".com.cn",".gov",".tel",".中文.com",".中文.cn",".cc",".中文.cc",".info",".tw",".中文.tw",".asia",".hk",".us",".中文.org",".mobi",".io",".gov.cn",".it",".me",".tv",".biz",".中文.biz",".bz",".co",".中文.hk")
set xmldom=server.CreateObject("MSXML2.DOMDocument")
set xmlroot=xmldom.createElement("records")
xmldom.documentElement=xmlroot
for i=0 to Ubound(yumingarr)
sql="select *******"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof 
set childitem=xmldom.createElement("record")
set childnode=xmldom.createElement("pcode")
childnode.text=rs("***")
childitem.appendChild(childnode)

set childnode=xmldom.createElement("pname")
childnode.text=rs("***")
childitem.appendChild(childnode)

set childnode=xmldom.createElement("domainext")
childnode.text=rs("***")
childitem.appendChild(childnode)

set childnode=xmldom.createElement("price1")
childnode.text=rs("***")
childitem.appendChild(childnode)

set childnode=xmldom.createElement("ptime")
childnode.text=date()
childitem.appendChild(childnode)

xmlroot.appendChild(childitem) 
rs.movenext
loop
rs.close
set childnode=nothing
set childitem=nothing
set rs=nothing
end if
next
xmldom.save(Server.MapPath("xml/domain.xml"))
set xmldom=nothing
set xmlroot=nothing

end function

读取xml数据

function readxml()
jgarr=""
set xmldom=server.CreateObject("Microsoft.XMLDOM")
xmldom.async = false
xmldom.ValidateOnParse=false
xmldom.Load(Server.MapPath("xml/domain.xml"))
set xmlroot=xmldom.documentElement
xmlitems=xmlroot.ChildNodes.length-1
Set item=xmldom.getElementsByTagName("record")
set ptime=xmldom.getElementsByTagName("ptime")
For i=0 To (item.Length-1)
set pcode=item.Item(i).getElementsByTagName("pcode")
set pname=item.Item(i).getElementsByTagName("pname")
set domainext=item.Item(i).getElementsByTagName("domainext")
set price1=item.Item(i).getElementsByTagName("price1")
'set ptime=item.Item(i).getElementsByTagName("ptime")


if jgarr="" then 
jgarr=pcode.item(0).text&"%#fied!&"&pname.item(0).text&"%#fied!&"&domainext.item(0).text&"%#fied!&"&price1.item(0).text
else
jgarr=jgarr&"%#item!&"&pcode.item(0).text&"%#fied!&"&pname.item(0).text&"%#fied!&"&domainext.item(0).text&"%#fied!&"&price1.item(0).text
end if
Next
jgarr=jgarr&"%#ptime!&"&ptime.item(0).text
set xmldom=nothing
set xmlroot=nothing
set item=nothing
set pcode=nothing
set pname=nothing
set domainext=nothing
set price1=nothing
set ptime=nothing
readxml=jgarr
end function