|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。我们间接从剖析代码入手下手.假如您不懂得application工具的基础特性,能够检察本站的工具参考部分。<%
上面的function用来从动网论坛数据库中提出数据更新缓存很复杂的提出最新宣布的十个帖子
functionrefreshrecords()
Dimsql,conn,rs
sql="selecttop10*FROMDv_TopicorderbyDateAndTimedesc"
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&server.mappath("dv.mdb")
Setrs=Server.CreateObject("ADODB.Recordset")
rs.Opensql,conn,1,1
IfNotrs.EOFThen
Dimtemp
temp="<ul>"
fori=1to10
temp=temp&"<li><ahref=""http:*/bbs.sfte.net/dispbbs.asp?
boardID="&rs("Boardid")&"&ID="&rs
("topicid")&"&page=1"">"&rs("Title")&"("&rs("PostUserName")
&")</a></li>"
这个中央各有所好了,明显和一个用table,td,tr,tbody来写前台的人互助,是一件很疾苦的事变.
rs.MoveNext
i=i+1
next
temp=temp&"</ul>"
refreshrecords=temp
Else
refreshrecords="数据挪用失利."
EndIf
rs.Close
conn.Close
Setrs=Nothing
Setconn=Nothing
EndFunction
上面的function则是用来更新缓存的
functiondisplayrecords(secs)
ifApplication("cache")=""orisempty(Application("cache"))then程序第一次运转时分更新缓存
application("cache")用来保留我们必要缓存在内存中的内容
application("cache_time")用来保存缓存前次更新的工夫
我们只在两种情形下是必要挪用refresh函数来会见数据库来更新缓存
第一种就是服务重视启大概其他不测招致application存储的值丧失
Application.Lock
Application("cache_date")=now()
更新缓存工夫
Application("cache")=refreshrecords()
更新缓存内容
codebyniceidea署名
Application.UnLock
endif
ifDateDiff("s",Application("cache_date"),Now)>secsthen对照前次更新工夫与以后工夫的差值
别的一种必要更新缓存的情形就是缓存到期所谓缓存就是保存必定工夫的数据按期更新生怕是最多见的
Application.Lock
Application("cache_date")=now()
Application("cache")=refreshrecords()
Application.UnLock
endif
Response.WriteApplication("cache")
EndFunction
%>
最初挪用的办法是
<%displayrecords(300)%>
300暗示5分钟更新一次60 |
|