一个正则表达式就是由普通字符（例如字符 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 匹配版权符号 (?)。
今日在it365cn.com看到
绝大多数文印人并没有接受过正规的美工培训，要叫他们设计标志是很难的，但又不能不面对。在这里列举三十例文字标志设计制作教程，灵活运用，会让你很方便的设计出多姿多彩的文字标志，希望对各位有帮助。
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
记得之前在色鸟也看到的，一并帖上来。
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
如图片显示不完整请点击查看
随着动网论坛的广泛应用和动网上传漏洞的被发现以及SQL注入式攻击越来越多的被使用，WEBSHELL让防火墙形同虚设，一台即使打了所有微软补丁、只让80端口对外开放的WEB服务器也逃不过被黑的命运。难道我们真的无能为力了吗？其实，只要你弄明白了NTFS系统下的权限设置问题，我们可以对crackers们说：NO!
要打造一台安全的WEB服务器，那么这台服务器就一定要使用NTFS和Windows NT/2000/2003。众所周知，Windows是一个支持多用户、多任务的操作系统，这是权限设置的基础，一切权限设置都是基于用户和进程而言的，不同的用户在访问这台计算机时，将会有不同的权限。DOS是个单任务、单用户的操作系统。但是我们能说DOS没有权限吗？不能！当我们打开一台装有DOS操作系统的计算机的时候，我们就拥有了这个操作系统的管理员权限，而且，这个权限无处不在。所以，我们只能说DOS不支持权限的设置，不能说它没有权限。随着人们安全意识的提高，权限设置随着NTFS的发布诞生了。
Windows NT里，用户被分成许多组，组和组之间都有不同的权限，当然，一个组的用户和用户之间也可以有不同的权限。下面我们来谈谈NT中常见的用户组。
Administrators,管理员组，默认情况下，Administrators中的用户对计算机/域有不受限制的完全访问权。分配给该组的默认权限允许对整个系统进行完全控制。所以，只有受信任的人员才可成为该组的成员。
Power Users，高级用户组，Power Users 可以执行除了为 Administrators 组保留的任务外的其他任何操作系统任务。分配给 Power Users 组的默认权限允许 Power Users 组的成员修改整个计算机的设置。但Power Users 不具有将自己添加到 Administrators 组的权限。在权限设置中，这个组的权限是仅次于Administrators的。
Users:普通用户组，这个组的用户无法进行有意或无意的改动。因此，用户可以运行经过验证的应用程序，但不可以运行大多数旧版应用程序。Users 组是最安全的组，因为分配给该组的默认权限不允许成员修改操作系统的设置或用户资料。Users 组提供了一个最安全的程序运行环境。在经过 NTFS 格式化的卷上，默认安全设置旨在禁止该组的成员危及操作系统和已安装程序的完整性。用户不能修改系统注册表设置、操作系统文件或程序文件。Users 可以关闭工作站，但不能关闭服务器。Users 可以创建本地组，但只能修改自己创建的本地组。
Guests:来宾组，按默认值，来宾跟普通Users的成员有同等访问权，但来宾帐户的限制更多。
Everyone:顾名思义，所有的用户，这个计算机上的所有用户都属于这个组。
其实还有一个组也很常见，它拥有和Administrators一样、甚至比其还高的权限，但是这个组不允许任何用户的加入，在察看用户组的时候，它也不会被显示出来，它就是SYSTEM组。系统和系统级的服务正常运行所需要的权限都是靠它赋予的。由于该组只有这一个用户SYSTEM，也许把该组归为用户的行列更为贴切。
权限是有高低之分的，有高权限的用户可以对低权限的用户进行操作，但除了Administrators之外，其他组的用户不能访问 NTFS 卷上的其他用户资料，除非他们获得了这些用户的授权。而低权限的用户无法对高权限的用户进行任何操作。
我们平常使用计算机的过程当中不会感觉到有权限在阻挠你去做某件事情，这是因为我们在使用计算机的时候都用的是Administrators中的用户登陆的。这样有利也有弊，利当然是你能去做你想做的任何一件事情而不会遇到权限的限制。弊就是以 Administrators 组成员的身份运行计算机将使系统容易受到特洛伊木马、病毒及其他安全风险的威胁。访问 Internet 站点或打开电子邮件附件的简单行动都可能破坏系统。不熟悉的 Internet 站点或电子邮件附件可能有特洛伊木马代码，这些代码可以下载到系统并被执行。如果以本地计算机的管理员身份登录，特洛伊木马可能使用管理访问权重新格式化您的硬盘，造成不可估量的损失，所以在没有必要的情况下，最好不用Administrators中的用户登陆。
Administrators中有一个在系统安装时就创建的默认用户—-Administrator，Administrator 帐户具有对服务器的完全控制权限，并可以根据需要向用户指派用户权利和访问控制权限。因此强烈建议将此帐户设置为使用强密码。永远也不可以从 Administrators 组删除 Administrator 帐户，但可以重命名或禁用该帐户。由于大家都知道“管理员”存在于许多版本的 Windows 上，所以重命名或禁用此帐户将使恶意用户尝试并访问该帐户变得更为困难。对于一个好的服务器管理员来说，他们通常都会重命名或禁用此帐户。Guests用户组下，也有一个默认用户—-Guest,但是在默认情况下，它是被禁用的。如果没有特别必要，无须启用此账户。我们可以通过“控制面板”–“管理工具”–“计算机管理”–“用户和用户组”来查看用户组及该组下的用户。
我们用鼠标右键单击一个NTFS卷或NTFS卷下的一个目录，选择“属性”–“安全”就可以对一个卷，或者一个卷下面的目录进行权限设置，此时我们会看到以下七种权限：完全控制、修改、读取和运行、列出文件夹目录、读取、写入、和特别的权限。“完全控制”就是对此卷或目录拥有不受限制的完全访问。地位就像Administrators在所有组中的地位一样。选中了“完全控制”，下面的五项属性将被自动被选中。“修改”则像Power users，选中了“修改”，下面的四项属性将被自动被选中。下面的任何一项没有被选中时，“修改”条件将不再成立。“读取和运行”就是允许读取和运行在这个卷或目录下的任何文件，“列出文件夹目录”和“读取”是“读取和运行”的必要条件。“列出文件夹目录”是指只能浏览该卷或目录下的子目录，不能读取，也不能运行。“读取”是能够读取该卷或目录下的数据。“写入”就是能往该卷或目录下写入数据。而“特别”则是对以上的六种权限进行了细分。读者可以自行对“特别”进行更深的研究，鄙人在此就不过多赘述了。
下面我们对一台刚刚安装好操作系统和服务软件的WEB服务器系统和其权限进行全面的剖析。服务器采用Windows 2000 Server版，安装好了SP4及各种补丁。WEB服务软件则是用了Windows 2000自带的IIS 5.0，删除了一切不必要的映射。整个硬盘分为四个NTFS卷，C盘为系统卷，只安装了系统和驱动程序；D盘为软件卷，该服务器上所有安装的软件都在D盘中；E盘是WEB程序卷，网站程序都在该卷下的WWW目录中；F盘是网站数据卷，网站系统调用的所有数据都存放在该卷的WWWDATABASE目录下。这样的分类还算是比较符合一台安全服务器的标准了。希望各个新手管理员能合理给你的服务器数据进行分类，这样不光是查找起来方便，更重要的是这样大大的增强了服务器的安全性，因为我们可以根据需要给每个卷或者每个目录都设置不同的权限，一旦发生了网络安全事故，也可以把损失降到最低。当然，也可以把网站的数据分布在不同的服务器上，使之成为一个服务器群，每个服务器都拥有不同的用户名和密码并提供不同的服务，这样做的安全性更高。不过愿意这样做的人都有一个特点—-有钱:)。好了，言归正传，该服务器的数据库为MS-SQL，MS-SQL的服务软件SQL2000安装在d:\ms-sqlserver2K目录下，给SA账户设置好了足够强度的密码，安装好了SP3补丁。为了方便网页制作员对网页进行管理，该网站还开通了FTP服务，FTP服务软件使用的是SERV-U 5.1.0.0，安装在d:\ftpservice\serv-u目录下。杀毒软件和防火墙用的分别是Norton Antivirus和BlackICE,路径分别为d:\nortonAV和d:\firewall\blackice,病毒库已经升级到最新，防火墙规则库定义只有80端口和21端口对外开放。网站的内容是采用动网7.0的论坛,网站程序在e:\www\bbs下。
细心的读者可能已经注意到了，安装这些服务软件的路径我都没有采用默认的路径或者是仅仅更改盘符的默认路径，这也是安全上的需要，因为一个黑客如果通过某些途径进入了你的服务器，但并没有获得管理员权限，他首先做的事情将是查看你开放了哪些服务以及安装了哪些软件，因为他需要通过这些来提升他的权限。一个难以猜解的路径加上好的权限设置将把他阻挡在外。相信经过这样配置的WEB服务器已经足够抵挡大部分学艺不精的黑客了。读者可能又会问了：“这根本没用到权限设置嘛！我把其他都安全工作都做好了，权限设置还有必要吗？”当然有！智者千虑还必有一失呢，就算你现在已经把系统安全做的完美无缺，你也要知道新的安全漏洞总是在被不断的发现。权限将是你的最后一道防线！那我们现在就来对这台没有经过任何权限设置，全部采用Windows默认权限的服务器进行一次模拟攻击，看看其是否真的固若金汤。
假设服务器外网域名为http://www.webserver.com，用扫描软件对其进行扫描后发现开放WWW和FTP服务，并发现其服务软件使用的是IIS 5.0和Serv-u 5.1，用一些针对他们的溢出工具后发现无效，遂放弃直接远程溢出的想法。打开网站页面，发现使用的是动网的论坛系统，于是在其域名后面加个/upfile.asp，发现有文件上传漏洞，便抓包，把修改过的ASP木马用NC提交，提示上传成功，成功得到WEBSHELL，打开刚刚上传的ASP木马，发现有MS-SQL、Norton Antivirus和BlackICE在运行，判断是防火墙上做了限制，把SQL服务端口屏蔽了。通过ASP木马查看到了Norton Antivirus和BlackICE的PID，又通过ASP木马上传了一个能杀掉进程的文件，运行后杀掉了Norton Antivirus和BlackICE。再扫描，发现1433端口开放了，到此，便有很多种途径获得管理员权限了，可以查看网站目录下的conn.asp得到SQL的用户名密码，再登陆进SQL执行添加用户，提管理员权限。也可以抓SERV-U下的ServUDaemon.ini修改后上传，得到系统管理员权限。还可以传本地溢出SERV-U的工具直接添加用户到Administrators等等。大家可以看到，一旦黑客找到了切入点，在没有权限限制的情况下，黑客将一帆风顺的取得管理员权限。
那我们现在就来看看Windows 2000的默认权限设置到底是怎样的。对于各个卷的根目录，默认给了Everyone组完全控制权。这意味着任何进入电脑的用户将不受限制的在这些根目录中为所欲为。系统卷下有三个目录比较特殊，系统默认给了他们有限制的权限，这三个目录是Documents and settings、Program files和Winnt。对于Documents and settings，默认的权限是这样分配的：Administrators拥有完全控制权；Everyone拥有读&运，列和读权限；Power users拥有读&运，列和读权限；SYSTEM同Administrators;Users拥有读&运，列和读权限。对于Program files，Administrators拥有完全控制权；Creator owner拥有特殊权限;Power users有完全控制权;SYSTEM同Administrators;Terminal server users拥有完全控制权，Users有读&运，列和读权限。对于Winnt，Administrators拥有完全控制权；Creator owner拥有特殊权限;Power users有完全控制权;SYSTEM同Administrators;Users有读&运，列和读权限。而非系统卷下的所有目录都将继承其父目录的权限，也就是Everyone组完全控制权！
现在大家知道为什么我们刚刚在测试的时候能一帆风顺的取得管理员权限了吧？权限设置的太低了！一个人在访问网站的时候，将被自动赋予IUSR用户，它是隶属于Guest组的。本来权限不高，但是系统默认给的Everyone组完全控制权却让它“身价倍增”，到最后能得到Administrators了。那么，怎样设置权限给这台WEB服务器才算是安全的呢？大家要牢记一句话：“最少的服务+最小的权限=最大的安全”对于服务，不必要的话一定不要装，要知道服务的运行是SYSTEM级的哦，对于权限，本着够用就好的原则分配就是了。对于WEB服务器，就拿刚刚那台服务器来说，我是这样设置权限的，大家可以参考一下：各个卷的根目录、Documents and settings以及Program files，只给Administrator完全控制权，或者干脆直接把Program files给删除掉；给系统卷的根目录多加一个Everyone的读、写权；给e:\www目录，也就是网站目录读、写权。最后，还要把cmd.exe这个文件给挖出来，只给Administrator完全控制权。经过这样的设置后，再想通过我刚刚的方法入侵这台服务器就是不可能完成的任务了。
可能这时候又有读者会问：“为什么要给系统卷的根目录一个Everyone的读、写权？网站中的ASP文件运行不需要运行权限吗？”问的好，有深度。是这样的，系统卷如果不给Everyone的读、写权的话，启动计算机的时候，计算机会报错，而且会提示虚拟内存不足。当然这也有个前提—-虚拟内存是分配在系统盘的，如果把虚拟内存分配在其他卷上，那你就要给那个卷Everyone的读、写权。ASP文件的运行方式是在服务器上执行，只把执行的结果传回最终用户的浏览器，这没错，但ASP文件不是系统意义上的可执行文件，它是由WEB服务的提供者—-IIS来解释执行的，所以它的执行并不需要运行的权限。
经过上面的讲解以后，你一定对权限有了一个初步了了解了吧？想更深入的了解权限，那么权限的一些特性你就不能不知道了，权限是具有继承性、累加性 、优先性、交叉性的。
继承性是说下级的目录在没有经过重新设置之前，是拥有上一级目录权限设置的。这里还有一种情况要说明一下，在分区内复制目录或文件的时候，复制过去的目录和文件将拥有它现在所处位置的上一级目录权限设置。但在分区内移动目录或文件的时候，移动过去的目录和文件将拥有它原先的权限设置。
累加是说如一个组GROUP1中有两个用户USER1、USER2，他们同时对某文件或目录的访问权限分别为“读取”和“写入”，那么组GROUP1对该文件或目录的访问权限就为USER1和USER2的访问权限之和，实际上是取其最大的那个，即“读取”+“写入”=“写入”。 又如一个用户USER1同属于组GROUP1和GROUP2，而GROUP1对某一文件或目录的访问权限为“只读”型的，而GROUP2对这一文件或文件夹的访问权限为“完全控制”型的，则用户USER1对该文件或文件夹的访问权限为两个组权限累加所得，即：“只读”+“完全控制”=“完全控制”。
优先性，权限的这一特性又包含两种子特性，其一是文件的访问权限优先目录的权限，也就是说文件权限可以越过目录的权限，不顾上一级文件夹的设置。另一特性就是“拒绝”权限优先其它权限，也就是说“拒绝”权限可以越过其它所有其它权限，一旦选择了“拒绝”权限，则其它权限也就不能取任何作用，相当于没有设置。
交叉性是指当同一文件夹在为某一用户设置了共享权限的同时又为用户设置了该文件夹的访问权限，且所设权限不一致时，它的取舍原则是取两个权限的交集，也即最严格、最小的那种权限。如目录A为用户USER1设置的共享权限为“只读”，同时目录A为用户USER1设置的访问权限为“完全控制”，那用户USER1的最终访问权限为“只读”。
权限设置的问题我就说到这了，在最后我还想给各位读者提醒一下，权限的设置必须在NTFS分区中才能实现的，FAT32是不支持权限设置的。同时还想给各位管理员们一些建议：
1.养成良好的习惯，给服务器硬盘分区的时候分类明确些，在不使用服务器的时候将服务器锁定，经常更新各种补丁和升级杀毒软件。
2.设置足够强度的密码，这是老生常谈了，但总有管理员设置弱密码甚至空密码。
3.尽量不要把各种软件安装在默认的路径下
4.在英文水平不是问题的情况下，尽量安装英文版操作系统。
5.切忌在服务器上乱装软件或不必要的服务。
6.牢记：没有永远安全的系统，经常更新你的知识。
[下面红色部份为操作的命令]
[注:本教程无需下载任何软件,只要按着方法做，就会自动下载软件，前提是你的linux现在可以上网]
1、 BT简介
BitTorrent是一种新型共享软件方式，优势在于不限制下载带宽和联接线程仍能提供高速下载服务，下载的人越多，下载速度不下降
反而更稳定，相比之下FTP仅能提供一定数目内的联接和有限的带宽(下载的人越多，速度越慢) BitTorrent更适合大文件的下载。
2、 下载安装python
BitTorrent-3.4.2要求python的版本在2.x以上，–下载python的最新版本
[root@RhServer root]# cd /usr
[root@RhServer usr]# wget http://www.python.org/ftp/python/2.4.1/Python-2.4.1.tgz
[root@RhServer usr]# tar –zxvf Python-2.4.1.tgz
[root@RhServer usr]# cd Python-2.4.1
[root@RhServer usr]# ./configure –prefix=/usr/local/python-2.4.1
[root@RhServer usr]# make
[root@RhServer usr]# make install
[root@RhServer usr]# mv /usr/bin/python /usr/bin/python-2.4.1
[root@RhServer usr]# ln –s /usr/local/python-2.4.1/bin/python /usr/bin/python
OK,Python 安装完成了。
4、下载安装BitTorrent
你可以下载最新的*nux下用的tar 或zip 包，然后进行安装：
[root@RhServer usr]# http://www.jjww.com.cn/upload/software/BitTorrent-3.4.2.tar.gz
[root@RhServer usr]# tar zxvf BitTorrent-3.4.2.tar.gz
[root@RhServer usr]# cd BitTorrent-3.4.2
[root@RhServer BitTorrent-3.4.2]# mkdir /home/log
[root@RhServer BitTorrent-3.4.2]# chmod 0777 /home/log
5、启动BitTorrent的track服务，这个服务用来跟踪、分发所有下载情况
[root@RhServer BitTorrent-3.4.2]# ./bttrack.py –port 6969 –dfile dstate >> /home/log/bttrack.log &
这个命令会在当前目录生成一个dstate的文件，并打开6969端口 ，你可以在IE内打入：http://ip:6969/去看服务的相关信息。(当然，现在还没有内容，生成*.torrent发布文件及种子后就会有)。这个命令同时会在/home/log目录下生成一个bttrack.log 的apache日志格式的日志文件，用于今后做日志分析、统计.
6、制作BT的发布文件
为了能让他人下载你的东西 ，你先得做一个以.torrent结尾的BT发布文件：
[root@RhServer BitTorrent-3.4.2]# ./btmakemetafile.py /home/djcat/Oracle快速入门/ http://192.168.1.111:6969/announce
“/home/djcat/Oracle快速入门/” 是你要给他人下载的目录或文件
“http://192.168.1.111:6969/announce” 是你刚做的track服务器的IP及端口
这个命令完成后，会在/home/djcat/下生成一个”Oracle快速入门.torrent”的发布文件。把它放到WEB 、论坛 或 FTP等人们从网上能下载到的地方，这样人们就可以通过这个文件去找track服务器及种子下载里实际内容了。
7、 生成第一个种子（seed）
BT服务器的track服务并不提供下载服务，提供下载的是他的种子（seed），也就是一个已经下载完成或正在下载的客户端。因为一开始没有这样的种子，所以你得先自己生成一个：
[root@RhServer
BitTorrent-3.4.2]# ./btdownloadheadless.py –max_allow_in 20
–max_upload_rate 500 –minport 6888 –maxport 6888
/home/djcat/Oracle快速入门.torrent –saveas /home/djcat/Oracle快速入门
–max_allow 20 指这个种子最多可以接受20个连接
–max_upload_rate 500 指这个种子最大的可以接受下载的带宽 500 KB(byte)/s，这样可以控制下载带宽。
–minport 6888 –maxport 6888 最大最小监听端口，这样写就是说种子只监听6888端口，这样方便在防火墙上开端口。
/home/djcat/Oracle快速入门.torrent 发布文件的位置
–saveas /home/djcat/Oracle快速入门 实际文件的位置
这个命令会在BT服务器本地生成第一个种子，供他人下载
欢迎大家多多支持我的小站！
前言：本教程主要针对有一定linux操作经验的用户，但相对来说也可以适用于初级用户，但绝对不适用于“未装过linux操作系统性的用户”。本文收集于网上的资料，只做了简单的整理！大家应该看得懂！
一、安装vsftpd
# useradd vsftpdguest
// 添加vsftpdguest用户，作为VSFTPD的guest
# wget http://www.jjww.com.cn/upload/software/vsftpd-2.0.1-5.i386.rpm
// 下载vsftpd-2.0.1-5.i386.rpm软件包
# rpm –ivh vsftpd-2.0.1-5.i386.rpm
// 安装vsftpd-2.0.1-5.i386.rpm
# rm /etc/vsftpd/vsftpd.conf
// 删除vsftpd默认的vsftpd.conf
# vi /etc/vsftpd/vsftpd.conf
// 新建并编辑vsftpd.conf文件，加入如下配置
anonymous_enable=NO
local_enable=YES
write_enable=YES
local_umask=022
anon_upload_enable=YES
anon_mkdir_write_enable=YES
anon_other_write_enable=YES
chroot_local_user=YES
guest_enable=YES
guest_username=vsftpdguest
listen=YES
listen_port=21
pasv_enable=YES
pasv_min_port=30000
pasv_max_port=30999
anon_world_readable_only=NO
virtual_use_local_privs=YES
# user_config_dir=/etc/vsftpd/vsftpd_user_conf
# service vsftpd start
// 重启vsftpd
二、配置mysql数据库
# rpm -ivh perl-CGI-2.81-88.4.i386.rpm
# rpm -ivh perl-DBI-1.32-5.i386.rpm
# rpm -ivh mysql-3.23.58-1.i386.rpm perl-DBD-MySQL-2.1021-3.i386.rpm
# rpm -ivh mysql-server-3.23.58-1.i386.rpm
# rpm -ivh mysql-devel-3.23.58-1.i386.rpm
// 以上是安装mysql-server的rpm包，mysql-devel包是必须安装的
# service mysqld start
// 启动mysql
# mysql
// mysql命令进入
mysql>create database vsftpdvu;
// 新建数据库“vsftpdvu”
mysql>use vsftpdvu;
// 打开数据库“vsftpdvu”
mysql>create table users(name char(20) binary,passwd char(20) binary);
//创建“users”表
mysql>insert into users (name,passwd) values (‘test1′,’12345′);
//新建FTP用户:test1密码:12345
mysql>insert into users (name,passwd) values (‘test2′,’54321′);
//新建FTP用户:test2密码:54321
mysql>grant select on vsftpdvu.users to vsftpdguest@localhost identified by ‘789987′;
//新建一个由本地连接的mysql用户“vsftpdguest”密码为“789987”
mysql>flush privileges;
// 刷新权限设置
mysql>select * from users;
// 查看users表的数据
+——-+——–+
| name | passwd |
+——-+——–+
| test1 | 12345 |
| test2 | 54321 |
+——-+——–+
2 rows in set (0.00 sec)
mysql>quit
二、设置MySQL的PAM验证
# wget http://www.jjww.com.cn/upload/software/pam_mysql-0.5.tar.gz
# tar zxvf pam_mysql-0.5.tar.gz
# cd pam_mysql
# make
# cp pam_mysql.so /lib/security
# vi /etc/pam.d/ftp
// 新建并编辑ftp文件，加入pam_mysql的认证信息
auth required /lib/security/pam_mysql.so user=vsftpdguest passwd=789987
host=localhost db=vsftpdvu table=users usercolumn=name
passwdcolumn=passwd crypt=0
account required /lib/security/pam_mysql.so user=vsftpdguest
passwd=789987 host=localhost db=vsftpdvu table=users usercolumn=name
passwdcolumn=passwd crypt=0
// 这里要注意一下，上面其实是二行，不要搞错
注意：
crypt= n
crypt=0: 明文密码
crypt=1: 使用crpyt()函数(对应SQL数据里的encrypt()，encrypt()随机产生salt)
crypt=2: 使用MYSQL中的password()函数加密
crypt=3：表示使用md5的散列方式
# service mysqld restart // 重启mysql
三、测试vsftpd
[root@Server root]# ftp 127.0.0.1
Connected to 127.0.0.1.
220 (vsFTPd 2.0.1)
530 Please login with USER and PASS.
530 Please login with USER and PASS.
KERBEROS_V4 rejected as an authentication type
Name (127.0.0.1:root): test1
331 Please specify the password.
Password:
230 Login successful.
Remote system type is UNIX.
Using binary mode to transfer files.
ftp> pwd
257 “/”
ftp> bye
221 Goodbye.
[root@Server root]# ftp 127.0.0.1
Connected to 127.0.0.1.
220 (vsFTPd 2.0.1)
530 Please login with USER and PASS.
530 Please login with USER and PASS.
KERBEROS_V4 rejected as an authentication type
Name (127.0.0.1:root): test2
331 Please specify the password.
Password:
230 Login successful.
Remote system type is UNIX.
Using binary mode to transfer files.
ftp> pwd
257 “/”
ftp> bye
221 Goodbye.
OK！这里已全部完工，vsftpd+mysql就是这样配置的！
===========================================
下教程中的红色注明部份为输入的命令,蓝色部份为解说
=======================================================
192.168.0.2 (SSH-1.99-OpenSSH 3.5p1)
login: root
Password:
Last login: Sat Jun 25 18:03:33 2005
[root@HelixServer root]# cd /usr/
[root@HelixServer root]# wget http://www.jjww.com.cn/upload/software/rs903-linux-cn-22libc6-ia32.c.bin
—19:32:58– http://www.jjww.com.cn/upload/software/rs903-linux-cn-22libc6-ia32.c.bin
=> `rs903-linux-cn-22libc6-ia32.c.bin’
Resolvingwww.jjww.com.cn… done.
Connecting towww.jjww.com.cn[218.5.18.136]:80… connected.
HTTP request sent, awaiting response… 200 OK
Length: 13,034,504 [application/octet-stream]
57% [====================> ] 7,522,278 114.74K/s ETA 00:46
以上紫色这一部份是在linux下用wget命令下载rs903-linux-cn-22libc6-ia32.c.bin
[root@HelixServer usr]# ./rs903-linux-cn-22libc6-ia32.c.bin
-bash: ./rs903-linux-cn-22libc6-ia32.c.bin: 权限不够
[root@HelixServer usr]# chmod 775 rs903-linux-cn-22libc6-ia32.c.bin
[root@HelixServer usr]# ./rs903-linux-cn-22libc6-ia32.c.bin
Verifying archive integrity… All good.
Uncompressing Crack by ettx,Archiv and patchd by YouRDj
Extracting files for RealNetworks installation……………………………
……………………………………………………………………..
……………………………………………………………………..
……………………………………………………………………..
……………………………………………………………………..
……………………………………………………………………..
……………………………………………………………………..
………………………………………………..
Welcome to the Helix Server 9.03 (9.0.3.916) Setup for UNIX
Setup will help you get Helix Server running on your computer.
Press [Enter] to continue… [回车]
If a Helix Server license key file has been sent to you,
please enter its directory path below. If you have not
received a Helix Server license key file, then this server
WILL NOT OPERATE until a license key file is placed in
the server’s License directory. Please obtain a free
Basic Helix Server license or purchase a commercial license
from our website at http://www.real.com/. If you need
further assistance, please visit our on-line support area
at http://service.real.com/.
License Key File: []: [回车] 这里是提示你输入key的位置，这里就不要输了，因为是“非法操作”的破解版
Installation and use of Helix Server requires
acceptance of the following terms and conditions:
Press [Enter] to display the license text… [回车]
Press [Enter] to display the license text…
REALNETWORKS, INC.
END USER LICENSE AGREEMENT
HELIX(tm) BASIC SERVER FROM
REALNETWORKS(r)
REDISTRIBUTION NOT PERMITTED
Software License for Helix(tm) Basic
Server from RealNetworks(r)
IMPORTANT — READ CAREFULLY: This
RealNetworks License Agreement (“License
Agreement”) is a legal agreement between
you (either an individual or an entity)
and RealNetworks, Inc. and its suppliers
and licensors (collectively “RN”) for
RN’s Helix Basic Server, which includes
computer software and associated media
and printed materials, whether provided
in physical form or received on-line in
electronic form (“Software”). You may
install only ONE copy of the Software.
By choosing “Accept,” installing,
–More–(3%) [q] 安“q“键跳过
REALNETWORKS(r)
REDISTRIBUTION NOT PERMITTED
Software License for Helix(tm) Basic
Server from RealNetworks(r)
IMPORTANT — READ CAREFULLY: This
RealNetworks License Agreement (“License
Agreement”) is a legal agreement between
you (either an individual or an entity)
and RealNetworks, Inc. and its suppliers
and licensors (collectively “RN”) for
RN’s Helix Basic Server, which includes
computer software and associated media
and printed materials, whether provided
in physical form or received on-line in
electronic form (“Software”). You may
install only ONE copy of the Software.
By choosing “Accept,” installing,
Choose “Accept” to accept the terms of this
license agreement and continue with Helix Server setup.
If you do not accept these terms, enter “No”
and installation of Helix Server will be cancelled.
I accept the above license: [Accept]: [回车] 同意以上声明
Enter the complete path to the directory where you want
Helix Server to be installed. You must specify the full
pathname of the directory and have write privileges to
the chosen directory.
Directory: [/tmp]: /usr/helix [回车] 输入安装目录后回车
Please enter a username and password that you will use
to access the web-based Helix Server Administrator, monitors,
and live encoders:
Username []: admin [回车] 后台管理的用户
Password []: [回车] 密码
Confirm Password []: [回车] 再次输入
Please enter a port on which Helix Server will listen for
PNA connections. These connections have URLs that begin
with “pnm://”
Port [7070]: [回车] pnm的默认端口
Please enter a port on which Helix Server will listen for
RTSP connections. These connections have URLs that begin
with “rtsp://”
Port [554]: [回车] rtsp的默认端口
Please enter a port on which Helix Server will listen for
HTTP connections. These connections have URLs that begin
with “http://”
Port [80]: 8080 [回车] http的默认端口,这里最好有必要改一下,省得以后有端口冲突
Please enter a port on which Helix Server will listen for
MMS connections. These connections have URLs that begin
with “mms://”
Port [1755]: [回车] mms的默认端口
Helix Server will listen for Administrator requests on the
port shown. This port has been initialized to a random value
for security. Please verify now that this pre-assigned port
will not interfere with ports already in use on your system;
you can change it if necessary.
Port [15466]: 22222 [回车] 后台管理的端口,有必要改成你记得住的!
You have selected the following Helix Server configuration:
Admin User/Password: admin/****
Encoder User/Password: admin/****
Monitor Password: ****
RTSP Port: 554
HTTP Port: 8080
PNA Port: 7070
MMS Port: 1755
Admin Port: 22222
Destination: /usr/helix
Enter [F]inish to begin copying files, or [P]revious to go
back to the previous prompts: [F]: [回车]
Copying Helix Server files…..
Helix Server installation is complete.
If at any time you should require technical
assistance, please visit our on-line support area
at http://service.real.com/.
Cleaning up installation files…
Done.
[root@HelixServer root]# cd /usr/helix/ 进入安装后的目录
[root@HelixServer helix]# ./Bin/rmserver rmserver.cfg & 启动Helix Server服务器
[1 ]1981
Helix Server (c) 1995-2004 RealNetworks, Inc. All rights reserved.
Version: Helix Server 9.03 (9.0.3.916) (Build 29405/2723)
Platform: linux-2.2-libc6-i586-server
Using Config File: rmserver.cfg
Creating Server Space…
[root@HelixServer helix]# Server has allocated 256 megabytes of memory
Starting PID 1986, procnum 1 (timer)
Calibrating Timers…
I: xmlcfg.so.9.0 0×40ada1d0 RealNetworks XML Configuration Plugin
Starting PID 1988, procnum 3 (rmplug)
Starting PID 1989, procnum 4 (rmplug)
Starting PID 1990, procnum 5 (rmplug)
Starting PID 1991, procnum 6 (rmplug)
Starting PID 1992, procnum 7 (rmplug)
Starting PID 1993, procnum 8 (rmplug)
Starting PID 1994, procnum 9 (rmplug)
Starting PID 1995, procnum 10 (rmplug)
Starting PID 1996, procnum 11 (rmplug)
Starting PID 1997, procnum 12 (rmplug)
Starting PID 1998, procnum 13 (rmplug)
Starting PID 1999, procnum 14 (rmplug)
Starting PID 2000, procnum 15 (rmplug)
Starting PID 2001, procnum 16 (rmplug)
Starting PID 2002, procnum 17 (rmplug)
Starting PID 2003, procnum 18 (rmplug)
Starting PID 2004, procnum 19 (rmplug)
Starting PID 2005, procnum 20 (rmplug)
Starting PID 2006, procnum 21 (rmplug)
Starting PID 2007, procnum 22 (rmplug)
Starting PID 2008, procnum 23 (memreap)
Starting PID 2009, procnum 24 (memreap)
此主题相关图片如下：
在IE里面输入http://192.168.0.2:22222/admin/index.html进入后台管理
此主题相关图片如下：
全局界面
此主题相关图片如下：
打开“服务器设置”先择“媒体演示”点“realvideo”观看媒体演示
此主题相关图片如下：
正在播放
至于缓存的作用，我想我也不用再多说了，它的作用已经很明显，特别是对于信息量非常大或是全数据库页面的网站，他能很好地利用主机的内存资源，加速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”)’删除缓存
<%
‘===================================================================
‘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
