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

asp中使用&实现字符串的连接

简单字符串连接

response.write "www.zzvips.com"&"服务器之家"

多个字符串连接

<%
gettj="<a href=""http://www.zzvips.com/bc/asp/"" vb" id="highlighter_434619"> ? <% 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("")        '打印结果是：我爱编程 %>
<%
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("")        '打印结果是：我爱编程
%>