<%gettj="<a href=""http://m.survivalescaperooms.com/tools/zhengze.html"" title=""正則表達式30分鐘入門教程"" target=""_blank"">正則表達式30分鐘入門教程</a>"&vbcrlfgettj=gettj&"<a href=""http://m.survivalescaperooms.com/article/181099.htm"" title=""揭開正則表達式的神秘面紗(regexlab出品)"" target=""_blank"">揭開正則表達式的神秘面紗(regexlab出品)</a>"&vbcrlfgettj=gettj&"<a href=""http://tools.VeVB.COm/regex/javascript/"" title=""JavaScript正則表達式在線測試工具"" target=""_blank"">JavaScript正則表達式在線測試工具</a>"&vbcrlfgettj=gettj&"<a href=""http://m.survivalescaperooms.com/tools/regexsc.htm"" title=""正則表達式速查表"" target=""_blank"">正則表達式速查表</a>"&vbcrlfgettj=gettj&"<a href=""http://m.survivalescaperooms.com/tools/regex.htm"" title=""常用正則表達式"" target=""_blank"">常用正則表達式</a>"&vbcrlfresponse.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 appendStringStringClass.add("我")StringClass.add("愛")StringClass.add("編")StringClass.add("程")OutputString = StringClass.getString("")		'打印結果是：我愛編程%>