<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'快速字符串连接类
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'名称：Class_FastString
'来源：http://www.jansfreeware.com
'整理：qihangnet
'更新：2005年6月15日
'作用：高效地进行字符串连接，比str=str&"abc"的方法快很多
'授权：免费使用
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ClassClass_FastString
'************************************
'变量定义
'************************************
'index---字符串数组的下标
'ub------用于调整数组度数的整数变量
'ar()----字符串数组
Privateindex,ub,ar()
'************************************
'实例初始化/终止
'************************************
PrivateSubClass_Initialize()
Redimar(50)
index=0
ub=49
EndSub
PrivateSubClass_Terminate()
Erasear
EndSub
'************************************
'事件
'************************************
'默认事件，添加字符串
PublicDefaultSubAdd(value)
ar(index)=value
index=index+1
Ifindex>ubThen
ub=ub+50
RedimPreservear(ub)
Endif
EndSub
'************************************
'方法
'************************************
'返回连接后的字符串
PublicFunctionDump
Redimpreservear(index-1)
Dump=join(ar,"")'关键所在哦^_^
EndFunction
Endclass
%>
【一个asp快速字符串连接类】相关文章：