| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 393 人关注过本帖
标题:[求助]如何修改以下代码
只看楼主 加入收藏
lvyichat
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-12-29
收藏
 问题点数:0 回复次数:0 
[求助]如何修改以下代码
以下这段代码可以以列表方式显示所有产品:
'=================================================
'过程名:ShowAllClass
'作 用:显示所有栏目(栏目导航)
'参 数:无
'=================================================
sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then
response.Write " 没有任何栏目"
else
dim sqlClass,rsClass,strClassName
rsBigClass.movefirst
do while not rsBigClass.eof
strClassName= "【<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'><b>" & rsBigClass("BigClassName") & "</b></a>】<br><br>"
sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
do while not rsClass.eof
strClassName=strClassName & "&nbsp;<a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>&nbsp;"
rsClass.movenext
loop
response.write strClassName & "<br><br>"
rsBigClass.movenext
loop
rsClass.close
set rsClass=nothing
end if
end sub

这样我可以在其它页面用<% call ShowAllClass() %>来调用。
现在我只想显示BigClassName为加工类分类(包括加工类所有子分类SmallClassName)的产品分类,如何改写?

[此贴子已经被作者于2005-12-29 16:00:29编辑过]

搜索更多相关主题的帖子: 代码 
2005-12-29 15:59
快速回复:[求助]如何修改以下代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023583 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved