%
gettj="a href=""https://www.jb51.net/tools/zhengze.html"" title=""正則表達式30分鐘入門教程"" target=""_blank"">正則表達式30分鐘入門教程/a>"vbcrlf
gettj=gettj"a href=""https://www.jb51.net/article/181099.htm"" title=""揭開正則表達式的神秘面紗(regexlab出品)"" target=""_blank"">揭開正則表達式的神秘面紗(regexlab出品)/a>"vbcrlf
gettj=gettj"a href=""http://tools.jb51.net/regex/javascript/"" title=""JavaScript正則表達式在線測試工具"" target=""_blank"">JavaScript正則表達式在線測試工具/a>"vbcrlf
gettj=gettj"a href=""https://www.jb51.net/tools/regexsc.htm"" title=""正則表達式速查表"" target=""_blank"">正則表達式速查表/a>"vbcrlf
gettj=gettj"a href=""https://www.jb51.net/tools/regex.htm"" title=""常用正則表達式"" target=""_blank"">常用正則表達式/a>"vbcrlf
response.write gettj
%>

%
Class appendString
	Private arrIndex, arrUbound, arrList()
	
	Private Sub Class_Initialize()
		‘分配10長度
		redim arrList(10)
		‘當前長度
		arrIndex = 0
		'每次擴展長度
		arrUbound = 10
	End Sub
	
	Private Sub Class_Terminate()
		'釋放所有數組，再次使用時，需要重新分配
		Erase arrList
	End Sub
	
	‘設置值并動態擴展長度
	Public Default Sub Add(value)
		arrList(arrIndex) = value
		arrIndex = arrIndex + 1
		if arrIndex > arrUbound then
			arrUbound = arrUbound + 50
			redim preserve arrList(arrUbound)
		end if
	End Sub
	
	'返回字符串
	Public Function getString(splitString)
		redim preserve arrList(arrIndex - 1)
		getString = join(arrList,splitString)
	End Function	

End Class

'調用方法
Set StringClass = New appendString
StringClass.add("我")
StringClass.add("愛")
StringClass.add("編")
StringClass.add("程")
OutputString = StringClass.getString("")		'打印結果是：我愛編程
%>