ASP – 第 4 页 – 筚路蓝缕

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

ASP生成JS文件

用ASP+FSO生成JS文件 <!–#include file=”conn.as […]

ASP2006年12月10日2011年10月19日

一个统计！

test.htm <script language="JavaScript" src=& […]

ASP2006年12月10日2011年10月19日

asp的性能

技巧 8：迟一点获得资源，早一点释放资源　　这里是一个小技巧供您参考。一般来说，最好迟一点获得资源，早一点释 […]

ASP2006年12月10日2011年10月15日

首页的菜单生成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

ASP2006年12月10日

asp文件遍历代码的扩展

上面的这个和js一起用 ======================

ASP2006年12月10日

asp生成静态页的代码

=================

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

两个asp的函数，一个是扩展名的！

‘******************************************** &#8 […]

ASP2006年12月10日2011年10月19日

改掉的分页代码

<% rs.PageSize=25 '每页显示条数 pagecount=rs.PageCount […]

ASP2006年12月10日2011年10月19日

这个就是传说中的批量更新

exec="select * from products where gameid […]

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

asp的两个应用外部提交和判断ip

server_v1=cstr(request.servervariables(“http_refe […]

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

一个asp函数，alert的动作

‘================================================ […]

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

一个asp的函数关于split分隔字符串！

‘*********************************************** […]

ASP2006年12月10日2011年10月19日

今天一天写了几个函数

'*********************************************** &# […]

ASP2006年12月10日

用ADODB.Stream代替FSO读取文本文件

因为fso对utf-8的支持不是很好，所以改成这个这个生成静太页也很快 '创建要生成的静态页 Wit […]

ASP2006年12月10日2011年10月19日

将XML数据发送到客户端

'将xml数据发送到客户端 Dim dom set dom=Server.CreateObj […]

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

一份ASP内存的释放的实验报告

实验目的:验证主动释放内存变量是否有价值. 实验原始代码: <script language=vbscr […]

ASP2006年12月3日

使用ASPJPEG添加水印的方法

　　这些天研究了一下ASP的自动添加图片水印的方法。　　因为原先我的图片总是被盗链，因此我使用程序将图片增加 […]

ASP2006年12月3日2011年10月19日

eWebEditor编辑器的安全漏洞

　　今天帮一个朋友清除了Z-Blog里的一个系统漏洞。　　早上，ilmay发邮件给我，说他博客进不去，要我帮 […]

ASP2006年12月3日2011年10月19日

五行代码实现ASP无组件上传

　　目前有很多无组件上传类，大多写的相当复杂，有的居然还只能传文本，最关键的是没有10行代码以下的。　　其实 […]

ASP2006年12月3日2011年10月19日

屏蔽敏感关键字功能的代码

Function WordFilter(strInput)　 Dim i　 Dim strOutput　 Di […]

ASP2006年12月3日

多个绑定多域名的ASP代码

　　如果只有一个ASP空间，而你又想放置多个多个站点，这些代码可以帮到你。第一个 www.xxx.info& […]

ASP2006年12月3日

IIS的ASP程序不能浏览的解决方法

　　IIS5的HTTP 500内部服务器错误是我们经常碰到的错误之一，它的主要错误表现就是ASP程序不能浏览但 […]

ASP2006年12月3日2011年10月19日

编写COM组件，将数据库链接的语句写成COM组件

打开VB，新建ActiveX Dll,将工程改名为COMConnection,类模块改名为class,在cla […]

ASP2006年12月3日2011年10月19日

热文排行的算法进行了优化

　　以前的算法是根据点击数目来排行，有很多不足的地方，比如没有考虑时间因素，没有考虑用户对其的推荐等因素，最近 […]

ASP2006年12月3日

ASP脚本生成GUID的实现

　　全球唯一标识符 (GUID) 是一个字母数字标识符，用于指示产品的唯一性安装。在许多流行软件应用程序（例如 […]