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

&lt;%
sub menus()

dim mymenus

mymenus=mymenus&amp;"document.write('&lt;a href=index.asp class="&amp;chr(34)&amp;"White"&amp;chr(34)&amp;"&gt;首 页&lt;/a&gt;');"&amp;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&amp;Chr(10)&amp;"document.write(' &lt;a href=class.asp?id="&amp;cat("id")&amp;" class=White&gt;" &amp;cat("catname")&amp;"&lt;/a&gt;');"

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&amp;Chr(10)&amp;"document.write(' &lt;a href="&amp;menu("link")&amp;" class=White "&amp;blank&amp;" &gt;" &amp;menu("menu")&amp;"&lt;/a&gt;');"

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!&lt;br&gt;生成生成导航文件。文件已保存到："&amp;server.MapPath("mymemus.js")&amp;"&lt;br&gt;")

file_w.close

set file_w=nothing

set fs=nothing

end sub

%&gt;

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

一	二	三	四	五	六	日
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

发表回复 取消回复

相关文章

发表回复取消回复