ASP取值问题,麻烦高人看一下@@@@

[xiaoc3]

比如,,一个栏目

这个栏目录的表叫A, 里面有id pid name
aaaaaaaa (id=1) (pid=0)
|-bbbbbbbbbbb (id=2) (pid=1)
|-cccccccccc (id=3) (pid=2)

内容表叫B 字段有 id pid ppid title content

我新添加了一条新闻 选择的栏目是 bbbbbbbb

id=1 pid=2 ppid=这里我想要PPID等于1

在选择栏目CCCCCCCCC的时候,我也想要PPID等于1

也就是想要一级栏目下的所有栏目,PPID都于1

在新建另一个一级栏目的时候,,,这个栏目下的所有栏目 指向的PPID就是这个栏目的ID

要怎么实现????

我现在就只获取到PID,,,PPID不知道要怎么获取

[aemyang1987]

可以先设所有的一级栏目的pid=0,通过递归算法的到一级栏目的id,就可以制定ppid.

[xiaoc3]

就是不知道怎么做了,,我只传了一个PID,ppid等于不了id

[xiaoc3]

sub selpcls(pid,lvl,cid)
Dim rs
dim arrTmp,i
if pid=0 then
response.Write("<select name=""pcls"" id=""pcls"">")
response.Write("<option value=""0"">--选择类别--</option>")
end if
set rs=conn.execute("select id,cls_name,parent_id from CommonSite_pcls where parent_id="&pid)
do while not rs.eof
response.Write "<option value="""&rs(0)&""" "
if trim(cstr(cid))=cstr(rs(0)) then
response.Write("selected=""selected""")

end if
response.Write ">"
if lvl=0 then
response.Write(rs(1))
else
for i=0 to lvl
response.Write(" ")
next
response.Write(chr(25)&rs(1))
end if
response.Write "</option>"
call selpcls(rs("id"),lvl+1,cid)
rs.movenext
loop
rs.close
set rs=nothing
if pid=0 then
response.Write("</select>")
end if
end sub

这代码有用吗????是要在里面添加吗?

[number123456]

function getPPID(pid)
    set rs = Server.CreateObject("adodb.recordset")
    rs.open "select pid from A where id="&pid,conn,1,1
    if rs("pid") = 0 then
        PPID = pid
    else
        PPID = getPPID(rs("pid"))
    end if
    rs.close
    getPPID = PPID
end function
ppid = getPPID(3)'cccccc栏目

[xiaoc3]

怎么结合呀,,

[xiaoc3]

有高人吗???

[plcc123]

这个问题我之前问过，好像解决了。！自己解决的，这里没人告诉我

[number123456]

你想怎么结合？
你描述的是当选择栏目cccccccccc时，获得cccccccccc栏目的ID = 3
通过上述方法ppid = getPPID(3)'cccccc栏目
这个PPID不就是你想要的吗

[freebirdyjl]

如果是无限级分类，那你的设计思路就有问题。
假如有10级分类

你要查询第二大类下面存在多少新闻，那么你还准备第归下去然后在来判断？