计算机科学论坛--利用ASP从远程服务器上接收XML数据并保存

贴子主题：利用ASP从远程服务器上接收XML数据并保存

本主题类别:

<%
'------ 利用ASP从远程服务器上接收XML数据并保存 ------ 要读取的远程xml文件：
'------ http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml

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 & " ")
Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & " ")
Response.Write("At Line: " & objXML.parseError.line & " ")
Response.Write("At pos: " & objXML.parseError.linePos & " ")

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

Response.Write(objRootElement.childnodes(0).text)&" "
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>


	W 3 C h i n a ( since 2003 ) 旗下站点苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》	62.500ms