下标越界: 'i' 各位大吓帮看看怎么回事。。

[ch981642]

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: 'i'

/inc/getArticleView.asp，行 58

getArticleView.asp文件源码如下：

<!--#include file="ubb.asp"-->
<!--#include file="checkLogin.asp"-->
<!--#include file="commonFunction.asp"-->
<!--#include file="md5.asp"-->
<%
Dim articleTitle,articleAuthor,articleComeFrom,articleAddtime,ArticleCost
Dim articleContent,articleHits,lastArticle,nextArticle,lookArticleRemark,writeArticleRemark,SampleRemark,ArticleReadLevel
Call DisplayArticleView() '一包含此文件就调用了,如果你熟悉脚本就自己更灵活的调用.
Function DisplayArticleView()
dim RelationArticle,displayRemarkNum,ArticleID,memberArray,contentArray,contentCount,page,pageContent
dim pageTitle,splitWordLen
pageTitle = Split("第一页,第二页,第三页,第四页,第五页,第六页,第七页",",")
displayRemarkNum=5
splitWordLen = 1200
IF Request.QueryString("id")<>"" Then
viewID = Request.QueryString("id")
Else
Call ErrRedirect(401)
End IF
IF isnumeric(viewID)<>true Then
Call ErrRedirect(401)
End IF
set Rs = server.createObject("Adodb.Recordset")
Sql = "select * from ZD_Article where id = "&viewID
Rs.open sql,conn,1,1
IF Rs.eof Then
Call ErrRedirect(500)
End IF
ArticleID = rs("id")
ArticleTitle = rs("title")
ArticleAuthor = rs("writter")
ArticleComeFrom = rs("comeFrom")
ArticleAddtime = rs("addtime")
ArticleHits = rs("hits")
ArticleCost = rs("Cost")
articleContent = rs("content")
memberArray = Split(ZD_MemberType,",")
IF isArray(memberArray) Then
ArticleReadLevel = memberArray(rs("ReadLevel"))
End IF
'文章分页开始...........................................................
IF Request.QueryString("page")<>"" Then
page = CInt(Request.QueryString("page"))
Else
page = 0
End IF
IF isNumeric(page)<>true Then
Call ErrRedirect(401)
End IF
IF Rs("splitType")="Auto" Then
contentCount = len(articleContent)/splitWordLen
IF page>=0 and page<=contentCount Then
articleContent = Mid(" "&articleContent,page*splitWordLen+1, splitWordLen)
For i=0 to contentCount-1
IF page = i Then
pageContent = pageContent & "<a href=""Article_View.asp?ID="&ArticleID&"&page="&i&"""><span class=""blueText"">" & pageTitle(i) & "</span></a>  "
Else
pageContent = pageContent & "<a href=""Article_View.asp?ID="&ArticleID&"&page="&i&""">" & pageTitle(i) & "</a>  "
End IF
Next
articleContent = articleContent & "<br><p align=center>本文共分为："&pageContent&"</p><br>"
Else
Call ErrRedirect(401)
End IF
Else
contentArray = Split(articleContent,"‖ZD_PH‖")
contentCount = Ubound(contentArray)
IF page>=0 and page<=contentCount Then
articleContent = contentArray(Request.QueryString("page"))
Else
Call ErrRedirect(401)
End IF
For i=0 to contentCount
IF page = i Then
pageContent = pageContent & "<a href=""Article_View.asp?ID="&ArticleID&"&page="&i&"""><span class=""blueText"">" & pageTitle(i) & "</span></a>  "
Else
pageContent = pageContent & "<a href=""Article_View.asp?ID="&ArticleID&"&page="&i&""">" & pageTitle(i) & "</a>  "
End IF
Next
articleContent = articleContent & "<br><p align=center>本文共分为："&pageContent&"</p><br>"
End IF


