返回首页 | 关于我们 | 作品展示 | 网站建设 | 网站优化 | 网站策划 | 解决方案 | 联系我们 | 在线留言 | 需求提交
   


您当前的位置是:首页 > 网站建设 > ASP中利用application实现缓存
网站建设知识
域名空间
网站建设
网页设计
网站推广
最新文章
网站改版建议计划
伪静态网站对网站优化的好处
域名备案正确拍照示例
网站备案的流程、网站备案需要哪些资料?
网站到底要不要开启https?
打造高质量的网站
好好建站网告诉您---北京做网站多少钱?
如何办理经营性备案?
北京公司如何选择公司网站域名?
Kindeditor 单独调用单张图上传增加预览
解析北京做网站注意事项
关于阿里云域名实名认证公告
北京做网站哪家强?这里有你想要的网站优化秘籍
企业为什么要做网站?
响应式网站设计图片处理7个技巧
为什么网站做得不好的原因?
网站被百度降权之后应该怎么办
分析竞争对手网站来做网站优化
关键词突然降到100名以外的原因分析
做网站时关键词优化的技巧
 

ASP中利用application实现缓存

发布时间: 2010-10-16 21:32:09

内容:
Code
ASP:default.asp 

 

<%@Language=VBScript%>
<%Option Explicit%>
<%Response.Buffer=True%>
<!--#include file = "conn.asp"-->
<!--#include file = "GetCache.asp"-->
<HTML>
<HEAD>
<TITLE>ASP Cache演示</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>
<BODY>
<h4>每隔10秒刷新Cache:</h4>
<%
response.Flush
GetHTMLStream
response.Write
HTMLStream
%>
</body>
</html>

 

ASP:getcache.asp

以下为引用的内容:
<%
Const CACHE_DEFAULT_INTERVAL = 30 &apos;每隔30秒刷新一次cache
Dim HTMLStream
Dim IsExpires
IsExpires = CacheExpires
Function CacheExpires
Dim strLastUpdate
Dim result strLastUpdate = Application("LastUpdate")
If (strLastUpdate = "") Or (CACHE_DEFAULT_INTERVAL < DateDiff("s", strLastUpdate, Now)) Then
result = true
SetLastUpdateTime
Else
result = false
End If
CacheExpires = result
End Function
%> 


文章出自:北京做网站公司-好好建站网 http://www.haohaoweb.cn 如转载请注明出处!
上一篇:用ASP制作登陆验证页面程序
下一篇:asp动态页面生成html页面