下标超出范围：'3'需要帮助 [英] Subscript out of range: '3' Need Help

问题描述

我收到以下错误，我不知道为什么。任何人都可以帮助
帮助吗？


-------------------------- ------------------------------

这是屏幕上显示的内容

----------------------------------------------- ---------

2Sports''麻烦拍摄

插图''故障排除

报摊''麻烦拍摄


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


下标超出范围：''3'


/Lockerroom/search/searchfound.asp，第69行


------------------------ -------------------------------

屏幕结束

-------------------------------------------------- -----


oTitle1 =体育插图报亭

oTitle =拆分（oTitle1，""）

lenoTitle = ubound（oTitle，1）

Response.Write（lenoTitle）''解决问题


for i = 0 to lenoTitle''麻烦拍摄

Response.Write（oTitle（i））& "< BR>" 拍摄麻烦

接下来拍摄麻烦


--------------------- -----------------------------------

第69行从这里开始

--------------------------------------------- -----------

strSQL =" SELECT max（tblauctionbids.WinPrice）as highestPrice，

count（tblauctionbids.AID）as BidCount， tblauctionitems.Title，

tblauctionitems.MinPrice，tblauctionitems.IID，tblauctionitems.AID，

tableauctions.StartDate，tableauctions.EndDate" &安培; _

" FROM tblauctionitems" &安培; _

"左外联接表决（tblauctionitems.AID =

tableauctions.AID）" &安培; _

" left outer join tblauctionbids on（tblauctionitems.AID =

tblauctionbids.AID）" &安培; _

" WHERE（for i = 0 to lenoTitle）" &安培; _

" queryStr = queryStr&标题LIKE''％' &安培; oTitle（i）& ％''或标题LIKE

''％" &安培; oTitle（i）& ％''或 &安培; _

" next" &安培; _

" queryStr = left（queryStr，Len（queryStr）-3）" &安培; _

" queryStr = queryStr& AND tblauctionitems.Title LIKE''％' &安培; oTitle&

"％''按帮助订购'

I am getting the following error and I do not know why. Can anyone
help?

--------------------------------------------------------
this is what appears on the screen
--------------------------------------------------------
2Sports ''trouble shooting
illustrated ''trouble shooting
Newsstand ''trouble shooting

Microsoft VBScript runtime error ''800a0009''

Subscript out of range: ''3''

/Lockerroom/search/searchfound.asp, line 69

-------------------------------------------------------
End of screen
-------------------------------------------------------

oTitle1 = "Sports illustrated Newsstand"
oTitle = Split(oTitle1," ")
lenoTitle = ubound(oTitle,1)
Response.Write(lenoTitle) ''trouble shooting

for i=0 to lenoTitle ''trouble shooting
Response.Write(oTitle(i)) & "<BR>" ''trouble shooting
next ''trouble shooting

--------------------------------------------------------
Line 69 starts here
--------------------------------------------------------
strSQL = "SELECT max(tblauctionbids.WinPrice) as highestPrice,
count(tblauctionbids.AID) as BidCount, tblauctionitems.Title,
tblauctionitems.MinPrice, tblauctionitems.IID, tblauctionitems.AID,
tableauctions.StartDate, tableauctions.EndDate " & _
"FROM tblauctionitems " & _
"left outer join tableauctions on (tblauctionitems.AID =
tableauctions.AID) " & _
"left outer join tblauctionbids on (tblauctionitems.AID =
tblauctionbids.AID) " & _
"WHERE (for i=0 to lenoTitle) " & _
"queryStr = queryStr & Title LIKE ''%" & oTitle(i) & "%'' OR Title LIKE
''%" & oTitle(i) & "%'' OR" & _
"next " & _
"queryStr = left(queryStr, Len(queryStr)-3) " & _
"queryStr = queryStr & AND tblauctionitems.Title LIKE ''%" & oTitle &
"%'' ORDER BY AID"

推荐答案

0基于，而不是1基于。


-

Curt Christianson

网站&脚本： http://www.Darkfalz.com

博客： http://blog.Darkfalz.com

< an*******@earthlink.net>在消息中写道

news：11 ********************** @ c13g2000cwb.googlegr oups.com ...

0 based, not 1 based.

--
Curt Christianson
Site & Scripts: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
<an*******@earthlink.net> wrote in message
news:11**********************@c13g2000cwb.googlegr oups.com...

我收到以下错误，我不知道为什么。任何人都可以帮忙吗？

---------------------------------- ----------------------
这就是屏幕上出现的内容
------------- -------------------------------------------
2Sports''故障排除
插图''故障排除
报亭''故障排除

微软VBScript运行时错误''800a0009''

下标超出范围： ''3''
/ / Lockerroom /search/searchfound.asp，第69行

------------------ -------------------------------------
屏幕结束
- -------------------------------------------------- ---

oTitle1 =体育插图报亭

oTitle =拆分（oTitle1，""）
lenoTitle = ubound（oTitle，1）
Response.Write（lenoTitle）''麻烦拍摄

