asp操作从数据库中读取的xml

<address>188 OUGAO Road Pudong Area</address>
<code>200122</code>
<phone>68760111</phone>

<%
'write by ahuinan 2010-9-13 
Dim str:str="<address>188 OUGAO Road Pudong Area</address><code>200122</code><phone>68760111</phone>"
'Response.Write(str)
set myxml = Server.CreateObject("MSXML.DOMDocument")    
'LoadXML 直接写入 xml 文件字符串。
myxml.LoadXML("<?xml version=""1.0"" encoding=""gb2312"" ?>" & _
                "<root>"  & _
                str& _
                "</root>")
Set myroot = myxml.DocumentElement
Response.Write(myroot.getElementsByTagName("address").item(0).text)
Response.Write(myroot.getElementsByTagName("code").item(0).text)
set myxml=nothing 
set myroot=nothing
%>