Die Codekopie lautet wie folgt:
<%
'Funktion: Füllen Sie eine andere Zeichenfolge vor und nach einer Zeichenfolge aus
'Quelle: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionFill (Byvalsstring, Byvalsstr)
FILL = RFILL (LFILL (SSTRING, SSTR), SSTR)
Endfunktion
%>
Die Codekopie lautet wie folgt:
<%
'Funktion: Füllen Sie eine andere Zeichenfolge vor einer Zeichenfolge aus
'Quelle: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionlFill (Byvalsstring, Byvalsstr)
DiMistren: istrlen = len (SSTR & "")
Fei = iStrlento1step-1
IFright (SSTR, i) = links (SSTRING, I) THEMEXITFOR
Nächste
Lfill = links (SSTR, Istrlen-I) & SSTRING
Endfunktion
%>
Die Codekopie lautet wie folgt:
<%
'Funktion: Vervollständigen Sie eine andere Zeichenfolge nach einer Zeichenfolge
PublicFunctionrfill (Byvalsstring, Byvalsstr)
DiMistren: istrlen = len (SSTR & "")
Fei = iStrlento1step-1
Ifleft (sstr, i) = rechts (SSTRING, I) THEEXITFOR
Nächste
Rfill = SSTRING & MID (SSTR, I+1)
Endfunktion
%>
Zum Beispiel:
<%= Rfill (lFill ("www.vevb.com/article.asp", "http: //"), "article.asp? Id = 452")%>