ASP实例：利用缓存提高数据显示效率

实例演示：先建立一个简单的数据库，写个function读取一下，写入一个dim变量temp中：

ASP代码

以下为引用的内容：
<%
Function DisplayRecords()
    Dim sql, conn, rs
    sql = "SELECT id, [szd_f], [szd_t] FROM admin"
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db.mdb")
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 1, 3
    If Not rs.EOF Then
      Dim temp
      temp = "<table width=""90%"" align=""center"""
      temp = temp & " border=""1"" bordercolor=""silver"""
      temp = temp & " cellspacing=""2"" cellpadding=""0"">"
      temp = temp & "<tr bgcolor=""#CCDDEE""><td width=""5%"""
      temp = temp & ">ID</td><td>操作</td>"
      temp = temp & "<td>数值</td></tr>"
    While Not rs.EOF
      temp = temp & "<tr><td bgcolor=""#CCDDEE"">"
      temp = temp & rs("ID") & "</td><td>" & rs("szd_f")
      temp = temp & "</td><td>" & rs("szd_t")
      temp = temp & "</td></tr>"
      rs.MoveNext
    Wend
      temp = temp & "</table>"
      DisplayRecords = temp
    Else
      DisplayRecords = "Data Not Available."
    End If
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Function
'写入缓存
Function DisplayCachedRecords(Secs)
    Dim retVal, datVal, temp1
        retVal = Application("cache_demo")
        datVal = Application("cache_demo_date")
        If datVal = "" Then
            datVal = DateAdd("s",Secs,Now)
        End If
        temp1 = DateDiff("s", Now, datVal)
    If temp1 > 0 And retVal <> "" Then
        DisplayCachedRecords = retVal
        ' Debugging Code :
        Response.Write "<b><font color=""green"">利用缓存读取数据"
        Response.Write " ... (" & temp1 & " 秒剩余)</font></b>"
        Response.Write "<br><br>"
    Else
        Dim temp2
        ' Change DisplayRecords() to the function whose
        ' value you want to cache
        temp2 = DisplayRecords()
        Application.Lock
            Application("cache_demo") = temp2
            Application("cache_demo_date") = DateAdd("s",Secs,Now)
        Application.UnLock
        DisplayCachedRecords = temp2
        ' Debugging Code :
        Response.Write "<b><font color=""red"">刷新缓存显示 ..."
        Response.Write "</font></b><br><br>"
    End If
End Function
%>

<html>
<head>
    <title>利用缓存从数据库---读取数据</title>
    <style>
    body, p, td { font-family:Sans-Serif; font-size:8pt; }
    td { padding-left: 5; }
    </style>
</head>
<body>
<%
    Dim t1, t2
        t1 = Timer
    Response.Write DisplayCachedRecords(20)
        t2 = Timer
%>
<p align="center">
停留时间: <%= Left((CDbl((t2 - t1) * 1000.0)), 5) %> ms
</p>
</body>
</html>

转载于:https://www.cnblogs.com/wzglweb/archive/2009/02/08/1386237.html

ASP实例：利用缓存提高数据显示效率相关推荐

利用计算机技术教学图片,教育教学论文科学学科如何利用计算机技术提高教学效率.doc...
教育教学论文科学学科如何利用计算机技术提高教学效率科学学科如何利用计算机技术提高教学效率网络与计算机技术飞速地发展着,以不可思议的速度迅速渗透到社会的各个领域,影响着人们的生活.思维.也对传统教 ...
微信小程序利用缓存提高接口请求性能
对于接口数据过多的接口可以使用缓存提升用户体验和性能,同时也可以防止用户重复请求过多次数 data: {leftMenuList:[],//左侧菜单数据rightContent:[],//右侧的商品数 ...
如何在项目中利用 git 提高工作效率
文/陈灵华为无线网络产品线五级软件专家,在大型软件架构设计.性能优化方面有丰富的成功经验,多次荣获公司/产品线优秀软件架构实践表彰. 华为的明星博主,原创软件技术博客超过一百篇,愈十万字,促进了软件 ...
我利用 ChatGPT 提高工作效率的 5 种方式
技术应该是我们的朋友,而不是我们的敌人 ChatGPT 在 11 月的发布改变了世界.学校阻止该计划,程序员对他们工作中新发现的效率赞不绝口,而创意人员则怀疑他们的工作是否受到威胁.每个人都在想同一个 ...
ASP.NET状缓存Cache的应用-提高数据库读取速度
ASP.NET状缓存Cache的应用-提高数据库读取速度原文:ASP.NET状缓存Cache的应用-提高数据库读取速度一. Cache概述既然缓存中的数据其实是来自数据库的,那么缓 ...
Android开发: 分享利用好Kotlin的特点提高开发效率
Kotlin-first but not kotlin-must 谷歌在 I/O 大会上宣布,Kotlin 编程语言现在是 Android 应用程序开发人员的首选语言后,有更多的安卓程序投入Kotli ...
如何利用人工智能提高医疗保健资源利用效率
作者:禅与计算机程序设计艺术如何利用人工智能提高医疗保健资源利用效率引言医疗保健资源利用效率是一个重要的议题,尤其是在当前全球疫情的背景下,如何高效地利用医疗资源成为了各国政府和医疗机构的共同目 ...
ASP.NE的缓存技术提高Web站点的性能
一:我们为什么要使用缓存? 先来理解一下asp.net缓存技术的基本原理:把访问频繁的数据以及需要花大量的时间来加载的数据缓存在内存中,那么用户在下次请求同样的数据时,直接将内存中的数据返回给用户,从 ...
如何使用ListView实现一个带有网络请求，解析，分页，缓存的公共的List页面来大大的提高工作效率
在平常的开发中经常会有很多列表页面,每做一个列表页就需要创建这个布局文件那个Adapter适配器文件等等一大堆与之相关的附属的不必要的冗余文件.如果版本更新迭代比较频繁,如此以往,就会使项目工程变得无 ...

ASP实例：利用缓存提高数据显示效率

ASP实例：利用缓存提高数据显示效率相关推荐

最新文章

热门文章