个人中心
gpt4 book ai didi

利用 cache 做对比静态页的网页技术

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 30 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章利用 cache 做对比静态页的网页技术由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

一直想写一套生成静态页面的文章系统 但面对生成静态后的一些复杂数据库交互问题。又望而却步！  于是就想 有没有 在不耽误数据交互的情况下，而又能降低服务器负担的方法呢！  一个网站，访问量最大的莫过于 首页 和主栏目页了。 其他的页面 我可以不去想， 首页和主栏目页 在大流量下服务器改如何承担呢。  根据我编程2年多来的总结经验我想去了一下方法！  不生成静态页 并且降低服务器负担！  。

复制代码代码如下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  <%  '读取远程文件的函数  Public Function readRemoteFile(RemoteDataUrl)      Dim XMLHttp      'On Error Resume Next      Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")          With XMLHttp              .Open "Get", RemoteDataUrl, False              .Send              readRemoteFile = BytesToBstr(.responseBody, "UTF-8")          End With      Set XMLHttp = Nothing     End Function  '编码转换  Function BytesToBstr(body,Cset)      dim objstream      set objstream = Server.CreateObject("adodb.stream")          objstream.Type = 1          objstream.Mode =3          objstream.Open          objstream.Write body          objstream.Position = 0          objstream.Type = 2          objstream.Charset = Cset          BytesToBstr = objstream.ReadText           objstream.Close      set objstream = nothing  End Function  Function tobody()      Dim dateVal                  '先试图访问缓存，看有没有，或者过期没有      dateVal = Application("defaultdate")      If dateVal = "" Then dateVal = DateAdd("s",1200,Now)      If Application("default") <> "" Then          If DateDiff("s", Now, dateVal) > 0 Then                                                  '如果有，就从缓存读取，对服务器来说，就是从内存读取              tobody = Application("default")&"<!--new cache"&dateVal&"-->"              Exit Function          End If      End If      Dim body                  '如果缓存没有，则从远程读取，并写入缓存，设置缓存时间。      body = readRemoteFile("http://www.aoaob.com/default.asp")      tobody = body&"<!--made cache"&Now&"-->"      Application.Lock      Application("default") = body      Application("defaultdate") = DateAdd("s",1200,Now)      Application.UnLock  End Function  Response.Write(tobody())  %> 。

最后此篇关于利用 cache 做对比静态页的网页技术的文章就讲到这里了,如果你想了解更多关于利用 cache 做对比静态页的网页技术的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

30 4 0
文章推荐： ASP生成随机字符串(数字+大小写字母)的代码
文章推荐： ASP下存储过程编写入门全接触
文章推荐： asp通用采集函数冗余版可以保存文件到本地
文章推荐： ASP生成静态文件编码为UTF-8格式的HTML文件
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com