查人人中国名人网自我鉴定在工作上:(70分大线等)asp中一个循环,帮下忙.
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/07 04:35:09
图片我都贴出到网上来了,http://poptn.com/gf/gf.htm(无法显示了请告知我一声)
我就是看不懂,是怎么循环得出一级菜单和二级菜单的.
我在线等,先出五十分,完事后再追加二十分,共七十分,都送出去了.
QQ:(214377696)
b没赋值，表明它开始就不等于a啊，那个没影响的，程序没问题的．
四楼的朋友,侠盗rockstar,那个tree_cod就是每行显示的菜单个数,在我的数据库里,不是不贴出来,而是太麻烦.
大家给我留个QQ好吗?
我们交流一下,不会耽误朋友太多时间的QQ:214377696
lindegong,那个大类在数据库中也是交差着的,我是说为什么不显示完大类一.再显示大类二,大类二后面还有大类一,再显示一个大类一,会不会这样呢?
你要注意那个if a<>rsprodtree("LarCode")在这里，开始第二大类
接着列出的它的子类，因为上边已经赋过一个值给a，就比如是第一大类的最后一个，那么在第二大类第一个子类开始时，这个就起作用了，也就是if开始起作用了
其它的没什么了，
Do While Not rsprodtree.eof
response.write "<tr><td width='175' bgcolor='#e7e7e7' class='dfont' height=20 colspan="&tree_col&">"
response.write "<a href='sublist.asp?LarCode="&rsprodtree("LarCode")&"'>"&rsprodtree("LarCode")&"</a></td></tr>"
a=rsprodtree("LarCode")
response.write "<tr>"
for i=0 to rsprodtree.recordcount
if i mod tree_col =0 and i<>0 then
response.write "</tr>"&vbcrlf&"<tr>"
response.write "<TD><a href='sublist.asp?LarCode="&rsprodtree("LarCode")&"&MidCode="&rsprodtree("MidCode")&"'>"&rsprodtree("MidCode")&"</a></TD>"
else
response.write "<TD><a href='sublist.asp?LarCode="&rsprodtree("LarCode")&"&MidCode="&rsprodtree("MidCode")&"'>"&rsprodtree("MidCode")&"</a></TD>"
end if
rsprodtree.movenext
if rsprodtree.eof then exit do
if a<>rsprodtree("LarCode") then
exit for
end if
这个我可是照着你的程序调的，可以的，你可以式一下。
你还发个Q上去，就没见你上过线
ASP原来是用VB做脚本啊，不是很懂，如果是asp.net就容易实现了
为什么只有两个主菜单：书籍类，电脑类?
到底是怎么显示的？
那是因为你数据库里就只有两大类，是否能再增加看你的程序有没有这功能，估计是有的，是一个静态的增加功能，这个菜单是很普通的一个菜单形式！
他的原理是将所有的项按大类排序！
电脑类 。。。。1
电脑类 。。。。2
书籍类 。。。。1
书籍类 。。。。2
那么一开始循环时，有一个记号B
用来判断是否要换一类了！一开始B为初始化值（最好给它赋值）
如：
B = "asdfghjklqwertyuiop12345678"
while not rs.eof
if b <> rs("大类") then
response.write "做出你要的格式来"
b=rs("大类")
end if
response.write "画出子目录的格式"（这个是比较难控制的）
rs.movenext
wend
看到有一句if i mod tree_cod = 0 and i<> 0 then ,tree_cod是什么
for 循环跳出后，给B赋值,和a是相同的
然后if(a<>b)这要就不会出现相同的父级菜单了
不回
忙。。。没时间，空了看