<% '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '快速字符串连接类 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '名称：Class_FastString '来源：http://www.jansfreeware.com '整理：qihangnet '更新：2005年6月15日 '作用：高效地进行字符串连接，比 str = str & "abc"的方法快很多 '授权：免费使用 '%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Class Class_FastString '************************************ '变量定义 '************************************ 'index --- 字符串数组的下标 'ub ------ 用于调整数组度数的整数变量 'ar() ---- 字符串数组 Private index, ub, ar() '************************************ '实例 初始化/终止 '************************************ Private Sub Class_Initialize() Redim ar(50) index = 0 ub = 49 End Sub Private Sub Class_Terminate() Erase ar End Sub '************************************ '事件 '************************************ '默认事件，添加字符串 Public Default Sub Add(value) ar(index) = value index = index+1 If index>ub Then ub = ub + 50 Redim Preserve ar(ub) End if End Sub '************************************ '方法 '************************************ '返回连接后的字符串 Public Function Dump Redim preserve ar(index-1) Dump = join(ar,"") '关键所在哦^_^ End Function End class %>

　　推荐阅读

　　asp编译成dll-图形化教程第1/2页

1 。打开您的Microsoft Visual Basic: 点击确定,以下就按照蓝色的数字步骤. 2 。修改工程名和类模块的名称: 点3,把4改成bi,再点5: 6处改成cjjer. 3。增加到引用asp： 点击引用,然后选择其中的Microsoft Acti>>>详细阅读

本文标题：一个asp快速字符串连接类

地址：http://www.17bianji.com/kaifa2/ASP/33145.html

 1/2    1