asp三级级联菜单的后两个菜单问题

2025-04-28 13:57:47

推荐回答（2个）

回答1：

<%
dim cid,coid
cid = request("cid") 'cid 大类id
coid = request("coid") 'coid 中类id
set rs=server.createobject("adodb.recordset")
sql = "select * from edu_c" '表一大类表
rs.open sql,conn,1,1
strOption1 = ""
do while not rs.eof
if cstr(rs("id")) = cstr(cid) then
strOption1 = strOption1 & ""
else

strOption1 = strOption1 & ""

end if
rs.movenext
&nbs
p; loop

rs.close

if cid <> "" then
sql = "select * from edu_co where c_id=" & cid '表二中类表 bid==表一中的id

rs.open sql,conn,1,1
strOption2 = ""

do while not rs.eof
if cstr(rs("id")) = cstr(coid) then
strOption2 = strOption2 & ""
else
strOption2 = strOption2 & ""
&nbs

p; end if
rs.movenext
loop
rs.close
end if

if coid <> "" then
sql = "select * from edu_s where co_id= " & coid '表三小类表 mid==表二的id
rs.open sql,conn,1,1
strOption3 = ""
while not rs.eof
if cstr(rs("id")) = cstr(sid) then
strOption3 = strOption3 & ""
else
strOption3 = strOption3 & ""
end if

rs.movenext
wend
rs.close
end if

%>

回答2：

<% Option Explicit %>

<%
Dim DBC,CollectConn
Dim SelectPath
Set DBC = New DataBaseClass
Set CollectConn = DBC.OpenConnection()
Set DBC = Nothing
SelectPath = "/"
Dim Rs
%>

<%
Dim TempletDirectory,intDepth,strSql,objRs
Dim ClassID0,ClassID1,intClassID,ClassList0,ClassList1,ClassList2
TempletDirectory = "/"
intClassID = Request.QueryString("ClassID")
intDepth = Request.QueryString("Depth")
If intClassID="" Or Not IsNumeric(intClassID) Then
intClassID = 0
Else
intClassID = CInt(intClassID)
End If
If intDepth = "" Or Not IsNumeric(intDepth) Then
intDepth = 0
Else
intDepth=CInt(intDepth)
End If
Set objRs = Server.CreateObject("ADODB.RecordSet")
If intDepth = 0 Then
ClassID0 = intClassID
Else
ClassID1=intClassID
strSql = "Select Parent From Bj_Class Where Id="&ClassID1
objRs.Open strSql,CollectConn,1,1
If Not objRs.EOF Then
ClassID0 = ObjRs("Parent")
End If
objRs.CLose
End If
strSql = "Select Id,Title From Bj_Class Where Depth=0 Order By Id"
objRs.Open strSql,CollectConn,1,1
Do While Not objRs.EOF
If ClassID0 = objRs("Id") Then
ClassList0 = ClassList0 & ""
Else
ClassList0 = ClassList0 & ""
End If
objRs.Movenext()
Loop
objRs.CLose
If Request.QueryString("Depth")="1" And Request.QueryString("ClassId")="0" Then
ClassID0=-1
ClassID1=-1
End If
If Request.QueryString("ClassId")<>"" Then
strSql = "Select Id,Title From Bj_Class Where Parent="&ClassID0
Else
strSql = "Select Id,Title From Bj_Class Where Parent=-1"
End If
objRs.Open strSql,CollectConn,1,1
Do While Not objRs.EOF
If ClassID1 = objRs("Id") Then
ClassList1 = ClassList1 & ""
Else
ClassList1 = ClassList1 & ""
End If
objRs.Movenext()
Loop
objRs.CLose
If intDepth = 1 Then
strSql = "Select Id,Title From Bj_Class Where Parent="&ClassID1
objRs.Open strSql,CollectConn,1,1
Do While Not objRs.EOF
ClassList2 = ClassList2 & ""
objRs.Movenext()
Loop
objRs.CLose
End If
Set objRs = Nothing
%>

目标栏目

--
--

<%
Set CollectConn = Nothing
%>