コードコピーは次のとおりです。
<％
'関数：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"）％>