查看: 64|回复: 2

[求助]ASP产品分类列表问题（不段加分）

[复制链接]

绝对标致

电梯直达

1^#

发表于 2010-1-15 06:36:53 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

请先看代码：(追加100，回答好的再加！)
sub ShowSmallClass_Tree()
if rsBigClass.bof and rsBigClass.eof then
response.Write "栏目正在建设中……"
else
dim sqlClass,rsClass,strTree,BigClassNum,i,j
rsBigClass.movefirst
BigClassNum=rsBigClass.recordcount
i=1
do while not rsBigClass.eof
if i<BigClassNum then
strTree=""
else
strTree=""
end if
sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
strTree= strTree & "<table width=180 border=0 cellpadding=0 cellspacing=0>"
strTree= strTree & "<tr>"
strTree= strTree & "<td width=24 height=22>"
strTree= strTree & "<div align=center><img src=Img/arrow_6.gif width=13 height=11></div></td>"
strTree= strTree & "<td width=150>"
strTree= strTree & "<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'>"
strTree=strTree & rsBigClass("BigClassName")
strTree=strTree & "</a></td>"
'strTree=strTree & "</td>"
strTree= strTree & "</tr><tr>"
strTree=strTree & "<TD height=1 colspan=2 background=img/naSzarym.gif>"
strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>"
strTree=strTree & "</TR>"
strTree=strTree & "</table>"
SmallClassNum=rsClass.recordcount
j=1
do while not rsClass.eof
rsClass.movenext
j=j+1
loop
response.write strTree
rsBigClass.movenext
i=i+1
loop
rsClass.close
set rsClass=nothing
end if
end sub
现在显示的如下
一产品类别
二产品类别
三产品类别
……
我想修改成：
一产品类别——鼠标移动到上面弹出二级分类（且一、二级都能点击进入分类页）
二产品类别——鼠标移动到上面弹出二级分类（且一、二级都能点击进入分类页）
三产品类别——鼠标移动到上面弹出二级分类（且一、二级都能点击进入分类页）
……
希望修改的效果如下：http://www.fayren.com/product/gb/index.asp
提问者：inson2008 - 经理四级

来源：http://zhidao.baidu.com/question/12509495.html

收藏0

使用道具举报

lala

2^#

发表于 2010-1-15 06:36:57 | 只看该作者

你说的也是下拉框的3级连动，代码网上有的是，我就不多说了~摆渡一下吧~用不着你这么麻烦的

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册