La copie de code est la suivante:
<%
'Fonction: terminer une autre chaîne avant et après une chaîne
'Source: http://jorkin.reallodo.com/article.asp?id=452
PublicFunctionFill (BrevalSstring, Byvalsstr)
Rempli = rfill (lfill (sstring, sstr), sstr)
Finition de fin
%>
La copie de code est la suivante:
<%
'Fonction: complétez une autre chaîne devant une chaîne
'Source: http://jorkin.reallodo.com/article.asp?id=452
PublicFonctionlfill (BrevalSstring, Byvalsstr)
Dimistrlen: istlen = len (sstr & "")
Fori = istlento1step-1
Ifright (sstr, i) = gauche (sString, i) alorsxitfor
Suivant
Lfill = Left (sstr, istlen-i) & sString
Finition de fin
%>
La copie de code est la suivante:
<%
'Fonction: complétez une autre chaîne après une chaîne
PublicFonctionrfill (BrevalSstring, ByValsstr)
Dimistrlen: istlen = len (sstr & "")
Fori = istlento1step-1
Ifleft (sstr, i) = droite (sString, i) alorsxitfor
Suivant
Rfill = sstring & mid (sstr, i + 1)
Finition de fin
%>
Par exemple:
<% = Rfill (lfill ("www.vevb.com/article.asp", "http: //"), "article.asp? Id = 452")%>