本文在此基礎上進行了一些添加，加了幾個適合中文網站的FUNCTION進去，可能還有些沒有補充進去，有感興趣的朋友可以再在此基礎上加一點FUNCTION進去，不過可別忘記分享一下！   <%
   class StringOperations   '***********************************************************************
   '' @功能說明: 把字符串換為char型數組
   '' @參數說明:  - str [string]: 需要轉換的字符串
   '' @返回值:   - [Array] Char型數組
   '************************************************************************
    public function toCharArray(byVal str)
     redim charArray(len(str))
     for i = 1 to len(str)
   charArray(i-1) = Mid(str,i,1)
     next
     toCharArray = charArray
    end function
 
    '****************************************************************************
    '' @功能說明: 把一個數組轉換成一個字符串
    '' @參數說明:  - arr [Array]: 需要轉換的數據
    '' @返回值:   - [string] 字符串
    '****************************************************************************
    public function arrayToString(byVal arr)
     for i = 0 to UBound(arr)
      strObj = strObj & arr(i)
     next
     varrayToString = strObj
    end function
（出處：pconline）