ASP标签式循环(goto)

[soundtbugle]

有两个一维数组:a,b
先读a:-->如果a不足6个元素,再去读b数组
反之从a中读6个元素.再去读b数组
再读b:-->要求同a一样

类4嵌套循环

[大王带我来巡山]

楼主太懒了吧 自己动手先写写撒 这样才深刻

[soundtbugle]

[Quote=引用 1 楼 zq9811 的回复:]
楼主太懒了吧 自己动手先写写撒 这样才深刻
[/Quote]
我写了！只是遇到问题才来问的！

[soundtbugle]

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

这个有问题！

[街头小贩]

你个撒蛋！把我以前给你的哪个企业列表改一下就行了!

[soundtbugle]

我去你公司找你好了！你给我的都让我丢了!不幸

[soundtbugle]

怎么没人回答呀！是太难了？