我站今天在更新之后进首页出现这个问题：
Microsoft VBScript runtime 错误 '800a0009'

Subscript out of range: '[number: 1]'
../common/cache.asp，行 453
第453行内容： Bloglinks=Bloglinks&"<a class=""sideA"" href="""&Arr_BloglinkItem(1)&""" target=""_blank"" title="""&Arr_BloglinkItem(0)&""">"&Arr_BloglinkItem(0)&"</a>"
该段函数全部内容：

'=======================写入首页链接列表====================
Dim Arr_Bloglinks
function Bloglinks(ByVal action)
IF Not IsArray(Application(CookieName&"_blog_Bloglinks")) or action=2 Then
Dim log_Bloglinks,log_BloglinksList
Set log_BlogLinks=Conn.ExeCute("SELECT link_Name,link_URL,link_Image FROM blog_Links WHERE link_IsMain=True ORDER BY link_Order ASC")
SQLQueryNums=SQLQueryNums+1
TempVar=""
Do While Not log_BlogLinks.EOF
IF log_BlogLinks("link_Image")<>Empty Then
log_BloglinksList=log_BloglinksList&TempVar&log_BlogLinks("link_Name")&"$|$"&log_BlogLinks("link_URL")&"$|$"&log_BlogLinks("link_Image")
Else
log_BloglinksList=log_BloglinksList&TempVar&log_BlogLinks("link_Name")&"$|$"&log_BlogLinks("link_URL")&"$|$None"
End IF
TempVar="|$|"
log_BlogLinks.MoveNext
Loop
Set log_BlogLinks=Nothing
Arr_Bloglinks=Split(log_BloglinksList,"|$|")
Application.Lock
Application(CookieName&"_blog_Bloglinks")=Arr_Bloglinks
Application.UnLock
Else
Arr_Bloglinks=Application(CookieName&"_blog_Bloglinks")
End IF

if action=1 then
Dim Arr_Bloglink,Arr_BloglinkItem,ImgLink,TextLink
Bloglinks=""
for each Arr_Bloglink in Arr_Bloglinks
Arr_BloglinkItem=Split(Arr_Bloglink,"$|$")
if blog_ImgLink then
if Arr_BloglinkItem(2)="None" then
TextLink=TextLink&"<a class=""sideA"" href="""&Arr_BloglinkItem(1)&""" target=""_blank"" title="""&Arr_BloglinkItem(0)&""">"&Arr_BloglinkItem(0)&"</a>"
else
ImgLink=ImgLink&"<a href="""&Arr_BloglinkItem(1)&""" target=""_blank"" title="""&Arr_BloglinkItem(0)&"""><img src="""&Arr_BloglinkItem(2)&""" border=""0"" alt=""""/></a> "

end if
else
Bloglinks=Bloglinks&"<a class=""sideA"" href="""&Arr_BloglinkItem(1)&""" target=""_blank"" title="""&Arr_BloglinkItem(0)&""">"&Arr_BloglinkItem(0)&"</a>"
end if
next
if blog_ImgLink then Bloglinks=ImgLink&TextLink
end if
end function

[ 本帖最后由 danice 于 2008-3-16 10:34 编辑 ]

有人看，没人回，郁闷……
   不过还好，自己解决了，不过具体原因还没弄清楚……
有晓得的告诉我下，谢谢……

偶也出问题了,8知道咋解决 LZ告诉下

初步查出是以为友情链接的问题……你是不是因为友情链接使用的是滚动的……而且友情链接名字字数超长啊……

没啊

哇咔咔,楼主遇到了和我用样的问题!

我教你怎么做..

额,下了..

我正准备写教程..

解决方法请看这里:
http://bbs.pjhome.net/thread-31822-1-1.html