Question

Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 1]' 怎么解决？

Microsoft VBScript 运行时错误 错误 '800a0009'
下标越界: '[number: 1]'
D:\WWWROOT\WEB\DY\HUNAN==123\../inc/MainClass.asp，行 1375
现在我贴出这段代码：
vnum=ubound(playDataArray)
regExpObj.Pattern=labelRuleField
set matchesfield=regExpObj.Execute(loopstrPlaylist)
i_2=0:loopstrTotal=""
for i=0 to vnum
这段是1375行的代码singlePlayData=split(playDataArray(i),"$$"):videoFrom=i:videoUrl=singlePlayData(1)
playerInfoStr=getPlayerIntroOnCache(str,singlePlayData(0))
if isExistStr(playerInfoStr,"__maxcc__") then
playerSingleInfoArray=split(playerInfoStr,"__maxcc__")
loopstrPlaylistNew=loopstrPlaylist
if playerSingleInfoArray(1)="1" then

求解决

Answer 1

遇到这种情况建议你删除此视频，因为不删除的话无法一键生成，而且用内存溢出和修复数据库都无用，马克斯这点非常扎心！现在也没有官网也没有更新升级。删除方法你找到这个视频的ID，然后在登陆状态下再在浏览器里打开：域名/后台目录/admin_video.asp?action=del&id=视频ID

Answer 2

for i=0 to vnum 这边改成

for i=0 to vnum - 1

目测是这边错误了，因为你的i是从0开始计算的，但是你vnum是去的最大小标，比如我的数组是
[1$$2$$3$$4$$5]那么vnum = 5 那么你的i从0 - 5的话，5已经是超出下标范围，所以提示错误了。。。

追问

还是一样的结果，求高手指教

追答

singlePlayData=split(playDataArray(i),"$$"):

你这边的数组是不是分离后有的没有两个字段以上？？？
videoUrl=singlePlayData(1)然后这边就提示出错了？？你把

singlePlayData=split(playDataArray(i),"$$"):videoFrom=i:videoUrl=singlePlayData(1)
这几句话分开放，看看具体是提示那句话，在去查看你的数据。。我也是目测推断的，这样不好判断

这个不然就是你在采集的时候要先判断了，如果不够的话，默认给个数值重组在写入你的本地库里呗，好像也只能这么办了吧

追问

我现在知道主要原因了 就是采集的数据有问题生成就会生成出错，不过要找到出错的数据好麻烦 有没有更好的办法？ 请加我扣 玖玖捌叁陆柒陆