ASPResponse.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "No-Cache" HTML<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <meta http-equiv="Pragma" CONTENT="no-cache"> <meta http-equiv="Cache-Control" CONTENT="no-cache"> <meta http-equiv="Expires" CONTENT="0"> Javascript 对于js，可以...
代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> <% 该程序通过使用ASP的FSO功能，减少数据库的读取。经测试，可以减少90%的服务器负荷。页面访问速度基本与静态页面相当。 使用方法：将该文件放在网站里，然后在需要引用的文件的“第一行”用include引用即可。 =======================参数区============================= DirName="cachenew\" 静态文件保存的...
代码如下:<% Response.Buffer = True '一般情况下，当用户请求WEB服务器时，服务器把请求回复给客户端。在客户端，浏览器把缓存作为一种加快速度的策略，就是当请求时先检查缓存的情况，如果有就直接调缓存了，而不请求服务器了。 '在WEB程序设计中，有时为了防止重复的提交或者严格的次序等，必须让用户的数据立即在使用后就过期，当用户后退时就显示过期而不能继续使用。一般，response.expires写在页面的最上端，后面跟的是过期...
在使用VBScript时，我们可以用Application缓存数组来实现缓存，例： 程序代码： 代码如下:Dim rs,arr rs.Open conn,sql,1,1 arr=rs.GetRows() Application.Lock() Application("cache")=arr Applicatoin.UnLock() 在VBScript里，数组是可以存到Application对象里的，但是如果ASP的语言选择为JScript的话，那么就有些不妙了，我们在使用Application储存一个数组时，会出现以下错误： 引用内容： Application object, ASP 0197...
这一种方法适合，访问相对集中在同样内容页面的网站，会自动生成缓存文件(相当于读取静态页面，但会增大文件)。如果访问不集中会造成服务器同时读取文件当机。 注意：系统需要FSO权限、XMLHTTP权限 系统包括两个文件，其实可以合并为一个。之所以分为两个是因为部分杀毒软件会因为里边含有FSO、XMLHTTP操作而被认为是脚本木马。 调用时，需要在ASP页面的最上边包含主文件，然后在下边写下以下代码 <% Set MyCatch=new CatchFile ...
代码如下:<% Response.AppendToLog "数据库正在被访问" %> 执行这段代码后，在你的IIS日志中可能会出现下面的字符串： 代码如下:127.0.0.1, -, 01/01/00, 12:00:34, W3SVC1,WEBSERVER, 127.0.0.1, 161342, 485, 228, 200, 0,get, /somefile.asp, 数据库正在被访问 注意：由于日志文件中的内容是按逗号分隔，所以写入的日志内容应避免使用逗号。
<% '****************************************************************** '** 本程序名："无限流"分页程序 '** 作者：Arbiter(AAsx) '** 版本：Million Level '** '** QQ：22222xx '** Email：Arbiter@21cn.com '** http://www.imagecity.org/ '****************************************************************** '** '** 【作者的话】 '** '** 分页程序无疑是许多网络程序功能中一个比较麻烦的东西，事实上现在 '** 为止绝大...
用Asp隐藏文件路径，实现防盗链 如果我们知道一个静态文件的实际路径如：http://www.gxlsystem.com/download/51windows.pdf，如果服务器没有作特别的限制设置，我们就可以毫不费力的把它下载下来！当网站提供51windows.pdf下载时，怎么样才能让下载者无法得到他的实际路径呢！本文就来介绍如何使用Asp来隐藏文件的实际下载路径。 我们在管理网站文件时，可以把扩展名一样的文件放在同一个目录下，起一个比较特别名字，例...
这是asp分页列表生成静态页面得asp小程序脚本 代码如下:<!--#include file="conn.asp"--> <html><head><TITLE>分页测试</TITLE><LINK href="inc/style.css" type=text/css rel=stylesheet></head> <%strHead=strHead&"<html>" strHead=strHead&"<head>" strHead=strHead&"<TITLE>分页测试</TITLE>" strHead=strHead&"<LINK href=""inc/style.css"" type=text/css rel=stylesheet>" strHead=strHead&"</head>" %> <% sql...
标签（Tag）是什么？ 标签是一种更为自由、灵活，完全由用户决定的分类方式，而非传统的由网站定义的分类。您可以根据自己的理解，对发表的文章、上传的图片、音乐、视频等各种文件添加一个或多个标签，进行灵活的描述。 添加标签（Tag）有什么作用？ 标签体现了群体的力量，使得用户之间可以通过相近的内容产生更多的关联和互动。您在发表日志或上传文件时添加了Tag ，就可以看到woku.com所有和您使用了相同Tag 的日志和文件。 ...
昨天晚上给朋友写了一个asp的微信小程序支付接口，我这朋友的小程序服务器端用的asp做的，以前没有支付，非让我给写一个支付，因为必须是asp来写，他不会，所以我就帮他写了，顺便还写了一个asp获取用户资料头像和微信名入库的代码，也是asp源码，数据库用的是mdb的格式，还可以比较好用，微信小程序用asp做服务器端估计很少，应该有朋友需要，下载这个代码：ly.ftphn.com/wxpay.rar ============================================...
因此为了节省服务器资源，应该尽可能关闭连接以释放连接所占有的资源，这种关闭记录集的连接而不关闭记录集的技术叫做断开记录集，这个记录集本身则称为断开的记录集。下面我们就通过一个实例来说明这种技术的使用方法(NorthWind.mdb是Microsoft Access97自带的一个数据库，文件adovbs.inc可在C:\Program Files\Common Files\System\ADO下找到)： 代码如下:<% @LANGUAGE = VBScript %> <!--#include file="adovbs.inc"--> <% Re...
反正我现在用这个做了很多站，自己觉得还是满有用的，所以拿出来和大家分享一下。支持三种数据库连接：MSSQL2000，MSSQL2005，ACCESS 三种方法： select_table(sql) 表查询，返回TRUE或FALSE 当SQL语句出错，或空记录时返回FALSE，否则TRUE update_table(SQL) 表更新，包括update,delete 成功执行返回TRUE，否则返回FALSE，updated为执行后影响记录行数。 insert_table(sql,table,id_column) table为表名，id_column为表中自动编号...
ASP连接数据库的全能代码 '解决了ACCESS数据库路径的问题！ '采用DBType=0或DBType=1来区分AC库还是MSSQL库 '具体采用AC库时应注意的事项，请看程序说明 -------------------------------------------------------------------------------- Dim DBType,Conn,StrConn DBType=0 '0为Access数据库，1为MSSQL数据库 If(DBType=0) Then '********************************ACCESS数据库******************************...
asp连接sql 第一种写法： 代码如下:MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;" Set conn = Server.Createobject("ADODB.Connection") conn.open MM_conn_STRING SET RS=SERVER.CreateObject("ADOBD.recordset") SQL="SELECT * FROM TABLE ORDER BY ID DESC" RS.open SQL,CONN,3,3 常用的函数代码： 代码如下:DataServer = "jb51" 数据库服务器IP DataUser = "jb51" 访问数据库用户名 D...