问题描述
我收到以下错误，我不知道为什么。任何人都可以帮助
帮助吗？
-------------------------- ------------------------------
这是屏幕上显示的内容
----------------------------------------------- ---------
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"
推荐答案
Ray at work
Ray at work
这篇关于下标超出范围：'3'需要帮助的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！