'文章阅读权限判断.........................................................
IF Rs("readLevel")<>"" and Rs("readLevel")<>0 Then '非游客可以阅读的文章
IF Request.Cookies(ZD_CookieName)("MemberLevel")="" or CStr(Request.Cookies(ZD_CookieName)("MemberLevel"))<CStr(Rs("readLevel")) Then
articleContent = "该文章只有<span class=""RedText"">"&ArticleReadLevel&"</span>才能够阅读!请确认您是否<a href=""Login.asp?backUrl="&getArea&""" target=""_blank""><span class=""RedText"">登录</span></a>,以及你的权限是否到达阅读权限.<br><br>......文章摘要........<br><font color=""#666666"">"&Rs("Message")&"</font>"
Else
Call checkMemberLogin(0,getArea)
End IF
End IF

'文章需要费用判断.......................................................
IF ArticleCost<>"" and ArticleCost<>0 Then '需要费用的文章
IF Request.QueryString("CostRead")="true" Then
IF checkMemberLogin(ArticleCost,getArea) Then
Response.write "<script>alert('已经成功从你的帐户扣除："&ArticleCost&"个"&ZD_MoneyName&"！请勿进行刷新操作，造成不必要损失！');</script>"
Else
articleContent = "<span class=""RedText"">抱歉！您的积分不足，请联系管理员给您增加积分！</span>"
End IF
Else '提醒用户确认
articleContent = "该文章需要花费您<span class=""RedText"">"&ArticleCost&"</span>个<span class=""RedText"">"&ZD_MoneyName&"</span>，是否确定<a href=""Article_View.asp?id="&viewID&"&CostRead=true""><span class=""RedText"">[阅读]</span></a>该文章<br><br>......文章摘要........<br><font color=""#666666"">"&Rs("Message")&"</font>"
End IF
End IF

lookArticleRemark = "[<a href=""Remark.asp?RemarkType=article&RemarkID=" & rs("ID") & """ target=""_blank"">查看更多评论</a>]"
writeArticleRemark = "[<a href=""Remark.asp?displayType=addRemark&RemarkType=article&RemarkID=" & rs("ID") & """ target=""_blank"">发表我的评论</a>]"
rs.close
set rs = nothing
conn.execute("update ZD_Article set hits=hits+1 where id="&viewID)
set RelationArticle = conn.execute("select top 1 id,title from ZD_Article where id<"&viewID&" order by addtime desc")
IF RelationArticle.eof and relationArticle.bof Then
lastArticle = "没有上一条记录"
Else
lastArticle = "<a href=""article_view.asp?id=" & RelationArticle(0) & """>" & relationArticle(1) & "</a>"
End IF

Set RelationArticle=Nothing
set RelationArticle = conn.execute("select top 1 id,title from ZD_Article where id>"&viewID&" order by id")
IF RelationArticle.eof and relationArticle.bof Then
nextArticle = "没有下一条记录"
Else
nextArticle = "<a href=""article_view.asp?id=" & RelationArticle(0) & """>" & relationArticle(1) & "</a>"
End IF
Set RelationArticle=Nothing
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * from ZD_Remark where RemarkType='article' and RemarkID = "&ArticleID
Rs.open sql,conn,1,1
i=0
SampleRemark ="<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
IF Rs.eof Then
SampleRemark = "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr class=""tdbg1""><td class=""redText"" align=""center"" height=""30"">没有相关评论</td></tr></table>"
Exit Function
End IF
do while not(Rs.eof) and i<displayRemarkNum
IF (i mod 2)=0 Then
SampleRemark= SampleRemark & "<tr class=""tdbg1"">"
Else
SampleRemark= SampleRemark & "<tr class=""tdbg2"">"
End IF
SampleRemark= SampleRemark & "<td width=""9%""> </td>"
SampleRemark= SampleRemark & "<td width=""15%""><img src=""images/dot4.gif"" width=""16"" height=""15"">" & Left(Rs("name"),8) & "</td>"
SampleRemark= SampleRemark & "<td width=""52%""><a href=""Remark.asp?RemarkType=article&RemarkID=" & ArticleID & """>" & left(Rs("content"),28) & "</a></td>"
SampleRemark= SampleRemark & "<td width=""24%"">"&Rs("addtime")&"</td>"
SampleRemark= SampleRemark & "</tr>"
SampleRemark= SampleRemark & "<tr bgcolor=""#FFFFFF"">"
SampleRemark= SampleRemark & "<td></td>"
SampleRemark= SampleRemark & "<td></td>"
SampleRemark= SampleRemark & "<td height=""1""></td>"
SampleRemark= SampleRemark & "<td></td>"
SampleRemark= SampleRemark & "</tr>"
i=i+1
Rs.movenext
loop
Rs.close
Set Rs = Nothing
SampleRemark= SampleRemark & "</table>"
End Function

IF Request.QueryString("version")<>"" then
Response.write "<script>alert('Version"&ZD_Version&" Accredit Free');</script>"
End IF
%>

[lzp4881]

IF page = i Then
pageContent = pageContent & "<a href=""Article_View.asp?ID="&ArticleID&"&page="&i&"""><span class=""blueText"">" & pageTitle(i) & "</span></a>  "
Else
pageContent = pageContent & "<a href=""Article_View.asp?ID="&ArticleID&"&page="&i&""">" & pageTitle(i) & "</a>  "
End IF

这三行改成

IF page = i Then
pageContent = pageContent & "<a href=""Article_View.asp?ID="&ArticleID&"&page="&i&"""><span class=""blueText"">第" & i & "页</span></a>  "
Else
pageContent = pageContent & "<a href=""Article_View.asp?ID="&ArticleID&"&page="&i&""">第" & i & "页</a>  "
End IF

[ababababab]

For i=0 to contentCount-1


改成

For i=1 to contentCount


试一下

[ababababab]

vb里边的下标好像是从1开始的

[ch981642]

[Quote=引用 2 楼 ababababab 的回复:]
For i=0 to contentCount-1


改成

For i=1 to contentCount


试一下
[/Quote]

改成这样了，还是不行。