コードコピーは次のとおりです。
<%
'関数:1つの文字列の前後に別の文字列を完成させます
'出典:http://jorkin.reallydo.com/article.asp?id=452
publicFunctionFill(byvalsString、byvalsStr)
fill = rfill(lfill(sstring、sstr)、sstr)
エンド機能
%>
コードコピーは次のとおりです。
<%
'関数:1つの文字列の前に別の文字列を完成させます
'出典: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 = left(sstr、istrlen-i)&sstring
エンド機能
%>
コードコピーは次のとおりです。
<%
'関数:1つの文字列の後に別の文字列を完成させます
publicFunctionRfill(byvalsString、byvalsStr)
Dimistrlen:ISTRLEN = LEN(SSTR& "")
fori = ISTRLENTO1STEP-1
ifleft(sstr、i)= right(sstring、i)thenexitfor
次
rfill = sstring&mid(sstr、i+1)
エンド機能
%>
例えば:
<%= rfill(lfill( "www.vevb.com/article.asp"、 "http://")、 "article.asp?id = 452")%>