大家看这段代码那里出错了``急给解决就给分（50）

zhyoli 2002-12-16 09:27:56

我是刚学xml，在网上找了个代码。
可不知道那里出错了。希望大家帮个忙，指点一下。谢谢，或者有更好的学习资料。我会感激不尽。
index.asp
---------------------------
<%
strSourceFile = server.MapPath("List.xml")
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
%>
<html>
<head>
<title>留言本</title>
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
<style type="text/css">

</style>
</head><body bgcolor="#0099CC" text="#000000">
<table width="80%" border="0" cellspacing="1"
cellpadding="4" align="center" bgcolor="#CCCCCC">
<tr bgcolor="#000000">
<td colspan="2"><font color="#FFFFFF">留言溥 <a
href="PostNew.asp"><font color=#FFFFFF>写新留言</font>
</a></font></td>
</tr>
<%
PageSize =10'假设每页显示10条留言
AllNodesNum =objRootsite.childNodes.length-1
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
PageNum=AllNodesNum\PageSize+1'算出总页数
PageNo=request.querystring("PageNo")
if PageNo="" then'如果是每一次获得页面则定位到每一页显示最新的留言
PageNo=PageNum
end if
StarNodes=PageNo*PageSize-1'获得起始节点
EndNodes=(PageNo-1)*PageSize'获得结束节点
if EndNodes<0 then
EndNodes=0
end if
if StarNodes>AllNodesNum then'判断起始节点数是否超过总的节点数
EndNodes=EndNodes-(StarNodes-AllNodesNum)
'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
StarNodes=AllNodesNum
end if
if EndNodes<0 then
EndNodes=0
end if
while StarNodes>=EndNodes
'从结束节点到超始节点之间读取节点数据
username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
'获得用户名
fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
'获得用户来自那里
Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
'获得留言时间
homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
'获得用户主页
email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
'获得用户Eamil
text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
'获昨留言内容
text = replace(text,chr(13),"<br>")
'替代回车
text = replace(text,chr(32)," ")
'替代空格
%>
<tr bgcolor="#F0F0F0">
<td width="21%" height="94" valign="top">姓名：<%=username%><br>
来自：<%=fromwhere%><br>
</td>
<td width="79%" height="94" valign="top"> | <a href="<%=homepage%>" target=_blank title="<%=username%>的主页">主
页</a> | | <a href="mailto:<%=email%>" title="给<%=username%>写信">信箱</a> | |<font color="#CC6633">
留言时间：<%=Posttime%> </font>|
<hr>
<%=text%> </td>
</tr>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> </td>
</tr>
<%
StarNodes=StarNodes-1
wend
set objXML=nothing
%>
<tr bgcolor="#FFFFFF" align="right">
<td colspan="2"> 共有<<%=PageNum%>>页
<%
if cint(PageNo)<>PageNum then '分页
response.write "<a href='index.asp?PageNo="&(PageNo+1)&"'>上一页</a>"
end if
if cint(PageNo)<>1 then
response.write "<a href='index.asp?PageNo="&(PageNo-1)&"'>下一页</a> "
end if
%>
</td>
</tr>
</table>
</body>
</html>

...全文

32 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

fsdos 2002-12-17

打赏
举报

推荐你看看：用ASP写的基于XML的新闻管理系统

http://xmlnews.sameliking.com/iisexample/data/xmlnews/default.htm

allforly 2002-12-16

打赏
举报

<%
strSourceFile = server.MapPath("List.xml")
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)

在这句下面加一条：
if objXML.parseError.errorCode<>0 then
response.write "读取xml文件失败"
end if

如果读取成功了，那么。。。。

set n = objXML.selectNodes("/*/*/*")
if typename(n)="Nothing" then
response.write "节点不存在"
end if

zhyoli 2002-12-16

打赏
举报

对了，提示错误是：
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'objRootsite.childNodes.item(...).childNodes.item(...)'
/xml/index.asp, 第 53 行
就是下边这句出错。
username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text