Venlentine – 第 57 页

&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

理论2006年12月10日

John Carmack密码：0x5f3759df

有人在Quake III的源代码里面发现这么一段用来求平方根的代码: /*================Sq […]

服务器2006年12月10日

resin的服务器方法

在resin的使用档里找到的 Resin Installation Quick Start Quick Sta […]

Javascript2006年12月10日2015年9月27日

mbsky的一个js

<!– var focus_width=222 var focus_height=120 v […]

Javascript2006年12月10日2011年10月15日

Javascript的flash幻灯片

&lt;script&gt;
&lt;!--
var focus_width=222
var focus_height=120
var text_height=0
var swf_height = focus_height+text_height
var pics='http://www.mbsky.com/uploadImages/200661434199281.jpg|http://www.mbsky.com/uploadImages/200661434010421.jpg|http://www.mbsky.com/uploadImages/200661432548109.jpg|http://www.mbsky.com/uploadImages/200661432233047.jpg|http://www.mbsky.com/uploadImages/200661431717845.jpg|http://www.mbsky.com/uploadImages/200661431319781.jpg'
var links='/InfoView/Article_6507.html|/InfoView/Article_6506.html|/InfoView/Article_6504.html|/InfoView/Article_6501.html|/InfoView/Article_6498.html|/InfoView/Article_6496.html'
var texts='||||| '
document.write('&lt;object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'"&gt;');
document.write('&lt;param name="allowScriptAccess" value="sameDomain"&gt;&lt;param name="movie" value="http://www.mbsky.com/images/pixviewer.swf"&gt;&lt;param name="quality" value="high"&gt;&lt;param name="bgcolor" value="#ffffff"&gt;');
document.write('&lt;param name="menu" value="false"&gt;&lt;param name=wmode value="opaque"&gt;');
document.write('&lt;param name="FlashVars" value="pics='+pics+'&amp;links='+links+'&amp;texts='+texts+'&amp;borderwidth='+focus_width+'&amp;borderheight='+focus_height+'&amp;textheight='+text_height+'"&gt;');
document.write('&lt;embed src="http://www.mbsky.com/images/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&amp;links='+links+'&amp;texts='+texts+'&amp;borderwidth='+focus_width+'&amp;borderheight='+focus_height+'&amp;textheight='+text_height+'" menu="false" bgcolor="#ffffff" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /&gt;');
document.write('&lt;/object&gt;');
//--&gt;
&lt;/script&gt;

<!--

var focus_width=222

var focus_height=120

var text_height=0

var swf_height = focus_height+text_height

var pics='http://www.mbsky.com/uploadImages/200661434199281.jpg|http://www.mbsky.com/uploadImages/200661434010421.jpg|http://www.mbsky.com/uploadImages/200661432548109.jpg|http://www.mbsky.com/uploadImages/200661432233047.jpg|http://www.mbsky.com/uploadImages/200661431717845.jpg|http://www.mbsky.com/uploadImages/200661431319781.jpg'

var texts='||||| '

document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');

document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="http://www.mbsky.com/images/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#ffffff">');

document.write('<param name="menu" value="false"><param name=wmode value="opaque">');

document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');

document.write('<embed src="http://www.mbsky.com/images/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#ffffff" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');

document.write('</object>');

//-->

</script>

ASP2006年12月10日

作者： Venlentine

asp删除文件的函数（三个）

完整的获取当前jsp文件路径的语句

一个优化数据库连接的代码

水印的一个例子

Ajax基础教程

ASP生成JS文件

一个统计！

asp的性能

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

John Carmack密码：0x5f3759df

resin的服务器方法

mbsky的一个js

Javascript的flash幻灯片

asp文件遍历代码的扩展

人月神话：软件界面交互和易用性改进总结

LISP人工智能程序语言

人工智能程序是什么？

关于一个iframe的javascript跳转自动调高

这个javascript不错

为cuku.net做一个sitemap

在Unix/HP-UX系统上安装PHP

Unix/Mac OS X installs PHP

Unix/OpenBSD系统上安装PHP

Unix/Solaris安装PHP

在Unix系统上安装PHP