asp字符串连接符&、多个字符串相加、字符串拼接类

<%gettj="<a href=""https://www.jb51.net/tools/zhengze.html"" title=""正则表达式30分钟入门教程"" target=""_blank"">正则表达式30分钟入门教程</a>"&vbcrlfgettj=gettj&"<a href=""https://www.jb51.net/article/181099.htm"" title=""揭开正则表达式的神秘面纱(regexlab出品)"" target=""_blank"">揭开正则表达式的神秘面纱(regexlab出品)</a>"&vbcrlfgettj=gettj&"<a href=""http://tools.jb51.net/regex/javascript/"" title=""JavaScript正则表达式在线测试工具"" target=""_blank"">JavaScript正则表达式在线测试工具</a>"&vbcrlfgettj=gettj&"<a href=""https://www.jb51.net/tools/regexsc.htm"" title=""正则表达式速查表"" target=""_blank"">正则表达式速查表</a>"&vbcrlfgettj=gettj&"<a href=""https://www.jb51.net/tools/regex.htm"" title=""常用正则表达式"" target=""_blank"">常用正则表达式</a>"&vbcrlfresponse.write gettj%>

<%Class appendStringPrivate arrIndex, arrUbound, arrList()Private Sub Class_Initialize()‘分配10长度redim arrList(10)‘当前长度arrIndex = 0'每次扩展长度arrUbound = 10End SubPrivate Sub Class_Terminate()'释放所有数组，再次使用时，需要重新分配Erase arrListEnd Sub‘设置值并动态扩展长度Public Default Sub Add(value)arrList(arrIndex) = valuearrIndex = arrIndex + 1if arrIndex > arrUbound thenarrUbound = arrUbound + 50redim preserve arrList(arrUbound)end ifEnd Sub'返回字符串Public Function getString(splitString)redim preserve arrList(arrIndex - 1)getString = join(arrList,splitString)End FunctionEnd Class'调用方法Set StringClass = New appendStringStringClass.add("我")StringClass.add("爱")StringClass.add("编")StringClass.add("程")OutputString = StringClass.getString("")'打印结果是：我爱编程%>