ASP网页设计ASP实例：使用缓存进步数据显现效力
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的实例演示：先创建一个复杂的数据库，写个function读取一下，写进一个dim变量temp中：ASP代码
以下为援用的内容：
<%
FunctionDisplayRecords()
Dimsql,conn,rs
sql="SELECTid,,FROMadmin"
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("db.mdb")
Setrs=Server.CreateObject("ADODB.Recordset")
rs.Opensql,conn,1,3
IfNotrs.EOFThen
Dimtemp
temp="<tablewidth=""90%""align=""center"""
temp=temp&"border=""1""bordercolor=""silver"""
temp=temp&"cellspacing=""2""cellpadding=""0"">"
temp=temp&"<trbgcolor=""#CCDDEE""><tdwidth=""5%"""
temp=temp&">ID</td><td>操纵</td>"
temp=temp&"<td>数值</td></tr>"
WhileNotrs.EOF
temp=temp&"<tr><tdbgcolor=""#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="DataNotAvailable."
EndIf
rs.Close
conn.Close
Setrs=Nothing
Setconn=Nothing
EndFunction
写进缓存
FunctionDisplayCachedRecords(Secs)
DimretVal,datVal,temp1
retVal=Application("cache_demo")
datVal=Application("cache_demo_date")
IfdatVal=""Then
datVal=DateAdd("s",Secs,Now)
EndIf
temp1=DateDiff("s",Now,datVal)
Iftemp1>0AndretVal""Then
DisplayCachedRecords=retVal
DebuggingCode:
Response.Write"<b><fontcolor=""green"">使用缓存读取数据"
Response.Write"...("&temp1&"秒残剩)</font></b>"
Response.Write"<br><br>"
Else
Dimtemp2
ChangeDisplayRecords()tothefunctionwhose
valueyouwanttocache
temp2=DisplayRecords()
Application.Lock
Application("cache_demo")=temp2
Application("cache_demo_date")=DateAdd("s",Secs,Now)
Application.UnLock
DisplayCachedRecords=temp2
DebuggingCode:
Response.Write"<b><fontcolor=""red"">革新缓存显现..."
Response.Write"</font></b><br><br>"
EndIf
EndFunction
%>
<!--
Response.WriteDisplayRecords()
-->
<html>
<head>
<title>使用缓存从数据库---读取数据</title>
<style>
body,p,td{font-family:Sans-Serif;font-size:8pt;}
td{padding-left:5;}
</style>
</head>
<body>
<%
Dimt1,t2
t1=Timer
Response.WriteDisplayCachedRecords(20)
t2=Timer
%>
<palign="center">
停止工夫:<%=Left((CDbl((t2-t1)*1000.0)),5)%>ms
</p>
</body>
</html>
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 掌握asp的特性而且一定要知道为什么。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。
页:
[1]