ASP标签式循环(goto)

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

类4嵌套循环
...全文
49 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
soundtbugle 2008-11-29
怎么没人回答呀!是太难了?
回复
soundtbugle 2008-11-29
我去你公司找你好了!你给我的都让我丢了!不幸
回复
街头小贩 2008-11-29
你个撒蛋!把我以前给你的哪个企业列表改一下就行了!
回复
soundtbugle 2008-11-28

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 2008-11-28
[Quote=引用 1 楼 zq9811 的回复:]
楼主太懒了吧 自己动手先写写撒 这样才深刻
[/Quote]
我写了!只是遇到问题才来问的!
回复
楼主太懒了吧 自己动手先写写撒 这样才深刻
回复
相关推荐
发帖
vbScript
创建于2007-09-28

4001

社区成员

它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
申请成为版主
帖子事件
创建了帖子
2008-11-28 02:25
社区公告
暂无公告