GD win系统ASP空间 出错，各位帮忙看下什么情况。在线等待中

穿着开裆裤

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 2]'

/jhliaotian001/system/config.asp, line 3

[ 本帖最后由 穿着开裆裤 于 2010-11-14 08:29 AM 编辑 ]

穿着开裆裤

在本地测试没有问题，在咱们国内空间上测试也没问题，传到GD上就出现了上面的问题了。

以下是config.asp的前几段。
<%
cfg_config1=split(Application("cwjh_config"),"┋")
cfg_config2=cfg_config1(2)
cfg_config3=split(cfg_config2,"‖")

zcsln

你循坏输出数组的值看看

上面显示是下标越界了

穿着开裆裤

<%
sub Gohome
'**********************************************************************************
thisisbak=0                '定义是否启用自动备份数据库功能,1为启用,0为不启用
Application("cwjh_datapath")="cwjh_data"        '设置数据库文件夹名称
cwjh_data=Application("cwjh_datapath")&"/jCjHw/lts1/##one1_home.mdb"        '主数据库
cwjh_sub=Application("cwjh_datapath")&"/jCjHw/lts1/##too2_home.mdb"        '副数据库
cwjh_bbs=Application("cwjh_datapath")&"/dkbsbbs/#sCjhsbss.mdb"                '江湖论坛
cwjh_ip=Application("cwjh_datapath")&"/jCjHw/lts1/#33l28a_ip.mdb"                'IP地址数据库
cwjh_stock=Application("cwjh_datapath")&"/jCjHw/lts1/#gpsj.mdb"                '股票数据库
'**********************************************************************************
'以下内容请不要随便修改！有问题请联系军缘网络QQ:115287342
'**********************************************************************************
Application("cwjh_usermdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(cwjh_data)
Application("cwjh_submdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(cwjh_sub)
Application("bbs_connstr")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(cwjh_bbs)
Application("cwjh_ip")=Server.MapPath(cwjh_ip)
Application("cwjh_stock")=Server.MapPath(cwjh_stock)
Application("jhshowurl")="http://qqshow-item.tencent.com"
Application("cwjh_ver")="帝王旗舰V11.0"
Application("cwjh_npc")=""
Application("cwjh_tltie")="【"&Application("cwjh_chatroomname")&"】欢迎大家光临！购买会员支持江湖发展！"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "SELECT * FROM r order by id",conn
roomcount=""
do while Not rs.Eof
        roomcount=roomcount&rs("a")&"|"&rs("b")&"|"&rs("c")&"|"&rs("d")&"|"&rs("e")&"|"&rs("f")&"|"&rs("g")&"|"&rs("h")&"|"&rs("i")&"|"&rs("j")&"|"&rs("l")&"|"&rs("m")&";"
        rs.MoveNext
loop
rs.close
Application.Lock
Application("cwjh_room")=roomcount
Application.UnLock
'读取配置到缓存
set cw_cfg=conn.execute("select * from 说明 where a='配置'")
if not cw_cfg.eof then Application("cwjh_config")=cw_cfg("c")
set cw_cfg=nothing
'判断备份
isbak=0
if thisisbak=1 then
rs.open "select top 1 * from [system] order by addtime desc"
if not rs.eof then
itistime=rs("addtime")
if cdate(itistime)<now()-15 then isbak=1
else
isbak=1
end if
if isbak=1 then
sql="insert into [system]([name],[addtime]) values ('#"&date()&"自动备份.asp','"&now()&"')"
conn.execute(sql)
sql="delete * from [system] where cdate(addtime)<now()-60"
conn.execute(sql)
end if
rs.close
end if
'判断备份
set rs=nothing
conn.close
set conn=nothing
Dim nameindex(0)
cwjh_roominfo=split(Application("cwjh_room"),";")
for roomsn=0 to ubound(cwjh_roominfo)-1
         Application("cwjh_onlinelist"&roomsn)=nameindex
         fenroom=split(cwjh_roominfo(roomsn),"|")
         application("cwjh_chatroomname"&roomsn)=fenroom(0)
         Application("cwjh_useronlinename"&roomsn)=""
next
Dim wbq(0)
Application("cwjh_webicq")=wbq
webicqname=" "
Application("cwjh_webicqname")=webicqname
'调用备份
if isbak=1 then
        call db_bak()
end if
End sub
'自动备份数据库
Private Sub db_bak()'On Error resume Next
bak_dbpath = Server.MapPath(Application("cwjh_datapath")&"/DataBackup/#"&date()&"自动备份.asp")
SourceConn = Application("cwjh_usermdb")
DestConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & bak_dbpath
Set oJetEngine = Server.CreateObject("JRO.JetEngine")
With oJetEngine
.CompactDatabase SourceConn, DestConn
End With
End Sub
'自动备份数据库
if Application("st_gohome")="" then
Application.Lock
Application("st_gohome")="go"
Application.UnLock
call Gohome()
Response.write "<script Language=Javascript>this.location.reload()</script>"
else
Response.end
end if
%>

穿着开裆裤

现在提示：
Microsoft JET Database Engine error '80040e37'

The Microsoft Jet database engine cannot find the input table or query '˵Ã÷'. Make sure it exists and that its name is spelled correctly.

/jhliaotian001/GLOBAL.ASP, line 37

穿着开裆裤

Microsoft JET Database Engine error '80040e37'

The Microsoft Jet database engine cannot find the input table or query '˵Ã÷'. Make sure it exists and that its name is spelled correctly.

/jhliaotian001/GLOBAL.ASP, line 37

为什么过一段时间就又提示如上信息了？再过一段又提示如上信息
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 2]'
/jhliaotian001/system/config.asp, line 3

穿着开裆裤

dddddddddd

穿着开裆裤

DDDDD

360111697

放弃吧，后续问题会很多

穿着开裆裤

发现了 确实很多错误