การคัดลอกรหัสมีดังนี้:
-
'ฟังก์ชั่น: กรอกสตริงอื่นก่อนและหลังหนึ่งสตริงหนึ่ง
'ที่มา: http://jorkin.realllydo.com/article.asp?id=452
PublicFunctionFill (byvalsstring, byvalsstr)
fill = rfill (lfill (sstring, sstr), sstr)
endfunction
-
การคัดลอกรหัสมีดังนี้:
-
'ฟังก์ชั่น: กรอกสตริงอื่นที่อยู่ด้านหน้าของหนึ่งสตริง
'ที่มา: http://jorkin.realllydo.com/article.asp?id=452
Publicfunctionlfill (byvalsstring, byvalsstr)
Dimistrlen: Istrlen = Len (SSTR & "")
fori = istrlento1step-1
ifright (sstr, i) = ซ้าย (sstring, i) thenexitfor
ต่อไป
LFILL = ซ้าย (SSTR, ITRLEN-I) และ SSTRING
endfunction
-
การคัดลอกรหัสมีดังนี้:
-
'ฟังก์ชั่น: กรอกสตริงอื่นหลังจากหนึ่งสตริงหนึ่ง
PublicFunctionRfill (byvalsstring, byvalsstr)
Dimistrlen: Istrlen = Len (SSTR & "")
fori = istrlento1step-1
ifleft (sstr, i) = ขวา (sstring, i) thenexitfor
ต่อไป
rfill = sstring & mid (sstr, i+1)
endfunction
-
ตัวอย่างเช่น:
<%= rfill (lfill ("www.vevb.com/article.asp", "http: //"), "article.asp? id = 452")%>