dim objXML
dim objRootElement
dim strValue
dim strInetURL
dim strXML
dim item

'-------- 设置xml文件的保存路径
strFile = Server.MapPath("xSave.xml")

strInetURL ="http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml"
Dim HttpReq

set HttpReq = server.CreateObject("MSXML2.XMLHTTP")

HttpReq.open "GET", strInetURL, False
HttpReq.send
strXML = HttpReq.responseText
Set objXML = Server.CreateObject("Msxml2.DOMDocument")
objXML.validateonparse = False
objXML.async=false
objXML.loadXML(strXML)
if objXML.ParseError.errorCode <> 0 then
Response.Write("Error: " & objXML.parseError.reason & "<br>")
Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & "<br>")
Response.Write("At Line: " & objXML.parseError.line & "<br>")
Response.Write("At pos: " & objXML.parseError.linePos & "<br>")

else
set objRootElement = objXML.documentElement
if not isObject(objRootElement) then
Response.Write("no file loaded")
else

Response.Write(objRootElement.childnodes(0).text)&"<br>"
Response.Write(objRootElement.childnodes(1).text)
objXML.Save strFile '保存读取到的xml文件
end if
end if
%>

调试一切正常，但是有个问题请教大家。
该方法只能接收半角字符，请问用什么方法才可以接收 属性值中、元素中 含有全角字符（即：中文）的xml文档？

例如下面的含有中文的文档将会报错：

<?xml version="1.0" encoding="GB2312"?>
<myfile>
<title>XML轻松学习</title>
<explain type="网站" URL="http://bbs.xml.org.cn">中国XML论坛</explain>
<email>linux007@126.com</email>
<date>20040521</date>
</myfile>