紧急求助------下标越界: '[number: 0]' (关于动网论坛)

hm1511 2004-08-03 10:23:40

将本原access论坛升级为sql之后出现这样的问题，在本机测试通过，上传至服务器出现如下错误：

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

下标越界: '[number: 0]'

/bbs/inc/Dv_ClsMain.asp，行138

...全文

167 点赞收藏 9

写回复

9 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

bluebear88 2004-09-02

我的问题解决了，把水吧的DLL文件删除后，重新复制一个，然后再注册就行了，哈哈，也不知是什么原因。

回复赞

bluebear88 2004-09-01

我的聊天室也有这样的问题.

我的配置是98+pws+传说水吧,本来好好的,自从感染了宏病毒后,就出现了这样的问题:

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

下标越界: '[number: 0]'

重装后可解决,但病毒一来又这样了,郁闷啊!

回复赞

hm1511 2004-08-04

setting是空值

回复赞

KUMOZAKI 2004-08-03

首先要明白这个架构,Setting是动网公用的Application中取出名为setup的内容,其中这个Applcation是一个一维数组,而第一个一维数里却含有一个二维数组,在二维数组取值时出错,其实您可以先在Setting=CacheData(1,0)这句后Response出setting的值.看看能不能用Split断开.

回复赞

叮咚叮咚叮叮咚 2004-08-03

setting是空的~~

回复赞

hm1511 2004-08-03

自己顶了

回复赞

hm1511 2004-08-03

本地IIS上能正常运行

回复赞

hm1511 2004-08-03

Public Sub GetForum_Setting()
Name="setup"
If ObjIsEmpty() Then ReloadSetup()
CacheData=value
'每日更新数据
Name="Date"
'DelCahe "Date"
'第一次起用论坛或者重启IIS的时候加载缓存
If ObjIsEmpty() Then
value=Date()
ReloadAllForumInfo
ReloadAllBoardInfo
End If
Name="Date"
If Cstr(value) <> Cstr(Date()) Then
ReloadAllForumInfo
ReloadAllBoardInfo
Name="setup"
ReloadSetup()
CacheData=value
End If
Dim Setting
Setting=CacheData(1,0)
Setting = Split(Setting,"|||")
Forum_Info = Setting(0) '138行
Forum_Info = Split (Forum_Info,",")
Forum_Setting = Setting(1)
Forum_Setting = Split (Forum_Setting,",")
Forum_user = Setting(2)

回复赞