上兼职海网站建设

首页   关于我们   网站建设   上海兼职网站制作  兼职网站设计  网站案例   网站知识   联系我们   

蛙蛙推荐:asp中模拟.net中的cache_web

发布于：2007-9-30 已被阅读： 次 来源：上兼职海网站建设

·为.NET程序批上WPF的绚丽外衣·VS.NET无缝集成Crystal Reports·网友整理 .net 面试题（附答案）·网友推荐：.Net分页控件发布·C#.NET 中的类型转换·基于VC.NET的GDI+编程之CImage·微软 .NET Remoting体系结构评估·.Net开发人员应该下载的十种必备工具·利用.NET绘图技术制作水晶按钮控件·提供一个.NET平台通用串口操作类 <!-- 为了提高网站首页的性能,首页凡是需要调用数据库显示数据的地方都会先试图从缓存中调用数据,如果缓存中没有可用数据再打开数据库取出记录集,为了让页面显示数据和数据库在一定时间内同步,我们把缓存的过期时间设置成30秒.声明:缓存管理类出自于动网论坛7.0注意:最好不要在缓存里直接缓存带状态的对象和MTA模式的对象,比如说直接缓存记录集或者数据库链接对象等.--><%Sub ShowRsArr(rsArr)'2005-1-27 by 蛙蛙王子'用表格显示记录集getrows生成的数组的表结构' Response.Write "<table width=100% border=0 cellspacing=0 cellpadding=0>" If Not IsEmpty(rsArr) Then For y=0 To Ubound(rsArr,2) Response.Write"<tr>" for x=0 to Ubound(rsArr,1) Response.Write "<td>"&rsArr(x,y)&"<网站td>" next Response.Write"<网站tr>" next Else Response.Write "<tr>" Response.Write "<td colspan="&rs.fields.count-1&">No Records<网站td>" Response.Write "<网站tr>" End If Response.Write "<网站table>"End SubClass Cls_Cache Rem ==================使用说明================================================================================= Rem = 本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。这段注释不会影响执行的速度。= Rem = 作用：缓存和缓存管理类 = Rem = 公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400, = Rem = MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300 = Rem = CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。 = Rem = 属性:Name 定义缓存对象名称，只写属性。 = Rem = 属性:value 读取和写入缓存数据。 = Rem = 函数：ObjIsEmpty()判断当前缓存是否过期。 = Rem = 方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。 = Rem =========================================================================================================== Public Reloadtime,MaxCount,CacheName Private LocalCacheName,CacheData,DelCount Private Sub Class_Initialize() Reloadtime=14400 CacheName="Dvbbs" End Sub Private Sub SetCache(SetName,NewValue) Application.Lock Application(SetName) = NewValue Application.unLock End Sub Private Sub makeEmpty(SetName) Application.Lock Application(SetName) = Empty Application.unLock End Sub Public Property Let Name(ByVal vNewValue) LocalCacheName=LCase(vNewValue) End Property Public Property Let Value(ByVal vNewValue) If LocalCacheName<>"" Then CacheData=Application(CacheName&"_"&LocalCacheName) If IsArray(CacheData) Then CacheData(0)=vNewValue CacheData(1)=Now() Else ReDim CacheData(2) CacheData(0)=vNewValue CacheData(1)=Now() End If SetCache CacheName&"_"&LocalCacheName,CacheData Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName." End If End Property Public Property Get Value() If LocalCacheName<>"" Then CacheData=Application(CacheName&"_"&LocalCacheName) If IsArray(CacheData) Then Value=CacheData(0) Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " The CacheData Is Empty." End If Else Err.Raise vbObjectError + 1, "DvbbsCacheServer", " please change the CacheName." End If End Property Public Function ObjIsEmpty() ObjIsEmpty=True CacheData=Application(CacheName&"_"&LocalCacheName) If Not IsArray(CacheData) Then Exit Function If Not IsDate(CacheData(1)) Then Exit Function If DateDiff("s",CDate(CacheData(1)),Now()) < 60*Reloadtime Then ObjIsEmpty=False End If End Function Public Sub DelCahe(MyCaheName) makeEmpty(CacheName&"_"&MyCaheName) End SubEnd ClassDim strconn,rsstrconn="Driver={sql server};server=localhost;database=northwind;uid=sa;pwd=sa;"Public Function GetEmployees() Dim SQL,Rs,Cache Set Cache=New Cls_Cache Cache.Reloadtime=0.5 Cache.CacheName="wawa" Cache.Name="Employees" If Cache.ObjIsEmpty() Then Set rs=Server.CreateObject("ADODB.Recordset") SQL = "select EmployeeID, LastName, FirstName from employees order by employeeid desc" Rs.Open SQL,strconn,1,1 Cache.value = Rs.GetRows(5) Rs.Close:Set Rs=Nothing End If GetEmployees=Cache.Value Set Cache=NothingEnd Function ShowRsArr(GetEmpLoyees)%><script>function TimeOut(a){ var c=a-1; if(c==0) { window.location.href=..网站..网站window.location; }else{ document.all.abc.innerHTML="离缓存结束还有："+c+"秒"; window.setTimeout('TimeOut('+c+')',1000); }}<网站script><body onload="TimeOut('30')"><div id="abc"><网站div> 更多内容请看.NET开发手册  .NET移动与嵌入式技术专题，或进入讨论组讨论。 建设 .NET 开发人员该下载的十个必备工具关于.NET动态代理的介绍和应用简介编程必备 C#.NET 中的类型转换VC.Net定义和使用MFC DLL 上兼职海网站建设

网站建设相关信息

上兼职海网站建设服务

一、网站建设套餐A型
1个英文.COM域名
80M独立网站空间
25M邮件空间，5个企业邮箱
1个FLASH首页，10个精美内页
网站建设优惠价：面谈

二、网站建设套餐B型
1个英文.COM域名
120M独立网站空间,加75M备份，免费Access数据库
50M邮件空间，10个企业邮箱
1个FLASH首页，20个精美内页
1个新闻发布系统
1个计数器，一个留言板
网站建设优惠价：面谈

三、网站建设套餐C型
1个英文.COM域名
250M独立网站空间,加125M备份，免费Access数据库
100M邮件空间，20个企业邮箱
1个FLASH首页，30个精美内页
一个新闻发布系统
一个产品发布系统
1个计数器，一个留言板
网站建设优惠价：面谈

网站知识

什么是网站运营？
网络营销-网站优化
提高博客人气的方法
整站优化要注意平衡
如何为企业的网站建设准备
高难上海兼职网站制作的心得
什么样网页布局是你最喜欢
一个好的网站建设应该
网页设计师的薪水标准
上海兼职网站制作中心对
保持网站建设制作流量


Copyright 2008上海兼职网站制作，兼职网站建设 上兼职海网站建设 所有权利保留
联系电话：13482597886 QQ:41218056 MSN:qq41218056@hotmail.com