首页的菜单生成js的代码，js可以让asp加速！

<%
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

%>