这段代码到底哪儿错了？

mabin 2002-09-09 03:58:01
<%
strSourceFile=Server.MapPath("/")&"\List.xml"
SetobjXML=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">
<!--
td{font-family: "宋体;font-size: 9pt;test-decoration: none}
a{font-family: "宋体";font-size: 9pt;color: #0066CC;text-decoration: none}
a: hover{color: #FF6600;text-decoration: underline}
-->
</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 cilor="#FFFFFF">留言本<a href=PostNew.asp"><font color="#FFFFFF>些新留言</font></a></font>
</td>
</tr>
<%
PageSize=10
AllNodesNum=objRootsite.childNodes.lenth-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
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
text=objRootsite.childNodes.item(StarNodes).childNodes.item (6).text
Text=replace(text,chr(32),"")
%>
<tr bgcolor="#f0f0f0" >
<td width="21%" height"94" vailgn="top">姓名： <%=username%><br>
来自:<%=fromwhere%><br> </td>
</font></a>
<td width="79%" height"94" vailgn"top"><font color="#FFFFFF>些新留言</font></a></font>
</td>
</tr>
<%
PageSize=10
AllNodesNum=objRootsite.childNodes.lenth-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
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
text=objRootsite.childNodes.item(StarNodes).childNodes.item (6).text
Text=replace(text,chr(32),"")
%>
<tr bgcolor="#f0f0f0" ><a href=PostNew.asp">|</a></font><font color="#FFFFFF>些新留言</font></a></font>
</td>
</tr>
<%
PageSize=10
AllNodesNum=objRootsite.childNodes.lenth-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
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
text=objRootsite.childNodes.item(StarNodes).childNodes.item (6).text
Text=replace(text,chr(32),"")
%>
<tr bgcolor="#f0f0f0" ><a href="<%=homepage%>
"target=_blank titile="<%username%>的主页">主页</a>||<a href="mailto:
<%=email%>" title="给<%=username%>写信">信箱</a>||<font color
="#CC6633">留言时间：<%=Posttime%></font>|
<hr>
<%=text%> </font></td>
</font></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>
...全文
75 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
qimangxing 2002-09-10
  • 打赏
  • 举报
 回复
在wend后面加回车，会报错
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
/mxl/index.asp, 第 132 行, 第 22 列
StarNodes=StarNodes-1 Wend
---------------------^

写成：
StarNodes=StarNodes-1
Wend
还有，用这种语句的时候一定要规范，肯定是你的while和wend个数不对称造成的。仔细检查一下吧
humus 2002-09-10
  • 打赏
  • 举报
 回复
我觉得出错的原因并不是没有换行，而是程序重的While和WEnd不匹配，导致VBScript编译错误，把错误位置指向唯一的一个WEnd。
哎，VBScript的编译器......
humus 2002-09-09
  • 打赏
  • 举报
 回复
数了一下，您的代码里有三个While,但是只有一个Wend。呵呵。
mabin 2002-09-09
  • 打赏
  • 举报
 回复
我觉得错误出现在这段代码当中
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
text=objRootsite.childNodes.item(StarNodes).childNodes.item (6).text
Text=replace(text,chr(32),"")
%>
<tr bgcolor="#f0f0f0" ><a href="<%=homepage%>
"target=_blank titile="<%username%>的主页">主页</a>||<a href="mailto:
<%=email%>" title="给<%=username%>写信">信箱</a>||<font color
="#CC6633">留言时间：<%=Posttime%></font>|
<hr>
<%=text%> </font></td>
</font></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
%>
mabin 2002-09-09
  • 打赏
  • 举报
 回复
在wend后面加回车，会报错
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
/mxl/index.asp, 第 132 行, 第 22 列
StarNodes=StarNodes-1 Wend
---------------------^
qiangtian 2002-09-09
  • 打赏
  • 举报
 回复
给wend后面加个回车
humus 2002-09-09
  • 打赏
  • 举报
 回复
Wend后面要换行。
qiangtian 2002-09-09
  • 打赏
  • 举报
 回复
faint
给个看看错误提示啊
mabin 2002-09-09
  • 打赏
  • 举报
 回复
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
/mxl/index.asp, 第 70 行, 第 5 列
Wend set objXML=nothing
----^
pennyxu 2002-09-09
  • 打赏
  • 举报
 回复
什么错误提示啊？

太长了
Java代码覆盖率测试
自己在eclipse中编写一段代码，并编写单元测试，通过jacoco查看代码覆盖率； 自己编写一段代码，在ant中配置built.xml，实现编译、测试、生成exec、生成report； 自己编写一个简单的web项目，并用jacoco agent 统计...
请问下面这段代码哪里有错? private static final String s=""
请问下面这段代码哪里有错? public class something(){ void dosomething(){ private static final s = ""; int i = s.length(); } } 方法中不能有访问权限的修饰，只有在类中才有private static ...
public static const int A=1;这段代码有错误么?错了.常量不能标记为static
为什么80%的码农都做不了架构师？>>>   ...public static const int A=1;这段代码有错误么?错了.常量不能标记为static 转载于:https://my.oschina.net/wzzz/blog/121356
一道 Java 面试题
这段代码里面到底哪一行错了？为什么？如果某个 Java 版本能顺利运行这段代码，那么如何让这个错误暴露得更致命一些？ 注意这里所谓的「错了」是本质上，原理上的，而不一定是 Java 编译器，IDE 或者运行时报给你的
要炸了！刚写完这段代码，就被开除了
这几天，又来了一个悲剧。。。 据说是一个月薪 9K 的 Java 程序员，因老板让他写一个排序算法，然后他就写了一段屌炸天的...这段代码有什么问题？ 这个程序员更屌啊，数字排序，用一行简单的 Arrays.sort 就搞定...
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章