终于可以见人了
写了好几年
如果喜欢的话，可以联系我
暂时先不开放源代码
afenBlogRC1
by afen
www.afen.cn
2008-01-08
*增加皮肤功能
*修改一些细节(包括后台)
*修改几个BUG
*去除图片上传功能(暂时去掉)
*增加RSS功能
& 三层化结构代码
& XML皮肤功能(首创)
在这里感谢几个人寒风萧萧,阿拉丁神灯,代冰,以及所有关心这个博客的人
写了几年,终于有东西可以见人了
做皮肤的时候注意,做完以后用[]代替<>,还有XML的转义字符
首页index.htm
<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd”>
<html xmlns=”http://www.w3.org/1999/xhtml”>
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″ />
<title>ajax test</title>
</head>
<!–code by afen–>
<body>
<input type=”button” value=”内容1″ onclick=”insert_row(1)”> <input type=”button” value=”内容2″ onclick=”insert_row(2)”> <input type=”button” value=”内容3″ onclick=”insert_row(3)”>
<table name=’tbl’ id=”tbl” width=”440″ height=”170″ border=”0″ cellpadding=”0″ cellspacing=”0″>
<tr><td></td></tr>
</table>
<script language=”javascript” defer=”defer”>
function ajax(objstr)
{
//接收传递参数
string=”objstr=”+escape(objstr);
//建立对象
var objXMLHTTP = null;
try
{
objXMLHTTP = new ActiveXObject(“MSXML2.XMLHTTP”);
}
catch(e)
{
try
{
objXMLHTTP = new ActiveXObject(“Microsoft.XMLHTTP”);
}
catch(e2){}
}
//发送数据
objXMLHTTP.open(“POST”, “index_ajax.asp”, false);
objXMLHTTP.setrequestheader(“content-length”,string.length);
objXMLHTTP.setrequestheader(“content-type”,”application/x-www-form-urlencoded”);
objXMLHTTP.send(string);
//得到服务器端返加值
return objXMLHTTP.responseText;
}
function insert_row(obj){
tbl.deleteRow();
content=ajax(obj);
R=tbl.insertRow();
C=R.insertCell();
C.innerHTML=content;
C=R.insertCell();
}
//初始化一下
insert_row(1);
</script>
</body>
</html>
数据处理员index_ajax.asp
<%
‘code by afen
Response.CharSet = “gb2312″
objstr=request(“objstr”)
‘这里可以对数据库操作等等返回值，想返回什么就什么~~
select case objstr
case 1
response.write(“内容1″)
case 2
response.write(“内容2″)
case 3
response.write(“内容3″)
end select
%>
做网站的，应该经常遇到使用分类功能的，通常有个二级三级分类已经很不错，在实现上，这些也不是很难的。但是对于某些系统，却需要实现更多级分类，例如文章系统，分类级数是不确定的，所以现在网上的系统中基本都采用无限分类。
看到很多地方都有关于无限分类实现的教程，也有人说这个是非常简单的功能。简单与否，在于每个人的能力了。
现在我们也来考察一下如何实现这个无限分类。在这里我采用的是 ASP(VBScript) 结合 Access 数据库来实现。
通常对于分类，我们需要有类别的编号和类别的名称，所以我们在数据库中定义这两个字段，ID 和 Title，ID 字段为自动编号，Title 选择文本类型。
但是如果仅有这两个字段，能实现的恐怕只有一级分类了。多级分类中，不同级之间都会存在关联性，即每个子类别，都应该是唯一地属于某个父类别的，所以在数据库中，我们表现出当前子类别所属的父类别即可。鉴于此，我们增加一个字段ParentID，保存父类别 ID 值。对于根类别，我们可以设置这个值为 0 。
至此，基本上就可以具备了无限级分类所必需的数据。
但是在实际使用中，出于效率问题，我们增加进两个字段：
IDPath – 用来保存当前类别的 ID 路径，即从顶层到当前类别的各级分类的 ID ，各级层间用分隔符“|”分隔。
TitlePath – 用来保存当前类别的 Title 路径，即每级分类的标题，各级层间用分隔符“|”分隔。
鉴于是要实现无限分类，上面两个字段的内容可能会很长，所以我们选择备注类型。具体的作用，在后面的程序中可以明了。
这样我们得到完整的数据库：
ID – 分类编号 – 自动编号
Title – 分类标题 – 文本
ParentID – 父类别编号 – 整数
IDPath – 分类层次编号路径 – 备注
TitlePath – 分类层次标题路径 – 备注
我们首先来考察如何显示表中已经存在的数据。先给出代码：
代码:
Sub listData
Dim intSortID : intSortID = CID(Request.QueryString(“SortID”))
Dim rs, sql
Set rs = Server.CreateObject(“ADODB.Recordset”)
sql = “SELECT s.ID, s.Title, s.IDPath, s.TitlePath, (SELECT Count(*) FROM Sorts ss WHERE ss.ParentID = s.ID) AS iCount FROM Sorts s WHERE s.ParentID = ” & intSortID & “;”
rs.Open sql, conn, 1, 1, 1
If rs.RecordCount > 0 Then
Dim arrIDs, arrTitles, intLoop
Response.Write(“<table width=”"100%”" cellpadding=”"3″” cellspacing=”"1″” border=”"0″” bgcolor=”"#CCCCCC”">”)
Response.Write(“<tr bgcolor=”"#E0E0E0″”><th>分类名</th><th>子类别数目</th><th>分类层级</th></tr>”)
Do While Not rs.EOF
Response.Write(“<tr bgcolor=”"#FFFFFF”"><td><a href=”"?action=list&SortID=” & rs(“ID”) & “”">” & rs(“Title”) & “</a> <img src=”/blog/”images/icon_new_window.gif”" width=”"11″” height=”"14″” border=”"0″” alt=”"打开功能菜单”" title=”"打开功能菜单”" onclick=”"showMenu(event, ”, ‘” & rs(“ID”) & “‘);”" /></td><td>” & rs(“iCount”) & “</td><td><a href=”"?action=list&SortID=0″”>根</a> » “)
‘ 数据入库的时候保证 IDPath 和 TitlePath 不为空
arrIDs = Split(rs(“IDPath”), “|”)
arrTitles = Split(rs(“TitlePath”), “|”)
For intLoop = 0 To UBound(arrIDs)
If intLoop = UBound(arrIDs) Then ‘ 如果是最后一级
Response.Write(“<a href=”"?action=list&SortID=” & arrIDs(intLoop) & “”">” & arrTitles(intLoop) & “</a>”)
Else
Response.Write(“<a href=”"?action=list&SortID=” & arrIDs(intLoop) & “”">” & arrTitles(intLoop) & “</a> » “)
End If
Next
Response.Write(“</td></tr>”)
rs.MoveNext
Loop
Response.Write(“</table>”)
Else
Response.Write(“暂无子类别，是否<a href=”"?action=add&SortID=” & intSortID & “”">添加</a>？”)
End If
rs.Close
Set rs = Nothing
End Sub
我们将列出分类的代码写入一段子程序 listData，其中变量 intSortID 是传递过来的一个类别编号，而我们要显示的是该类别下的子类别。
对于第一级分类，这个编号为 0。
CID() 函数是自定义的函数，用于将字符串转换为 ID 类型的数据，即大于等于 0 的整数，后面还会多次用到这个自定义函数，代码如下：
代码:
‘——————————————————————————–
Function CID(strS)
‘——————————————————————————–
‘ 转换为有效的 ID
‘ 返回值类型：Integer (>=0)
‘——————————————————————————–
Dim intI
intI = 0
If IsNull(strS) Or strS = “” Then
intI = 0
Else
If Not IsNumeric(strS) Then
intI = 0
Else
Dim intk
On Error Resume Next
intk = Abs(Clng(strS))
If Err.Number = 6 Then intk = 0 ”数据溢出
Err.Clear
intI = intk
End If
End If
CID = intI
End Function
数据库操作，就是从表中找到 ParentID = intSortID 的记录，然后循环显示。
在针对 IDPath 和 TitlePath 这两个字段的内容上，定义两个数组 arrIDs 和 arrTitles ，分别循环显示类别层次即可。这里需要注意最后一个层次(在我的代码中，最后一级即为当前分类)，其后是不包括箭头标示的，表示已经是当前分类了。
当没有记录的时候，显示提示信息，并有一个增加分类的链接。
因为所有的添加、编辑、删除、列表操作我放在一个页面中，所以链接中有个 action 变量来确定是进行哪步操作。
另外，显示的分类标题后面有个小图标，点击能显示功能菜单，相应的代码在后面给出。
无限级分类的简单算法实现及代码重点讲解
作者：未知 来源：本站收集 发布时间：2006-1-4 17:28:53 发布人：admin
减小字体 增大字体
分类算法要解决的问题
在网站建设中，分类算法的应用非常的普遍。在设计一个电子商店时，要涉及到商品分类；在设计发布系统时，要涉及到栏目或者频道分类；在设计软件下载这样的程序时，要涉及到软件的分类；如此等等。可以说，分类是一个很普遍的问题。
1、 分类算法常常表现为树的表示和遍历问题。那么，请问：如果用数据库中的一个Table来表达树型分类，应该有几个字段？
2、 如何快速地从这个Table恢复出一棵树；
3、 如何判断某个分类是否是另一个分类的子类；
4、 如何查找某个分类的所有产品；
5、 如何生成分类所在的路径。
6、 如何新增分类；
在不限制分类的级数和每级分类的个数时，这些问题并不是可以轻松回答的。本文试图解决这些问题。
分类的数据结构
我们知道：分类的数据结构实际上是一棵树。在《数据结构》课程中，大家可能学过Tree的算法。由于在网站建设中我们大量使用数据库，所以我们将从Tree在数据库中的存储谈起。
为简化问题，我们假设每个节点只需要保留Name这一个信息。我们需要为每个节点编号。编号的方法有很多种。在数据库中常用的就是自动编号。这在Access、SQL Server、Oracle中都是这样。假设编号字段为ID。
为了表示某个节点ID1是另外一个节点ID2的父节点，我们需要在数据库中再保留一个字段，说明这个分类是属于哪个节点的儿子。把这个字段取名为FatherID。如这里的ID2，其FatherID就是ID1。
这样，我们就得到了分类Catalog的数据表定义：
Create Table [Catalog](
[ID] [int] NOT NULL,
[Name] [nvarchar](50) NOT NULL,
[FatherID] [int] NOT NULL
);
约定：我们约定用-1作为最上面一层分类的父亲编码。编号为-1的分类。这是一个虚拟的分类。它在数据库中没有记录。
如何恢复出一棵树
上面的Catalog定义的最大优势，就在于用它可以轻松地恢复出一棵树—分类树。为了更清楚地展示算法，我们先考虑一个简单的问题：怎样显示某个分类的下一级分类。我们知道，要查询某个分类FID的下一级分类，SQL语句非常简单：
select Name from catalog where FatherID=FID
显示这些类别时，我们简单地用<LI>来做到：
<%
REM oConn—数据库连接，调用GetChildren时已经打开
REM FID—–当前分类的编号
Function GetChildren(oConn,FID)
strSQL = “select ID,Name from catalog where FatherID=”&FID
set rsCatalog = oConn.Execute(strSQL)
%>
<UL>
<%
Do while not rsCatalog.Eof
%>
<LI><%=rsCatalog(“Name”)%>
<%
Loop
%>
</UL>
<%
rsCatalog.Close
End Function
%>
现在我们来看看如何显示FID下的所有分类。这需要用到递归算法。我们只需要在GetChildren函数中简单地对所有ID进行调用：GetChildren(oConn,Catalog(“ID”))就可以了。
<%
REM oConn—数据库连接，已经打开
REM FID—–当前分类的编号
Function GetChildren(oConn,FID)
strSQL = “select Name from catalog where FatherID=”&FID
set rsCatalog = oConn.Execute(strSQL)
%>
<UL>
<%
Do while not rsCatalog.Eof
%>
<LI><%=rsCatalog(“Name”)%>
<%=GetChildren(oConn,Catalog(“ID”))%>
<%
Loop
%>
</UL>
<%
rsCatalog.Close
End Function
%>
修改后的GetChildren就可以完成显示FID分类的所有子分类的任务。要显示所有的分类，只需要如此调用就可以了：
<%
REM strConn–连接数据库的字符串，请根据情况修改
set oConn = Server.CreateObject(“ADODB.Connection”)
oConn.Open strConn
=GetChildren(oConn,-1)
oConn.Close
%>
如何查找某个分类的所有产品；
现在来解决我们在前面提出的第四个问题。第三个问题留作习题。我们假设产品的数据表如下定义：
Create Table Product(
[ID] [int] NOT NULL,
[Name] [nvchar] NOT NULL,
[FatherID] [int] NOT NULL
);
其中，ID是产品的编号，Name是产品的名称，而FatherID是产品所属的分类。
对第四个问题，很容易想到的办法是：先找到这个分类FID的所有子类，然后查询所有子类下的所有产品。实现这个算法实际上很复杂。代码大致如下：
<%
Function GetAllID(oConn,FID)
Dim strTemp
If FID=-1 then
strTemp = “”
else
strTemp =”,”
end if
strSQL = “select Name from catalog where FatherID=”&FID
set rsCatalog = oConn.Execute(strSQL)
Do while not rsCatalog.Eof
strTemp=strTemp&rsCatalog(“ID”)&GetAllID(oConn,Catalog(“ID”)) REM 递归调用
Loop
rsCatalog.Close
GetAllID = strTemp
End Function
REM strConn–连接数据库的字符串，请根据情况修改
set oConn = Server.CreateObject(“ADODB.Connection”)
oConn.Open strConn
FID = Request.QueryString(“FID”)
strSQL = “select top 100 * from Product where FatherID in (“&GetAllID(oConn,FID)&”)”
set rsProduct=oConn.Execute(strSQL)
%>
<UL><%
Do while not rsProduct.EOF
%>
<LI><%=rsProduct(“Name”)%>
<%
Loop
%>
</UL>
<%rsProduct.Close
oConn.Close
%>
这个算法有很多缺点。试列举几个如下：
1、 由于我们需要查询FID下的所有分类，当分类非常多时，算法将非常地不经济，而且，由于要构造一个很大的strSQL，试想如果有1000个分类，这个strSQL将很大，能否执行就是一个问题。
2、 我们知道，在SQL中使用In子句的效率是非常低的。这个算法不可避免地要使用In子句，效率很低。
我发现80%以上的程序员钟爱这样的算法，并在很多系统中大量地使用。细心的程序员会发现他们写出了很慢的程序，但苦于找不到原因。他们反复地检查SQL的执行效率，提高机器的档次，但效率的增加很少。
最根本的问题就出在这个算法本身。算法定了，能够再优化的机会就不多了。我们下面来介绍一种算法，效率将是上面算法的10倍以上。
分类编码算法
问题就出在前面我们采用了顺序编码，这是一种最简单的编码方法。大家知道，简单并不意味着效率。实际上，编码科学是程序员必修的课程。下面，我们通过设计一种编码算法，使分类的编号ID中同时包含了其父类的信息。一个五级分类的例子如下：
此例中，用32(4+7+7+7+7)位整数来编码，其中，第一级分类有4位，可以表达16种分类。第二级到第五级分类分别有7位，可以表达128个子分类。
显然，如果我们得到一个编码为 1092787200 的分类，我们就知道：由于其编码为
0100 0001001 0001010 0111000 0000000
所以它是第四级分类。其父类的二进制编码是0100 0001001 0001010 0000000 0000000，十进制编号为1092780032。依次我们还可以知道，其父类的父类编码是0100 0001001 0000000 0000000 0000000，其父类的父类的父类编码是0100 0000000 0000000 0000000 0000000。(我是不是太罗嗦了J，但这一点很重要。再回头看看我们前面提到的第五个问题。哈哈，这不就已经得到了分类1092787200所在的分类路径了吗？)。
现在我们在一般的情况下来讨论类别编码问题。设类别的层次为k，第i层的编码位数为Ni， 那么总的编码位数为N(N1+N2+..+Nk)。我们就得到任何一个类别的编码形式如下：
2^(N-(N1+N2+…+Ni))*j + 父类编码
其中，i表示第i层，j表示当前层的第j个分类。
这样我们就把任何分类的编码分成了两个部分，其中一部分是它的层编码，一部分是它的父类编码。
由下面公式定一的k个编码我们称为特征码：（因为i可以取k个值，所以有k个）
2^N-2^(N-(N1+N2+…+Ni))
对于任何给定的类别ID，如果我们把ID和k个特征码“相与”，得到的非0编码，就是其所有父类的编码！
位编码算法
对任何顺序编码的Catalog表，我们可以设计一个位编码算法，将所有的类别编码规格化为位编码。在具体实现时，我们先创建一个临时表：
Create TempCatalog(
[OldID] [int] NOT NULL,
[NewID] [int] NOT NULL,
[OldFatherID] [int] NOT NULL,
[NewFatherID] [int] NOT NULL
);
在这个表中，我们保留所有原来的类别编号OldID和其父类编号OldFatherID，以及重新计算的满足位编码要求的相应编号NewID、NewFatherID。
程序如下：
<%
REM oConn—数据库连接，已经打开
REM OldFather—原来的父类编号
REM NewFather—新的父类编号
REM N—编码总位数
REM Ni–每一级的编码位数数组
REM Level–当前的级数
sub FormatAllID(oConn,OldFather,NewFather,N,Nm,Ni byref,Level)
strSQL = “select CatalogID , FatherID from Catalog where FatherID=” & OldFather
set rsCatalog=oConn.Execute( strSQL )
j = 1
do while not rsCatalog.EOF
i = 2 ^(N – Nm) * j
if Level then i= i + NewFather
OldCatalog = rsCatalog(“CatalogID”)
NewCatalog = i
REM 写入临时表
strSQL = “Insert into TempCatalog (OldCatalogID , NewCatalogID , OldFatherID , NewFatherID)”
strSQL = strSQL & ” values(” & OldCatalog & ” , ” & NewCatalog & ” , ” & OldFather & ” , ” & NewFather & “)”
Conn.Execute strSQL
REM 递归调用FormatAllID
Nm = Nm + Ni(Level+1)
FormatAllID oConn,OldCatalog , NewCatalog ,N,Nm,Ni,Level + 1
rsCatalog.MoveNext
j = j+1
loop
rsCatalog.Close
end sub
%>
调用这个算法的一个例子如下：
<%
REM 定义编码参数，其中N为总位数，Ni为每一级的位数。
Dim N,Ni(5)
Ni(1) = 4
N = Ni(1)
for i=2 to 5
Ni(i) = 7
N = N + Ni(i)
next
REM 打开数据库，创建临时表
strSQL = “Create TempCatalog( [OldID] [int] NOT NULL, [NewID] [int] NOT NULL, [OldFatherID] [int] NOT NULL, [NewFatherID] [int] NOT NULL);”
Set Conn = Server.CreateObject(“ADODB.Connection”)
Conn.Open Application(“strConn”)
Conn.Execute strSQL
REM 调用规格化例程
FormatAllID Conn,-1,-1,N,Ni(1),Ni,0
REM ————————————————————————
REM 在此处更新所有相关表的类别编码为新的编码即可。
REM ————————————————————————
REM 关闭数据库
strSQL= “drop table TempCatalog;”
Conn.Execute strSQL
Conn.Close
%>
第四个问题
现在我们回头看看第四个问题：怎样得到某个分类下的所有产品。由于采用了位编码，现在问题变得很简单。我们很容易推算：某个产品属于某个类别的条件是Product.FatherID&（Catalog.ID的特征码）=Catalog.ID。其中“&”代表位与算法。这在SQL Server中是直接支持的。
举例来说：产品所属的类别为：1092787200，而当前类别为1092780032。当前类别对应的特征值为：4294950912，由于1092787200&4294950912=8537400，所以这个产品属于分类8537400。
我们前面已经给出了计算特征码的公式。特征码并不多，而且很容易计算，可以考虑在Global.asa中Application_OnStart时间触发时计算出来，存放在Application(“Mark”)数组中。
当然，有了特征码，我们还可以得到更加有效率的算法。我们知道，虽然我们采用了位编码，实际上还是一种顺序编码的方法。表现出第I级的分类编码肯定比第I+1级分类的编码要小。根据这个特点，我们还可以由FID得到两个特征码，其中一个是本级位特征码FID0，一个是上级位特征码FID1。而产品属于某个分类FID的充分必要条件是：
Product.FatherID>FID0 and Product.FatherID<FID1
下面的程序显示分类FID下的所有产品。由于数据表Product已经对FatherID进行索引，故查询速度极快：
<%
REM oConn—数据库连接，已经打开
REM FID—当前分类
REM FIDMark—特征值数组，典型的情况下为Application(“Mark”)
REM k—数组元素个数，也是分类的级数
Sub GetAllProduct(oConn,FID,FIDMark byref,k)
REM 根据FID计算出特征值FID0,FID1
for i=k to 1
if (FID and FIDMark = FID ) then exit
next
strSQL = “select Name from Product where FatherID>”FIDMark(i)&” and FatherID<”FIDMark(i-1)
set rsProduct=oConn.Execute(strSQL)%>
<UL><%
Do While Not rsProduct.Eof%>
<LI><%=rsProduct(“Name”)
Loop%>
</UL><%
rsProduct.Close
End Sub
%>
关于第5个问题、第6个问题，就留作习题吧。有了上面的位编码，一切都应该迎刃而解
ASP实现的无限级会员树型结构
日期：2006-01-05 16:46:37 点击：10 作者： 来源：
‘*********************************
‘* 函数名称:Function nodeUser(parent)
‘* 函数参数:parent
‘* 参数类型 :string
‘* 返回值类型:–
‘* 函数功能:递归显示用户树型结构
‘* 作者:范维肖
‘* 时间:2004-5-7
‘*********************************
Function nodeUser(parent)
‘检索其分支
sql = “select name from [user] where sel=’”&parent&”‘”
set rs = conn.Execute(sql)
do while not rs.Eof
i=i+1
‘格式控制
for j=i to 2 step -1
response.Write(“<font color=red> | </font>”)
response.Write(“ “)
next
response.Write(“<font color=red> |-> </font>”)
‘打印出此用户
response.Write(rs(0))
response.Write(“<br>”)
‘递归来显示出此用户为根的树型结构
nodeUser(rs(0))
‘完毕后转向下一个
rs.MoveNext
loop
‘一个级别的显示完成后就缩进一下
i=i-1
rs.close
set rs=nothing
End Function
再用的时候搜索了一下,没有找到能实现类似传销样的会员树,特写了一个
一个正则表达式就是由普通字符（例如字符 a 到 z）以及特殊字符（称为元字符）组成的文字模式。该模式描述在查找文字主体时待匹配的一个或多个字符串。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。
\
将下一个字符标记为一个特殊字符、或一个原义字符、或一个 后向引用、或一个八进制转义符。例如，’n’ 匹配字符 “n”。’\n’ 匹配一个换行符。序列 ‘\\’ 匹配 “\” 而 “\(” 则匹配 “(“。
^
匹配输入字符串的开始位置。
$
匹配输入字符串的结束位置。
*
匹配前面的子表达式零次或多次。例如，zo* 能匹配 “z” 以及 “zoo”。 * 等价于{0,}。
+
匹配前面的子表达式一次或多次。例如，’zo+’ 能匹配 “zo” 以及 “zoo”，但不能匹配 “z”。+ 等价于 {1,}。
?
匹配前面的子表达式零次或一次。例如，”do(es)?” 可以匹配 “do” 或 “does” 中的”do” 。? 等价于 {0,1}。
{n}
n 是一个非负整数。匹配确定的 n 次。例如，’o{2}’ 不能匹配 “Bob” 中的 ‘o’，但是能匹配 “food” 中的两个 o。
{n,}
n 是一个非负整数。至少匹配n 次。例如，’o{2,}’ 不能匹配 “Bob” 中的 ‘o’，但能匹配 “foooood” 中的所有 o。’o{1,}’ 等价于 ‘o+’。’o{0,}’ 则等价于 ‘o*’。
{n,m}
m 和 n 均为非负整数，其中n <= m。最少匹配 n 次且最多匹配 m 次。 “o{1,3}” 将匹配 “fooooood” 中的前三个 o。’o{0,1}’ 等价于 ‘o?’。请注意在逗号和两个数之间不能有空格。
?
当该字符紧跟在任何一个其他限制符 (*, +, ?, {n}, {n,}, {n,m}) 后面时，匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串，而默认的贪婪模式则尽可能多的匹配所搜索的字符串。例如，对于字符串 “oooo”，’o+?’ 将匹配单个 “o”，而 ‘o+’ 将匹配所有 ‘o’。
.
匹配除 “\n” 之外的任何单个字符。要匹配包括 ‘\n’ 在内的任何字符，请使用象 ‘[.\n]‘ 的模式。
(pattern)
匹配pattern 并获取这一匹配。所获取的匹配可以从产生的 Matches 集合得到，在VBScript 中使用 SubMatches 集合，在Visual Basic Scripting Edition 中则使用 $0…$9 属性。要匹配圆括号字符，请使用 ‘\(‘ 或 ‘\)’。
(?:pattern)
匹配 pattern 但不获取匹配结果，也就是说这是一个非获取匹配，不进行存储供以后使用。这在使用 “或” 字符 (|) 来组合一个模式的各个部分是很有用。例如， ‘industr(?:y|ies) 就是一个比 ‘industry|industries’ 更简略的表达式。
(?=pattern)
正向预查，在任何匹配 pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如， ‘Windows (?=95|98|NT|2000)’ 能匹配 “Windows 2000″ 中的 “Windows” ，但不能匹配 “Windows 3.1″ 中的 “Windows”。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始。
(?!pattern)
负向预查，在任何不匹配Negative lookahead matches the search string at any point where a string not matching pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如’Windows (?!95|98|NT|2000)’ 能匹配 “Windows 3.1″ 中的 “Windows”，但不能匹配 “Windows 2000″ 中的 “Windows”。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始
x|y
匹配 x 或 y。例如，’z|food’ 能匹配 “z” 或 “food”。’(z|f)ood’ 则匹配 “zood” 或 “food”。
[xyz]
字符集合。匹配所包含的任意一个字符。例如， ‘[abc]‘ 可以匹配 “plain” 中的 ‘a’。
[^xyz]
负值字符集合。匹配未包含的任意字符。例如， ‘[^abc]‘ 可以匹配 “plain” 中的’p'。
[a-z]
字符范围。匹配指定范围内的任意字符。例如，’[a-z]‘ 可以匹配 ‘a’ 到 ‘z’ 范围内的任意小写字母字符。
[^a-z]
负值字符范围。匹配任何不在指定范围内的任意字符。例如，’[^a-z]‘ 可以匹配任何不在 ‘a’ 到 ‘z’ 范围内的任意字符。
\b
匹配一个单词边界，也就是指单词和空格间的位置。例如， ‘er\b’ 可以匹配”never” 中的 ‘er’，但不能匹配 “verb” 中的 ‘er’。
\B
匹配非单词边界。’er\B’ 能匹配 “verb” 中的 ‘er’，但不能匹配 “never” 中的 ‘er’。
\cx
匹配由x指明的控制字符。例如， \cM 匹配一个 Control-M 或回车符。 x 的值必须为 A-Z 或 a-z 之一。否则，将 c 视为一个原义的 ‘c’ 字符。
\d
匹配一个数字字符。等价于 [0-9]。
\D
匹配一个非数字字符。等价于 [^0-9]。
\f
匹配一个换页符。等价于 \x0c 和 \cL。
\n
匹配一个换行符。等价于 \x0a 和 \cJ。
\r
匹配一个回车符。等价于 \x0d 和 \cM。
\s
匹配任何空白字符，包括空格、制表符、换页符等等。等价于 [ \f\n\r\t\v]。
\S
匹配任何非空白字符。等价于 [^ \f\n\r\t\v]。
\t
匹配一个制表符。等价于 \x09 和 \cI。
\v
匹配一个垂直制表符。等价于 \x0b 和 \cK。
\w
匹配包括下划线的任何单词字符。等价于’[A-Za-z0-9_]‘。
\W
匹配任何非单词字符。等价于 ‘[^A-Za-z0-9_]‘。
\xn
匹配 n，其中 n 为十六进制转义值。十六进制转义值必须为确定的两个数字长。例如， ‘\x41′ 匹配 “A”。’\x041′ 则等价于 ‘\x04′ & “1″。正则表达式中可以使用 ASCII 编码。.
\num
匹配 num，其中 num 是一个正整数。对所获取的匹配的引用。例如，’(.)\1′ 匹配两个连续的相同字符。
\n
标识一个八进制转义值或一个后向引用。如果 \n 之前至少 n 个获取的子表达式，则 n 为后向引用。否则，如果 n 为八进制数字 (0-7)，则 n 为一个八进制转义值。
\nm
标识一个八进制转义值或一个后向引用。如果 \nm 之前至少有is preceded by at least nm 个获取得子表达式，则 nm 为后向引用。如果 \nm 之前至少有 n 个获取，则 n 为一个后跟文字 m 的后向引用。如果前面的条件都不满足，若 n 和 m 均为八进制数字 (0-7)，则 \nm 将匹配八进制转义值 nm。
\nml
如果 n 为八进制数字 (0-3)，且 m 和 l 均为八进制数字 (0-7)，则匹配八进制转义值 nml。
\un
匹配 n，其中 n 是一个用四个十六进制数字表示的 Unicode 字符。例如， \u00A9 匹配版权符号 (?)。
<%
‘===================================================================
‘XDOWNPAGE ASP版本
‘版本 1.00
‘Code by zykj2000
‘Email: zykj_2000@163.net
‘BBS: http://bbs.513soft.net
‘本程序可以免费使用、修改，希望我的程序能为您的工作带来方便
‘但请保留以上请息
‘
‘程序特点
‘本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，
‘支持URL多个参数
‘
‘使用说明
‘程序参数说明
‘PapgeSize 定义分页每一页的记录数
‘GetRS 返回经过分页的Recordset此属性只读
‘GetConn 得到数据库连接
‘GetSQL 得到查询语句
‘程序方法说明
‘ShowPage 显示分页导航条,唯一的公用方法
‘
‘===================================================================
Const Btn_First=”<font face=”"webdings”">9</font>” ‘定义第一页按钮显示样式
Const Btn_Prev=”<font face=”"webdings”">3</font>” ‘定义前一页按钮显示样式
Const Btn_Next=”<font face=”"webdings”">4</font>” ‘定义下一页按钮显示样式
Const Btn_Last=”<font face=”"webdings”">:</font>” ‘定义最后一页按钮显示样式
Const XD_Align=”Center” ‘定义分页信息对齐方式
Const XD_Width=”100%” ‘定义分页信息框大小
Class Xdownpage
Private XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL
‘=================================================================
‘PageSize 属性
‘设置每一页的分页大小
‘=================================================================
Public Property Let PageSize(int_PageSize)
If IsNumeric(Int_Pagesize) Then
XD_PageSize=CLng(int_PageSize)
Else
str_error=str_error & “PageSize的参数不正确”
ShowError()
End If
End Property
Public Property Get PageSize
If XD_PageSize=”" or (not(IsNumeric(XD_PageSize))) Then
PageSize=10
Else
PageSize=XD_PageSize
End If
End Property
‘=================================================================
‘GetRS 属性
‘返回分页后的记录集
‘=================================================================
Public Property Get GetRs()
Set XD_Rs=Server.createobject(“adodb.recordset”)
XD_Rs.PageSize=PageSize
XD_Rs.Open XD_SQL,XD_Conn,1,1
If not(XD_Rs.eof and XD_RS.BOF) Then
If int_curpage>XD_RS.PageCount Then
int_curpage=XD_RS.PageCount
End If
XD_Rs.AbsolutePage=int_curpage
End If
Set GetRs=XD_RS
End Property
‘================================================================
‘GetConn 得到数据库连接
‘
‘================================================================
Public Property Let GetConn(obj_Conn)
Set XD_Conn=obj_Conn
End Property
‘================================================================
‘GetSQL 得到查询语句
‘
‘================================================================
Public Property Let GetSQL(str_sql)
XD_SQL=str_sql
End Property
‘==================================================================
‘Class_Initialize 类的初始化
‘初始化当前页的值
‘
‘==================================================================
Private Sub Class_Initialize
‘========================
‘设定一些参数的黙认值
‘========================
XD_PageSize=10 ‘设定分页的默认值为10
‘========================
‘获取当前面的值
‘========================
If request(“page”)=”" Then
int_curpage=1
ElseIf not(IsNumeric(request(“page”))) Then
int_curpage=1
ElseIf CInt(Trim(request(“page”)))<1 Then
int_curpage=1
Else
Int_curpage=CInt(Trim(request(“page”)))
End If
End Sub
‘====================================================================
‘ShowPage 创建分页导航条
‘有首页、前一页、下一页、末页、还有数字导航
‘
‘====================================================================
Public Sub ShowPage()
Dim str_tmp
XD_sURL = GetUrl()
int_totalRecord=XD_RS.RecordCount
If int_totalRecord<=0 Then
str_error=str_error & “总记录数为零，请输入数据”
Call ShowError()
End If
If int_totalRecord=”" then
int_TotalPage=1
Else
If int_totalRecord mod PageSize =0 Then
int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1
Else
int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1
End If
End If
If Int_curpage>int_Totalpage Then
int_curpage=int_TotalPage
End If
‘==================================================================
‘显示分页信息，各个模块根据自己要求更改显求位置
‘==================================================================
response.write “”
str_tmp=ShowFirstPrv
response.write str_tmp
str_tmp=showNumBtn
response.write str_tmp
str_tmp=ShowNextLast
response.write str_tmp
str_tmp=ShowPageInfo
response.write str_tmp
response.write “”
End Sub
‘====================================================================
‘ShowFirstPrv 显示首页、前一页
‘
‘
‘====================================================================
Private Function ShowFirstPrv()
Dim Str_tmp,int_prvpage
If int_curpage=1 Then
str_tmp=Btn_First&” “&Btn_Prev
Else
int_prvpage=int_curpage-1
str_tmp=”<a href=”"”&XD_sURL & “1″ & “”">” & Btn_First&”</a> <a href=”"” & XD_sURL & CStr(int_prvpage) & “”">” & Btn_Prev&”</a>”
End If
ShowFirstPrv=str_tmp
End Function
‘====================================================================
‘ShowNextLast 下一页、末页
‘
‘
‘====================================================================
Private Function ShowNextLast()
Dim str_tmp,int_Nextpage
If Int_curpage>=int_totalpage Then
str_tmp=Btn_Next & ” ” & Btn_Last
Else
Int_NextPage=int_curpage+1
str_tmp=”<a href=”"” & XD_sURL & CStr(int_nextpage) & “”">” & Btn_Next&”</a> <a href=”"”& XD_sURL & CStr(int_totalpage) & “”">” & Btn_Last&”</a>”
End If
ShowNextLast=str_tmp
End Function
‘====================================================================
‘ShowNumBtn 数字导航
‘
‘
‘====================================================================
Private Function showNumBtn()
Dim i,str_tmp
For i=1 to int_totalpage
str_tmp=str_tmp & “[<a href=""" & XD_sURL & CStr(i) & """>"&i&"</a>] ”
Next
showNumBtn=str_tmp
End Function
‘====================================================================
‘ShowPageInfo 分页信息
‘更据要求自行修改
‘
‘====================================================================
Private Function ShowPageInfo()
Dim str_tmp
str_tmp=”页次:”&int_curpage&”/”&int_totalpage&”页 共”&int_totalrecord&”条记录 “&XD_PageSize&”条/每页”
ShowPageInfo=str_tmp
End Function
‘==================================================================
‘GetURL 得到当前的URL
‘更据URL参数不同，获取不同的结果
‘
‘==================================================================
Private Function GetURL()
Dim strurl,str_url,i,j,search_str,result_url
search_str=”page=”
strurl=Request.ServerVariables(“URL”)
Strurl=split(strurl,”/”)
i=UBound(strurl,1)
str_url=strurl(i)’得到当前页文件名
str_params=Trim(Request.ServerVariables(“QUERY_STRING”))
If str_params=”" Then
result_url=str_url & “?page=”
Else
If InstrRev(str_params,search_str)=0 Then
result_url=str_url & “?” & str_params &”&page=”
Else
j=InstrRev(str_params,search_str)-2
If j=-1 Then
result_url=str_url & “?page=”
Else
str_params=Left(str_params,j)
result_url=str_url & “?” & str_params &”&page=”
End If
End If
End If
GetURL=result_url
End Function
‘====================================================================
‘ 设置 Terminate 事件。
‘
‘====================================================================
Private Sub Class_Terminate
XD_RS.close
Set XD_RS=nothing
End Sub
‘====================================================================
‘ShowError 错误提示
‘
‘
‘====================================================================
Private Sub ShowError()
If str_Error <> “” Then
Response.Write(“” & str_Error & “”)
Response.End
End If
End Sub
End class
set conn = server.CreateObject(“adodb.connection”)
conn.open “driver={microsoft access driver (*.mdb)};dbq=” & server.Mappath(“pages.mdb”)
‘#############类调用样例#################
‘创建对象
Set mypage=new xdownpage
‘得到数据库连接
mypage.getconn=conn
’sql语句
mypage.getsql=”select * from [test] order by id asc”
‘设置每一页的记录条数据为5条
mypage.pagesize=5
‘返回Recordset
set rs=mypage.getrs()
‘显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次
mypage.showpage()
‘显示数据
Response.Write(“<br/>”)
for i=1 to mypage.pagesize
‘这里就可以自定义显示方式了
if not rs.eof then
response.write rs(0) & “<br/>”
rs.movenext
else
exit for
end if
next
%>
数库连接function
Public Function Execute(Command)
If Not IsObject(Conn) Then Connect()
If IsDeBug = 0 Then
On Error Resume Next
Set Execute = Conn.Execute(Command)
If Err Then
err.Clear
Set Conn = Nothing
Response.Write “数据库连接出错，请检查连接字串。”
Response.End()
End If
Else
On Error Resume Next
‘response.Write “<br>第”&SQLDataNums+1 & “次查询：” & Command & “<br>”
Set Execute = Conn.Execute(Command)
If Err Then
Response.Write command & “<br>”
Response.Write “错误信息：”& Err.Description &”<BR>”
Response.Write “出错文件：”& Err.Source &”<BR>”
Response.Write “出错行：”& Err.Line &”<BR>”
err.Clear
End If
End if
SQLDataNums = SQLDataNums+1
End Function
至于缓存的作用，我想我也不用再多说了，它的作用已经很明显，特别是对于信息量非常大或是全数据库页面的网站，他能很好地利用主机的内存资源，加速ASP的执行效率，减轻服务器的负担，而动网在这一方面做得是最突出的，像他现在的dvbbs7.1.0版，更是在缓存的利用上更上一层楼，前后台大多的操作都和缓存有关，而现在动网里用的也就是迷城浪子的缓存类，下面列出动网的三大高手 写的ASP缓存类
木鸟写的
‘**********************************************
‘ vbs Cache类
‘
‘ 属性valid，是否可用，取值前判断
‘ 属性name，cache名，新建对象后赋值
‘ 方法add(值,到期时间)，设置cache内容
‘ 属性value，返回cache内容
‘ 属性blempty，是否未设置值
‘ 方法makeEmpty，释放内存，测试用
‘ 方法equal(变量1)，判断cache值是否和变量1相同
‘ 方法expires(time)，修改过期时间为time
‘ 木鸟 2002.12.24
‘ http://www.aspsky.net/
‘**********************************************
class Cache
private obj ‘cache内容
private expireTime ‘过期时间
private expireTimeName ‘过期时间application名
private cacheName ‘cache内容application名
private path ‘uri
private sub class_initialize()
path=request.servervariables(“url”)
path=left(path,instrRev(path,”/”))
end sub
private sub class_terminate()
end sub
public property get blEmpty
‘是否为空
if isempty(obj) then
blEmpty=true
else
blEmpty=false
end if
end property
public property get valid
‘是否可用(过期)
if isempty(obj) or not isDate(expireTime) then
valid=false
elseif CDate(expireTime)<now then
valid=false
else
valid=true
end if
end property
public property let name(str)
‘设置cache名
cacheName=str & path
obj=application(cacheName)
expireTimeName=str & “expires” & path
expireTime=application(expireTimeName)
end property
public property let expires(tm)
‘重设置过期时间
expireTime=tm
application.lock
application(expireTimeName)=expireTime
application.unlock
end property
public sub add(var,expire)
‘赋值
if isempty(var) or not isDate(expire) then
exit sub
end if
obj=var
expireTime=expire
application.lock
application(cacheName)=obj
application(expireTimeName)=expireTime
application.unlock
end sub
public property get value
‘取值
if isempty(obj) or not isDate(expireTime) then
value=null
elseif CDate(expireTime)<now then
value=null
else
value=obj
end if
end property
public sub makeEmpty()
‘释放application
application.lock
application(cacheName)=empty
application(expireTimeName)=empty
application.unlock
obj=empty
expireTime=empty
end sub
public function equal(var2)
‘比较
if typename(obj)<>typename(var2) then
equal=false
elseif typename(obj)=”Object” then
if obj is var2 then
equal=true
else
equal=false
end if
elseif typename(obj)=”Variant()” then
if join(obj,”^”)=join(var2,”^”) then
equal=true
else
equal=false
end if
else
if obj=var2 then
equal=true
else
equal=false
end if
end if
end function
end class
木鸟 类例子 vbs Cache类
‘
‘ 属性valid，是否可用，取值前判断
‘ 属性name，cache名，新建对象后赋值
‘ 方法add(值,到期时间)，设置cache内容
‘ 属性value，返回cache内容
‘ 属性blempty，是否未设置值
‘ 方法makeEmpty，释放内存，
‘ 方法DelCahe ,删除内存
‘ 方法equal(变量1)，判断cache值是否和变量1相同
‘ 方法expires(time)，修改过期时间为time
‘ 用法
set myCache=New Cache
myCache.name=”BoardJumpList” ‘定义缓存名
if myCache.valid then ’判断是否可用(包括过期，与是否为空值)
response.write myCache.value ’输出
else
…………….
BoardJumpList=xxx
myCache.add BoardJumpList,dateadd(“n”,60,now) ’写入缓存 xxx.add 内容,过期时间
response.write BoardJumpList ‘输出
end if
myCache.makeEmpty() 释放内存
mycache.DelCahe() 删除缓存
迷城浪子写的 Class 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 Sub
End Class
迷城浪子 类例子
Set WydCache=New Cls_Cache
WydCache.Reloadtime=0.5 ‘定义过期时间 (以分钟为单会)
WydCache.CacheName=”pages” ’定义缓存名
IF WydCache.ObjIsEmpty() Then ”判断是否可用(包括过期，与是否为空值)
Response.write WydCache.Value
Else
………………
BoardJumpList=xxx
WydCache.Value=BoardJumpList ‘写入内容
Response.write BoardJumpList
End if
mycache.DelCahe(“缓存名”) 删除缓存
slightboy 写的
‘========================
‘clsCache.asp
‘========================
‘== begin : 2004-6-26 21:51:47
‘== copyright : slightboy (C)1998-2004
‘== email : slightboy@msn.com
‘========================
‘========================
‘ Dim Application(2)
‘ Application(0) Counter 计数器
‘ Application(1) dateTime 放置时间
‘ Application(2) Content 缓存内容
Public PREFIX
Public PREFIX_LENGTH
Private Sub Class_Initialize()
PREFIX = “Cached:”
PREFIX_LENGTH = 7
End Sub
Private Sub Class_Terminate
End Sub
‘ 设置变量
Public Property Let Cache(ByRef Key, ByRef Content)
Dim Item(2)
Item(0) = 0
Item(1) = Now()
IF (IsObject(Content)) Then
Set Item(2) = Content
Else
Item(2) = Content
End IF
Application.Unlock
Application(PREFIX & Key) = Item
Application.Lock
End Property
‘ 取出变量 计数器++
Public Property Get Cache(ByRef Key)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
IF (IsObject(Item)) Then
Set Cache = Item(2)
Else
Cache = Item(2)
End IF
Application(PREFIX & Key)(0) = Application(PREFIX & Key)(0) + 1
Else
Cache = Empty
End IF
End Property
‘ 检查缓存对象是否存在
Public Property Get Exists(ByRef Key)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
Exists = True
Else
Exists = False
End IF
End Property
‘ 得到计数器数值
Public Property Get Counter(ByRef Key)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
Counter = Item(0)
End IF
End Property
‘ 设置计数器时间
Public Property Let dateTime(ByRef Key, ByRef SetdateTime)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
Item(1) = SetdateTime
End IF
End Property
‘ 得到计数器时间
Public Property Get dateTime(ByRef Key)
Dim Item
Item = Application(PREFIX & Key)
IF (IsArray(Item)) Then
dateTime = Item(1)
End IF
End Property
‘ 重置计数器
Public Sub ResetCounter()
Dim Key
Dim Item
Application.Unlock
For Each Key in Application.Contents
IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then
Item = Application(Key)
Item(0) = 0
Application(Key) = Item
End IF
Next
Application.Lock
End Sub
‘ 删除某以缓存
Public Sub Clear(ByRef Key)
Application.Contents.Remove(PREFIX & Key)
End Sub
‘ 清空没有使用的缓存
Public Sub ClearUnused()
Dim Key, Keys, KeyLength, KeyIndex
For Each Key in Application.Contents
IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then
IF (Application(Key)(0) = 0) Then
Keys = Keys & VBNewLine & Key
End IF
End IF
Next
Keys = Split(Keys, VBNewLine)
KeyLength = UBound(Keys)
Application.Unlock
For KeyIndex = 1 To KeyLength
Application.Contents.Remove(Keys(KeyIndex))
Next
Application.Lock
End Sub
‘ 清空所有缓存
Public Sub ClearAll()
Dim Key, Keys, KeyLength, KeyIndex
For Each Key in Application.Contents
IF (Left(Key, PREFIX_LENGTH) = PREFIX) Then
Keys = Keys & VBNewLine & Key
End IF
Next
Keys = Split(Keys, VBNewLine)
KeyLength = UBound(Keys)
Application.Unlock
For KeyIndex = 1 To KeyLength
Application.Contents.Remove(Keys(KeyIndex))
Next
Application.Lock
End Sub
End Class
slightboyn 类例子
Set Wyd=New JayCache
Wyd.dateTime(“Page”)=时 间
If Wyd.Exists(“Page”) Then
Response.write Wyd.Cache(“Page”) ‘输出
Else
Wyd.Cache(“Page”)=xxx 写入
Responxe.write xxx
End IF
Wyd.Clear(“page”)’删除缓存
