Salinan kode adalah sebagai berikut:
<%
'Fungsi: Lengkapi string lain sebelum dan sesudah satu string
'Sumber: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionFill (Byvalsstring, Byvalsstr)
Isi = rfill (lfill (sstring, sstr), sstr)
Fungsi endfungsi
%>
Salinan kode adalah sebagai berikut:
<%
'Fungsi: Lengkapi string lain di depan satu string
'Sumber: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionLFill (Byvalsstring, Byvalsstr)
Dimistrlen: istrlen = len (sstr & "")
Fori = istrlento1step-1
Ifright (sstr, i) = left (sString, i) kemudian exitfor
Berikutnya
Lfill = kiri (sstr, istrlen-i) & sstring
Fungsi endfungsi
%>
Salinan kode adalah sebagai berikut:
<%
'Fungsi: Lengkapi string lain setelah satu string
PublicFunctionRFill (Byvalsstring, Byvalsstr)
Dimistrlen: istrlen = len (sstr & "")
Fori = istrlento1step-1
Ifleft (sstr, i) = right (sString, i) kemudian exitfor
Berikutnya
Rfill = sstring & mid (sstr, i+1)
Fungsi endfungsi
%>
Misalnya:
<%= Rfill (lfill ("www.vevb.com/article.asp", "http: //"), "artikel.asp? Id = 452")%>