文件Users.ASP
复制代码 代码如下:
< %
'Clone方法使得每个用户拥有自己的一个RecordSet集合
Set yourUsers = Application("rsUsers").Clone
Set UserName = yourUsers("UserName")
Set Password = yourUsers("Password")
Do Until yourUsers.EOF
% >
用户姓名：< %= UserName % > 用户密码：< %= Password % >
< %
yourUsers.MoveNext
Loop
% >
于缓存的作用，我想我也不用再多说了，它的作用已经很明显，特别是对于信息量非常大或是全数据库页面的网站，他能很好地利用主机的内存资源，加速ASP的执行效率，减轻服务器的负担，而动网在这一方面做得是最突出的，像他现在的dvbbs7.1.0版，更是在缓存的利用上更上一层楼，前后台大多的操作都和缓存有关，而现在动网里用的也就是迷城浪子的缓存类：
复制代码 代码如下:
< %
Class Cls_Cache
'==================使用说明====================
'本类模块是动网先锋原创，作者：迷城浪子。如采用本类模块，请不要去掉这个说明。
'公有变量：Reloadtime 过期时间（单位为分钟）缺省值为14400
'MaxCount 缓存对象的最大值，超过则自动删除使用次数少的对象。缺省值为300
'CacheName 缓存组的总名称，缺省值为"Dvbbs",如果一个站点中有超过一个缓存组，则需要外部改变这个值。
'属性:Name 定义缓存对象名称，只写属性。
'属性:value 读取和写入缓存数据。
'函数：ObjIsEmpty()判断当前缓存是否过期。
' 方法：DelCahe(MyCaheName)手工删除一个缓存对象，参数是缓存对象的名称。
'========================
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
内容版权声明：除非注明，否则皆为本站原创文章。