4,009
社区成员




Dim jj:jj=0
Dim ri:ri=0
for each tmpimage in imglogolink
Dim tmpimgarray:tmpimgarray=split(tmpimage,"%")
Response.Write "<li><a href="""&tmpimgarray(1)&""" target=""_blank""><img src="""&tmpimgarray(2)&""" title="""&tmpimgarray(0)&""" width='88' height='31'/></a></li>"
ri=ri+1
if ri / 9 >1 And ri mod 9=0 then
jj=jj+1
end if
if ri mod 9=0 And ri>0 then
Call printCharacterSiteLink(jj)
end if
next
if UBound(imglogolink)<9 then Call printCharacterSiteLink(0)
end Sub
Sub printCharacterSiteLink(strIndex)
Dim charsymbol:charsymbol=0
'Response.Write strIndex*6
for j=strIndex*9 to UBound(charlink)
Dim tempchararray:tempchararray=split(charlink(j),"%")
Response.Write "<li><a href="""&tempchararray(1)&""" target=""_blank"" class=""charfont"">"&tempchararray(0)&"</a></li>"
charsymbol=charsymbol+1
if charsymbol=9 then exit sub
next
End Sub