Question

asp无限级分类之(分类路径保存问题)拜托了各位 谢谢

我的无限级分类已做好,现在有一个问题是.当别人点击我的一个分类名时,我的网页就需要显示该分类名. 例如:首页>>分类名1>>分类名2>>分类名3>>分类名4 我如何才能保存到分类名的点击路径,实现上面的效果. 能解决的立刻赏分,在线等

Answer 1

'根据传递过来的参数ID 得到该ID的父目录的列表 '思路：根据传入参数的值打开记录取得此记录的parent_id，if parent_id = 0 Then已经达到顶层 '否则递归调用 Function GetRootCls(id) Dim Sql Dim Rs Set Rs = Server.CreateObject("Adodb.ReCordSet") Sql = "Select * From CommonSite_pcls Where id = "&Trim(id) Rs.Open Sql,Conn,3,3 '肯定有记录，否则只可能是参数出错 If Rs.RecordCount >= 0 Then '得到parent_id的值 Str = Str & "<a href=xx.asp?id="&Trim(Rs("id"))&">"& Trim(Rs("cls_name"))&"</a> >> " If Rs("parent_id") <> 0 Then '还没有达到顶层,递归开始 ' Response.write "递归开始"&Rs("parent_id") 'Response.end Str = Str & GetRootCls(Rs("parent_id")) Else Str = Str & "首页 " End If End If Rs.Close Set Rs = Nothing GetRootCls = Str End Function '调换顺序函数，即将最前的放到最后，最后的调到最前。为看到效果，调用处可先不使用此函数 function getSequence(SourceStr,Str) '实现调换次序功能,最后的排到最前,依次类推 'SourceStr为资源文件字符串 'Str为切分字符串 如Str = ">>" Dim a a = Split(SourceStr,Str) '拆开之的去除掉 a(i)的前后空格 m = Ubound(a) For j=0 to m AllStr = AllStr & Trim(a(m-j)) & " >> " Next getSequence = AllStr end function 调用:<%=getSequence(GetRootCls(id),">>")%> 2个函数肯定搞定