新闻-》娱乐-》国内-》辽宁-》沈阳-》XX区-》 标题
function showclass(id)
Set rs=server.CreateObject("adodb.recordset")
sql="select * from class where id="&id&""
rs.open sql,conn,1,1
SortTextPath=" → " & rs("title")
if rs("uid")<>0 then showclass rs("uid")'这里用0表示最顶层，就是再也没有父节点了，根据你的情况来改变
response.write(SortTextPath)
End Function
Set rs=server.CreateObject("adodb.recordset")
sql="select * from news where id="&id&""
rs.open sql,conn,1,1
c_id=rs("c_id")
showclass c_id