<%
strSql="select * from lanmu where key order by orderid"
rs.open strSql,conn,1,1
i=0
while not rs.eof%>- <%
if rs("key1") then
if rs("url")="#" or rs("url")="" then
response.Write(""&rs("name")&"")
else
response.Write(""&rs("name")&"")
end if
else
if rs("key2") then
response.Write(""&rs("name")&"")
else
response.Write(""&rs("name")&"")
end if
end if
strSql="select * from lanmu where fatherID="&rs("id")&" order by orderid"
rs1.open strSql,conn,1,1
if not rs1.eof then
response.Write("
")
while not rs1.eof
response.Write("- "&rs1("name")&"
")
rs1.movenext
wend
response.Write(" ")
end if
rs1.close
%> <%
rs.movenext
i=i+1
wend
rs.close
%> |
|