当前位置：网站首页 > 资源显示

asp二级类（下拉分类）ASP递归函数

发布时间：2017/5/4 15:05:10 / 浏览：709

完整代码（代码框可以往下拉高显示）：

数据表：=== fenlei ===
id
cname
fid ：父ID
rid : 排序ID,默认0
=================================
'----------------------------------------
'添加，修改通用函数(暂时只支持2级，N级需要改造函数)
'添加：classLi(0,0)
'修改：classLi(0,eid) 'EID 为当前ID
function classLi(fid,eid)
dim rs,str
str=""
set rs=conn.execute("select * from fenlei where fid="&fid&" order by rid asc,id asc")
if rs.eof and rs.bof then
str=""
else
	do while not rs.eof
	
	if fid=0 then '1级类,如果要改为N级无线下拉，需要改进这里
	   if rs("id")=eid then
	      str=str&"<option value='"&rs("id")&"' selected>├"&rs("cname")&"</option>"&classLi(rs("id"),eid) '递归
	   else
	      str=str&"<option value='"&rs("id")&"'>├"&rs("cname")&"</option>"&classLi(rs("id"),eid) '递归
	   end if	  
	else
	   if rs("id")=eid then
	      str=str&"<option value='"&rs("id")&"' selected>├──"&rs("cname")&"</option>"
       else	
	      str=str&"<option value='"&rs("id")&"'>├──"&rs("cname")&"</option>"
	   end if	  
	end if
	
	rs.movenext
	loop
end if
rs.close
set rs=nothing
classLi=str
end function
'---------------------------------------------------------------------
function GetCnameList(id) '分类导航 大类 >> 小类 纯文本名字，不带连接
if id="" then
GetCnameList="暂未分类"
else
'-----------------
dim rs,str
str=""
set rs=conn.execute("select * from fenlei where id="&id&"")
if rs.eof and rs.bof then
str="暂未分类"
else
	do while not rs.eof
	
	if rs("fid")=0 then '1级类
	   str=str&""&rs("cname")'
	else
	   str=str&""&GetCnameList(rs("fid"))&" >> "&rs("cname") '递归
	end if
	
	rs.movenext
	loop
end if
rs.close
set rs=nothing
GetCnameList=str
end if
end function

=================
添加：<select name="qbcid" id="qbcid"><option value=''>>> 请选择分类</option><%=classLi(0,0)%></select>
修改：<select name="qbcid" id="qbcid"><option value=''>>> 请选择分类</option><%=classLi(0,13)%></select>

附件资源（免费）

您尚未登录，暂时无法查阅资源！立即登录

插播广告区

发表评论

您尚未登录，暂时无法发表评论。立即登录

暂无任何评论

推荐资源更多 >>

付费资源更多 >>

广告区