Salinan kode adalah sebagai berikut:
<%
Operasi ClassString
'' **************************************************************************
'' '' @Function Deskripsi: Tukar string ke array char
'' '' @parameter Deskripsi: -str [string]: string yang perlu dikonversi
'' '' @Return value:-[array] char tipe array
'' **************************************************************************
PublicFunction Tochararray (BYVALSTR)
redimchararray (len (str))
fori = 1tolen (str)
Chararray (I-1) = mid (str, i, 1)
Berikutnya
Tochararray = Chararray
fungsi endfungsi
'' **************************************************************************
'' '' @Function Deskripsi: Konversi array menjadi string
'' '' @parameter Deskripsi: -arr [array]: data yang perlu dikonversi
'' '' @Return value:-[String] String
'' **************************************************************************
PublicFunctionArrayToString (Byvalarr)
fori = 0toubound (arr)
strobj = strobj & arr (i)
Berikutnya
ArrayToString = Strobj
fungsi endfungsi
'' **************************************************************************
'' '' @Function Deskripsi: Periksa apakah string sumber STR dimulai dengan chars
'' '' @parameter Deskripsi: -str [String]: Source String
'' '' @parameter Deskripsi: -chars [String]: Karakter/String Perbandingan
'' '' @Return value:-[bool]
'' **************************************************************************
PublicFunctionStartswith (BYVALSTR, Chars)
ifleft (str, len (chars)) = charsthen
startswith = true
kalau tidak
startswith = false
endif
fungsi endfungsi
'' **************************************************************************
'' '' @Function Deskripsi: Periksa apakah string sumber yang diakhiri dengan chars
'' '' @parameter Deskripsi: -str [String]: Source String
'' '' @parameter Deskripsi: -chars [String]: Karakter/String Perbandingan
'' '' @Return value:-[bool]
'' **************************************************************************
PublicFunctionEndswith (BYVALSTR, Chars)
ifright (str, len (chars)) = charsthen
endswith = true
kalau tidak
endswith = false
endif
fungsi endfungsi
'' **************************************************************************
'' '' @Function Deskripsi: Salin n string