asp装载xml问题?
在asp中书写如下语句出现错误
Server.CreateObject 失败
/aspXML/XML/DOM.asp, 行5
无效的类字符串
源码如下：
<%@ Language=VBScript %>
<%
dim sourcefile,source,rootelement,htmlcode
set source=server.CreateObject("microsoft.XMLDOM")
source.async=true
sourse.load(server.MapPath("contacts.xml"))
set rootelement=source.documentelement
htmlcode=htmlcode&"<font size=4 face=""verdana"">"
htmlcode=htmlcode&rootelement.childnodes(0).text
htmlcode=htmlcode&"<font size=4 face=""verdana"">"
htmlcode=htmlcode&rootelement.childnodes(1).text
htmlcode=htmlcode&"<font size=4 face=""verdana"">"
htmlcode=htmlcode&rootelement.childnodes(2).text
Response.Write htmlcode
set source=nothing
%>
是我的注册表中没有msxml这个对象是吗？还是IIS的问题？
随后我将msxml3。0装入系统。后又出现如下错误：
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象
/aspxml2/xml/DOM.asp, 行12
我到底还缺什么？错在哪了？
我的contacts.xml文件如下：
<?xml version="1.0"?>
<CONTACT_INFO>
<CONTACT>
<NAME>JOHN DOE</NAME>
<PHONE>5 5 5-5 3 1 9</PHONE>
</CONTACT>
<CONTACT>
<NAME>MARY JONES</NAME>
<PHONE>5 5 5 -9 0 13</PHONE>
</CONTACT>
<CONTACT>
<NAME>MIKE WILSON</NAME>
<PHONE>5 5 5 -4 13 8</PHONE>
</CONTACT>
问题点数：100、回复次数：7Top
1 楼TXZY（challenger）回复于 2002-02-27 14:07:42 得分 0
server.CreateObject("microsoft.XMLDOM")
改写为
如果你IIS服务器上安装了xml2.0以上的版本
Server.CreateObject("Msxml2.DOMDocument")
如果你IIS服务器上安装了xml4.0的版本
Server.CreateObject("Msxml2.DOMDocument40")Top
2 楼TXZY（challenger）回复于 2002-02-27 14:14:31 得分 10
xml文件是不是少了根节点</CONTACT_INFO>
Top
3 楼oliff（比埃尔霍夫）回复于 2002-02-27 17:57:18 得分 10
set source=server.CreateObject("microsoft.XMLDOM")
source.async=true
sourse.load(server.MapPath("contacts.xml"))
^
source变成sourse
其它的代码都对，包括server.CreateObject("microsoft.XMLDOM")
Top
4 楼karma（无为MS MVP）回复于 2002-02-27 22:14:25 得分 50
besides sourse ==>source, also change
source.async=true
===>
source.async=false
Top
5 楼net_lover（【孟子E章】）回复于 2002-02-28 09:07:22 得分 10
<%@ Language=VBScript %>
<%
Dim sourcefile, source, rootelement, htmlcode
Set source = Server.CreateObject("Msxml2.DOMDocument")
source.async = False
source.Load (Server.MapPath("contacts.xml"))
Set rootelement = source.documentElement
htmlcode = ""
htmlcode=htmlcode& "<font size=4 face=""verdana""> "
htmlcode=htmlcode& rootelement.childnodes(0).text
htmlcode=htmlcode& "<font size=4 face=""verdana""> "
htmlcode=htmlcode& rootelement.childnodes(1).text
htmlcode=htmlcode& "<font size=4 face=""verdana""> "
htmlcode=htmlcode& rootelement.childnodes(2).text
Response.Write htmlcode
Set source = Nothing
%>Top
6 楼net_lover（【孟子E章】）回复于 2002-02-28 09:18:27 得分 10
你的xml文件末尾少了
</CONTACT_INFO>
Top
7 楼net_lover（【孟子E章】）回复于 2002-02-28 09:19:51 得分 10
Set source = Server.CreateObject("Msxml2.DOMDocument")
也可以写成
Set source = Server.CreateObject("Msxml2.DOMDocument.3.0")
或
Set source = Server.CreateObject("Msxml2.DOMDocument.3.0")
根据你安装的xml版本定Top
