[匯入]ASP常用函數:LFill() RFill()

<%
'功能:在一個字串前面補全另一字串
'來源:http://jorkin.reallydo.com/article.asp?id=452

Public Function LFill(ByVal sString, ByVal sStr)
    Dim i, iStrLen : iStrLen = Len(sStr&"")
    For i = iStrLen To 1 Step -1
        If Right(sStr, i ) = Left(sString, i ) Then Exit For
    Next
    LFill = Left(sStr, iStrLen - i) & sString
End Function
%>

<%
'功能:在一個字串後面補全另一字串
'來源:http://jorkin.reallydo.com/article.asp?id=452

Public Function RFill(ByVal sString, ByVal sStr)
    Dim i, iStrLen : iStrLen = Len(sStr&"")
    For i = iStrLen To 1 Step -1
        If Left(sStr, i) = Right(sString, i) Then Exit For
    Next
    RFill = sString & Mid(sStr, i + 1)
End Function
%>

例如:
<%=RFill(LFill("www.reallydo.com/article.asp","http://"),"article.asp?id=452")%>

文章來源:http://Jorkin.Reallydo.Com/default.asp?id=452