一个asp快速字符串连接类技巧

<%Z81中国设计秀
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Z81中国设计秀
'快速字符串连接类Z81中国设计秀
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Z81中国设计秀
'名称：Class_FastStringZ81中国设计秀
'来源：http://www.jansfreeware.comZ81中国设计秀
'整理：qihangnetZ81中国设计秀
'更新：2005年6月15日Z81中国设计秀
'作用：高效地进行字符串连接，比 str = str & "abc"的方法快很多Z81中国设计秀
'授权：免费使用Z81中国设计秀
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Z81中国设计秀

Class Class_FastStringZ81中国设计秀

'************************************Z81中国设计秀
'变量定义Z81中国设计秀
'************************************Z81中国设计秀
'index --- 字符串数组的下标Z81中国设计秀
'ub ------ 用于调整数组度数的整数变量Z81中国设计秀
'ar() ---- 字符串数组Z81中国设计秀

PRivate index, ub, ar()Z81中国设计秀

'************************************Z81中国设计秀
'实例 初始化/终止Z81中国设计秀
'************************************Z81中国设计秀

Private Sub Class_Initialize()Z81中国设计秀
Redim ar(50)Z81中国设计秀
index = 0Z81中国设计秀
ub = 49Z81中国设计秀
End SubZ81中国设计秀

Private Sub Class_Terminate()Z81中国设计秀
Erase arZ81中国设计秀
End SubZ81中国设计秀

'************************************Z81中国设计秀
'事件Z81中国设计秀
'************************************Z81中国设计秀

'默认事件，添加字符串Z81中国设计秀
Public Default Sub Add(value)Z81中国设计秀
ar(index) = valueZ81中国设计秀
index = index+1Z81中国设计秀
If index>ub ThenZ81中国设计秀
ub = ub + 50Z81中国设计秀
Redim Preserve ar(ub)Z81中国设计秀
End ifZ81中国设计秀
End SubZ81中国设计秀

'************************************Z81中国设计秀
'方法Z81中国设计秀
'************************************Z81中国设计秀

'返回连接后的字符串Z81中国设计秀
Public Function DumpZ81中国设计秀
Redim preserve ar(index-1)Z81中国设计秀
Dump = join(ar,"") '关键所在哦^_^Z81中国设计秀
End FunctionZ81中国设计秀

End classZ81中国设计秀
%>Z81中国设计秀