这是一个BLOG里的友情链接代码,,,
这一段代码是坚排的,,我想把"它"整成横排的,
一排5个,5个后换行,
高手怎么整啊,,,请指教
<%
Dim blog_LinksListNums,blog_LinksListNumI,blog_LinksMainIMG,blog_LinksMainTXT
blog_LinksListNums=Ubound(Arr_Bloglinks,2)
For blog_LinksListNumI=0 To blog_LinksListNums
IF Arr_Bloglinks(2,blog_LinksListNumI)<>Empty Then
blog_LinksMainIMG=blog_LinksMainIMG&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank""><img src="""&Arr_Bloglinks(2,blog_LinksListNumI)&""" border=""0"" alt="""&Arr_Bloglinks(0,blog_LinksListNumI)&"""></a></div>"
Else
blog_LinksMainTXT=blog_LinksMainTXT&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank"">"&Arr_Bloglinks(0,blog_LinksListNumI)&"</a></div>"
End IF
Next
Response.Write(blog_LinksMainIMG)
Response.Write(blog_LinksMainTXT)
%>
參考答案:<%
Dim blog_LinksListNums,blog_LinksListNumI,blog_LinksMainIMG,blog_LinksMainTXT
blog_LinksListNums=Ubound(Arr_Bloglinks,2)
Dim countI
countI=0
For blog_LinksListNumI=0 To blog_LinksListNums
IF Arr_Bloglinks(2,blog_LinksListNumI)<>Empty Then
blog_LinksMainIMG=blog_LinksMainIMG&"<div style=""float: left;"">|<a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank""><img src="""&Arr_Bloglinks(2,blog_LinksListNumI)&""" border=""0"" alt="""&Arr_Bloglinks(0,blog_LinksListNumI)&"""></a></div>"
countI = countI + 1
If countI >= 5 Then
blog_LinksMainIMG = blog_LinksMainIMG & "<BR>"
countI = 0
End If
Else
blog_LinksMainTXT=blog_LinksMainTXT&"<div style=""float: left;"">|<a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank"">"&Arr_Bloglinks(0,blog_LinksListNumI)&"</a></div>"
countI = countI + 1
If countI >= 5 Then
blog_LinksMainIMG = blog_LinksMainIMG & "<BR>"
countI = 0
End If
End IF
Next
Response.Write(blog_LinksMainIMG)
Response.Write(blog_LinksMainTXT)
%>