Question

ASP程序中提示“下标越界”？大家帮我看看

function NEWTOP(MENU,PX,SN,MENUJ)
if sn<1 then sn=1
SN11=SN
SN=SN11
sql="select TOP "&SN&" 评论数,作者,类型,开放评论,标题,ID,最后评论时间,最后评论人,日期,最后评论主题,点击数 FROM LR WHERE 审核状态='已' and MENUNAME"&MENUJ&"='"&MENU&"' order by "&PX
Set rsLIST=Server.CreateObject("ADODB.RecordSet")
rsLIST.Open sql,conn,1,3
DIM MYLR(20,10)
FOR I=0 TO SN-1
IF RSLIST.EOF THEN EXIT FOR
MYLR(I,1)=RSLIST("标题")
MYLR(I,2)=RSLIST("ID")
MYLR(I,3)=RSLIST("最后评论人")
MYLR(I,4)=RSLIST("最后评论主题")
MYLR(I,5)=RSLIST("点击数")
MYLR(I,6)=RSLIST("评论数")
MYLR(I,7)=RSLIST("作者")
MYLR(I,8)=RSLIST("开放评论")
MYLR(I,9)=RSLIST("类型")
MYLR(I,10)=RSLIST("日期")
RSLIST.MOVENEXT
NEXT
rslist.close
NEWTOP=MYLR
END function

程序提示i变量下标越界？
下面的两个回答，是错误的。
我按照下面的方法修改程序后，出错。数据都对不上号了。

Answer 1

本来上面的两个代码是可以的
可能是你后面的代码也要跟着改吧

那就把
DIM MYLR(20,10)
改成
DIM MYLR(20,11)

Answer 2

VB下标 从0 开始

MYLR(I,1)=RSLIST("标题") ~MYLR(I,9)=RSLIST("日期")

Answer 3

SN 的取值范围检查了没有?

MYLR(I,0)=RSLIST("标题")
...
MYLR(I,9)=RSLIST("日期")