코드 사본은 다음과 같습니다.
<%
'기능 : 한 문자열 전후에 다른 문자열을 완료하십시오
'출처 : 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) = 왼쪽 (sstring, i) thenexitfor
다음
lfill = 왼쪽 (sstr, istrlen-i) & sstring
최종 기능 장애
%>
코드 사본은 다음과 같습니다.
<%
'기능 : 한 문자열 이후에 다른 문자열을 완료하십시오
PublicFunctionRfill (ByValSstring, ByValsstr)
dimistrlen : istrlen = len (sstr & "")
fori = istrlento1step-1
ifleft (sstr, i) = 오른쪽 (sstring, i) thenexitfor
다음
rfill = sstring & mid (sstr, i+1)
최종 기능 장애
%>
예를 들어:
<%= rfill (lfill ( "www.vevb.com/article.asp", "http : //"), "article.asp? id = 452")%>