紧急求助------下标越界: '[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断开.
回复
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)
回复
wsdzmhongm 2004-08-03
把 行138 贴出来看看
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-03 10:23
社区公告
暂无公告