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

hm1511 2004-08-03 10:23:40
将本原access论坛升级为sql之后出现这样的问题,在本机测试通过,上传至服务器出现如下错误:


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

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

/bbs/inc/Dv_ClsMain.asp,行138
...全文
204 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
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 贴出来看看

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