导航(递归)
2007-12-25 08:13:21| 分类:
ASP开发
| 标签:
|举报
|字号大中小 订阅
Function NavShow(sClassID,sConn)
Dim F_Rs
F_Rs = Server.Create("ADODB.RecordSet")
F_Rs.Open "select * from tbl_class where classid="&sClassID,sConn,1,1
If F_Rs.Eof Then
Response.Write " 无 "
Else
Response.Write F_Rs("classname")
If F_Rs("parentid") <> 0 Then
NavShow(F_Rs("parentid"),sConn)
Else
Response.Write " 根目录 "
End IF
End If
End Function
评论这张
转发至微博
转发至微博
评论