menus.asp

党委网站 党委网站党委网站党委网站党委网站党委网站

<!--#include file="conn.asp"-->
<%
response.Write("foldersTree = gFld(""网站所有信息分类"", """");")&chr(13)&chr(10)
response.Write("insDoc(foldersTree, gLnk(0, ""请点击查相关分类"",""""));")&chr(13)&chr(10)

set rs=server.CreateObject("adodb.recordset")
sql="select * from net_big_class order by id asc"
rs.open sql,conn,1,1
if rs.eof then
rs.close
response.Write("K1000 = insFld(foldersTree, gFld(""暂时没有分类"",""""));")&chr(13)&chr(10)
else
i=1
do while not rs.eof
response.Write("K1000"&i&"= insFld(foldersTree, gFld("""&rs("title")&""","""&rs("urlfile")&"?big="&rs("id")&"""));")&chr(13)&chr(10)
set rst=server.CreateObject("adodb.recordset")
sqlt="select * from net_sml_class where tobig="&rs("id")&" order by id asc" 
rst.open sqlt,conn,1,1
if rst.eof then
rst.close
else
do while not rst.eof
response.Write("insDoc(K1000"&i&", gLnk(0, """&rst("title")&""","""&rst("urlfile")&"?big="&rs("id")&"&sml="&rst("id")&"""));")&chr(13)&chr(10)
rst.movenext
loop
rst.close
end if
rs.movenext
i=i+1
loop
rs.close
end if
response.Write("initializeDocument();")&chr(13)&chr(10)
%>