城杆

<%sub menus()
dim mymenus
mymenus=mymenus&"document.write('<a href=index.asp class="&chr(34)&"White"&chr(34)&">首 页</a>');"&Chr(10)
      exec="select * from cat where pcatid=0 and view=1 order by list asc"
   set cat=server.createobject("adodb.recordset")
   cat.open exec,conn,1,1
   do while not cat.eof  
    mymenus=mymenus&Chr(10)&"document.write(' <a href=class.asp?id="&cat("id")&" class=White>" &cat("catname")&"</a>');"
   cat.movenext
     loop
     cat.close
     set cat=nothing
   exec="select * from menu where view=1 order by list asc"
   set menu=server.createobject("adodb.recordset")
   menu.open exec,conn,1,1
   do while not menu.eof
   if menu("opennew")=1 then blank="target=_blank"
    mymenus=mymenus&Chr(10)&"document.write(' <a href="&menu("link")&" class=White "&blank&" >" &menu("menu")&"</a>');"
   menu.movenext
     loop
     menu.close
     set menu=nothing
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set file_w = fs.CreateTextFile(server.MapPath("../js/mymemus.js"))
file_w.WriteLine(mymenus)
response.Write("Success!<br>生成生成导航文件。文件已保存到："&server.MapPath("mymemus.js")&"<br>")    
file_w.close
set file_w=nothing
set fs=nothing
end sub
%>