Кода -копия выглядит следующим образом:
<%
'Function: заполните другую строку до и после одной строки
'Источник: http://jorkin.reallydo.com/article.asp?id=452
PublicFunctionFill (ByvalsString, Byvalsstr)
Fill = rfill (lfill (sstring, sstr), sstr)
Конечная функция
%>
Кода -копия выглядит следующим образом:
<%
'Функция: заполните другую строку перед одной строкой
'Источник: http://jorkin.reallydo.com/article.asp?id=452
Publicfunctionlfill (byvalsstring, byvalsstr)
Dimistrlen: Istrlen = Len (Sstr & "")
Fori = istrlento1step-1
Ifright (sstr, i) = Left (sstring, i) ThenExitfor
Следующий
LFILL = слева (SSTR, ISTRLEN-I) и SSTRING
Конечная функция
%>
Кода -копия выглядит следующим образом:
<%
'Function: заполните другую строку после одной строки
Publicfunctionrfill (byvalsstring, byvalsstr)
Dimistrlen: Istrlen = Len (Sstr & "")
Fori = istrlento1step-1
Ifleft (sstr, i) = right (sstring, i) theneexitfor
Следующий
Rfill = sstring & mid (sstr, i+1)
Конечная функция
%>
Например:
<%= Rfill (lfill ("www.vevb.com/article.asp", "http: //"), "article.asp? Id = 452")%>