| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1456 人关注过本帖
标题:请高手帮帮忙哦!-下标越界: '[number: 2]'
只看楼主 加入收藏
odeya
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-9-14
收藏
 问题点数:0 回复次数:5 
请高手帮帮忙哦!-下标越界: '[number: 2]'

   今天装了一个友情链接系统,使用时总是出现如下出错信息:

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

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

/link1/linkforward.asp,行 28

 弄了半天也没有弄出结果来。。现将linkforward.asp 文件原码帖于后,希望哪位高手能帮一下哦。。多谢了!!!

<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<%
if request("forward")<>"" and request("ID")<>"" then
sql="select goout,gooutToday,outToday from link where ID="&request("ID")
rs.open sql,conn,1,3
if not rs.eof then
if DateDiff("d",rs("outToday"),now)=0 then
rs("goout")=rs("goout")+1
rs("gooutToday")=rs("gooutToday")+1
else
rs("goout")=rs("goout")+1
rs("gooutToday")=1
rs("outToday")=now
end if
rs.update
rs.close
end if
end if

if request("friendid")<>"" then
dim alternation
dim CookiesDoMain
dim CurrentDoMain

ComeFrom=request.ServerVariables("HTTP_REFERER")
ArrComeFrom=Split(ComeFrom,"/")
CurrentDoMain=ArrComeFrom(2)
if CurrentDoMain<>"" then
sql="select * from link where username='"&decryptstr(request("friendid"))&"'"
rs.open sql,conn,1,3
if not rs.eof then
arr2=Split(rs("Y_MyLink"),"/")
if CurrentDoMain=arr2(2) then
CookiesDoMain=request.Cookies("visit")(CurrentDoMain)
if CookiesDoMain="" then
if DateDiff("d",rs("inToday"),now)=0 then
rs("goin")=rs("goin")+1
rs("goinToday")=rs("goinToday")+1
else
rs("goin")=rs("goin")+1
rs("goinToday")=1
rs("inToday")=now
end if
rs.update
rs.close

sql="select alternation from setting"
set rs=conn.execute (sql)
if not rs.eof then
alternation=rs("alternation")
rs.close
end if
response.cookies("visit")(CurrentDoMain)="71C570102EE77010556F615C1FC82B7F"
Response.Cookies("visit").Expires= DateAdd("n",alternation,now())
end if
end if
end if
end if

dim L_SiteURL
sql="select L_SiteURL from setting"
set rs=conn.execute (sql)
if not rs.eof then
L_SiteURL=rs("L_SiteURL")
rs.close
end if
'response.Redirect(L_SiteURL)
response.write "<script>document.URL="""&L_SiteURL&""";</script>"
end if

%>
<form name="linkforward" id="linkforward" action="" method="post" target="_self">
<input name="forward" type="hidden">
<input name="ID" type="hidden">
</form>

搜索更多相关主题的帖子: font number Microsoft face 
2007-09-14 23:37
odeya
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-9-14
收藏
得分:0 
回复:(odeya)请高手帮帮忙哦!-下标越界: \'[numbe...
请高手帮帮忙哦!-下标越界: '[number: 2]'

   今天装了一个友情链接系统,使用时总是出现如下出错信息:

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

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

/link1/linkforward.asp,行 28

 弄了半天也没有弄出结果来。。现将linkforward.asp 文件原码帖于后(红色的为28行),希望哪位高手能帮一下哦。。多谢了!!!

<!--#include file="conn.asp"-->
<!--#include file="common.asp"-->
<%
if request("forward")<>"" and request("ID")<>"" then
sql="select goout,gooutToday,outToday from link where ID="&request("ID")
rs.open sql,conn,1,3
if not rs.eof then
if DateDiff("d",rs("outToday"),now)=0 then
rs("goout")=rs("goout")+1
rs("gooutToday")=rs("gooutToday")+1
else
rs("goout")=rs("goout")+1
rs("gooutToday")=1
rs("outToday")=now
end if
rs.update
rs.close
end if
end if

if request("friendid")<>"" then
dim alternation
dim CookiesDoMain
dim CurrentDoMain

ComeFrom=request.ServerVariables("HTTP_REFERER")
ArrComeFrom=Split(ComeFrom,"/")
CurrentDoMain=ArrComeFrom(2)
if CurrentDoMain<>"" then
sql="select * from link where username='"&decryptstr(request("friendid"))&"'"
rs.open sql,conn,1,3
if not rs.eof then
arr2=Split(rs("Y_MyLink"),"/")
if CurrentDoMain=arr2(2) then
CookiesDoMain=request.Cookies("visit")(CurrentDoMain)
if CookiesDoMain="" then
if DateDiff("d",rs("inToday"),now)=0 then
rs("goin")=rs("goin")+1
rs("goinToday")=rs("goinToday")+1
else
rs("goin")=rs("goin")+1
rs("goinToday")=1
rs("inToday")=now
end if
rs.update
rs.close

sql="select alternation from setting"
set rs=conn.execute (sql)
if not rs.eof then
alternation=rs("alternation")
rs.close
end if
response.cookies("visit")(CurrentDoMain)="71C570102EE77010556F615C1FC82B7F"
Response.Cookies("visit").Expires= DateAdd("n",alternation,now())
end if
end if
end if
end if

dim L_SiteURL
sql="select L_SiteURL from setting"
set rs=conn.execute (sql)
if not rs.eof then
L_SiteURL=rs("L_SiteURL")
rs.close
end if
'response.Redirect(L_SiteURL)
response.write "<script>document.URL="""&L_SiteURL&""";</script>"
end if

%>
<form name="linkforward" id="linkforward" action="" method="post" target="_self">
<input name="forward" type="hidden">
<input name="ID" type="hidden">

[此贴子已经被作者于2007-9-15 8:32:24编辑过]

2007-09-15 00:02
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
楼主可以试试
request.write (ComeFrom)
看看值到底是什么
CurrentDoMain=ArrComeFrom(2)
改成
CurrentDoMain=ArrComeFrom(1)
试试这样行不行
2007-09-15 00:24
odeya
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-9-14
收藏
得分:0 
谢谢楼上朋友, 我试着将

CurrentDoMain=ArrComeFrom(2)
改成
CurrentDoMain=ArrComeFrom(1)

过,还是一样的出错信息。
2007-09-15 08:27
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
request.write (ComeFrom)
这个的显示结果是什么呢?
2007-09-15 10:08
xiaohonghui0
Rank: 1
等 级:新手上路
威 望:1
帖 子:274
专家分:0
注 册:2006-4-10
收藏
得分:0 

说明你真个字段的值split后没有达到数组的三个值,所以超出了界限


曾用asp做过公司管理系统,新闻发布系统,个人网站之类,可代做网站 有意者请联系我,电话:13714123661
2007-09-16 00:29
快速回复:请高手帮帮忙哦!-下标越界: '[number: 2]'
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019603 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved