内容: 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 '每隔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页面
|