ASP标签式循环(goto)

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