An ASP fast string connection class

String

<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' Quick string Connection class
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' Name: class_faststring
' Source:http://www.jansfreeware.com
' Finishing: Qihangnet
' Updated: June 15, 2005
' function: Efficient string concatenation, much faster than str = str & ' abc ' method
' Authorization: Free use
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Class class_faststring

'************************************
' Variable definition
'************************************
' Index---Subscript of an array of strings
' UB------integer variable used to adjust the degree of the array
' Ar ()----string array

Private index, UB, AR ()

'************************************
' Instance initialization/termination
'************************************

Private Sub Class_Initialize ()
Redim AR (50)
index = 0
UB = 49
End Sub

Private Sub Class_Terminate ()
Erase AR
End Sub

'************************************
' Events
'************************************

' Default event, adding string
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

'************************************
' Method
'************************************

' Returns the concatenated string
Public Function Dump
Redim Preserve AR (index-1)
Dump = Join (AR, "") ' Key "Oh ^_^
End Function

End Class
%>