for i = 0 to lenoTitle''麻烦拍摄
回复se.Write（oTitle（i））& "< BR>" ''拍摄麻烦
接下来''拍摄麻烦

----------------------------- ---------------------------
第69行从这里开始
----------- ---------------------------------------------
strSQL =" SELECT max（tblauctionbids.WinPrice）as highestPrice，
count（tblauctionbids.AID）as BidCount，tblauctionitems.Title，
tblauctionitems.MinPrice，tblauctionitems.IID，tblauctionitems.AID，
tableauctions.StartDate，tableauctions.EndDate" &安培; _
FROM tblauctionitems &安培; _
"左外连接表格提取（tblauctionitems.AID =
tableauctions.AID）" &安培; _
" left outer join tblauctionbids on（tblauctionitems.AID =
tblauctionbids.AID）" &安培; _
  WHERE（for i = 0 to lenoTitle）" &安培; _
" queryStr = queryStr&标题LIKE''％' &安培; oTitle（i）& ％''或标题LIKE
''％' &安培; oTitle（i）& ％''或 &安培; _
下一个 &安培; _
" queryStr = left（queryStr，Len（queryStr）-3）" &安培; _
" queryStr = queryStr& AND tblauctionitems.Title LIKE''％' &安培; oTitle&
"％''按订单排序"

I am getting the following error and I do not know why. Can anyone
help?

--------------------------------------------------------
this is what appears on the screen
--------------------------------------------------------
2Sports ''trouble shooting
illustrated ''trouble shooting
Newsstand ''trouble shooting

Microsoft VBScript runtime error ''800a0009''

Subscript out of range: ''3''

/Lockerroom/search/searchfound.asp, line 69

-------------------------------------------------------
End of screen
-------------------------------------------------------

oTitle1 = "Sports illustrated Newsstand"
oTitle = Split(oTitle1," ")
lenoTitle = ubound(oTitle,1)
Response.Write(lenoTitle) ''trouble shooting

for i=0 to lenoTitle ''trouble shooting
Response.Write(oTitle(i)) & "<BR>" ''trouble shooting
next ''trouble shooting

--------------------------------------------------------
Line 69 starts here
--------------------------------------------------------
strSQL = "SELECT max(tblauctionbids.WinPrice) as highestPrice,
count(tblauctionbids.AID) as BidCount, tblauctionitems.Title,
tblauctionitems.MinPrice, tblauctionitems.IID, tblauctionitems.AID,
tableauctions.StartDate, tableauctions.EndDate " & _
"FROM tblauctionitems " & _
"left outer join tableauctions on (tblauctionitems.AID =
tableauctions.AID) " & _
"left outer join tblauctionbids on (tblauctionitems.AID =
tblauctionbids.AID) " & _
"WHERE (for i=0 to lenoTitle) " & _
"queryStr = queryStr & Title LIKE ''%" & oTitle(i) & "%'' OR Title LIKE
''%" & oTitle(i) & "%'' OR" & _
"next " & _
"queryStr = left(queryStr, Len(queryStr)-3) " & _
"queryStr = queryStr & AND tblauctionitems.Title LIKE ''%" & oTitle &
"%'' ORDER BY AID"

< an **** ***@earthlink.net>在消息中写道

news：11 ********************** @ c13g2000cwb.googlegr oups.com ...

<an*******@earthlink.net> wrote in message
news:11**********************@c13g2000cwb.googlegr oups.com...

我收到以下错误，我不知道为什么。任何人都可以帮忙吗？
Microsoft VBScript运行时错误''800a0009''

下标超出范围：''3''
strSQL =" ..." &安培; _
" ..." &安培; _
" ..." &安培; _


这里你的SQL字符串中有VBScript代码

VVVVVVVVVVVVVVVVVVVV" WHERE（i = 0 to lenoTitle）" &安培; _


这里

VVVV" ... next" &安培; _


在报价中？这里没有索引，oTitle（数字）

VVVVVVVVVVVVVVVVVVVVV VVVVVV" queryStr = queryStr& AND tblauctionitems.Title LIKE''％' &安培; oTitle&
"％''按礼订单

I am getting the following error and I do not know why. Can anyone
help? Microsoft VBScript runtime error ''800a0009''

Subscript out of range: ''3'' strSQL = "..." & _
"..." & _
"..." & _
You have VBScript code in your SQL string here
VVVVVVVVVVVVVVVVVVVV "WHERE (for i=0 to lenoTitle) " & _
And here
VVVV "...next " & _
In quotes? No index here, oTitle(number)
VVVVVVVVVVVVVVVVVVVVV VVVVVV "queryStr = queryStr & AND tblauctionitems.Title LIKE ''%" & oTitle &
"%'' ORDER BY AID"

Ray at work

Ray at work

柯特


你能告诉我你的意思吗？我明白你在说什么，但

只是不确定如何实施。谢谢

Curt

Can you show me what you mean. I understand what you are saying, but
just not sure how to implement. Thank you

这篇关于下标超出范围：'3'需要帮助的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！