asp下实现字符串的补充fill()

代码如下:

<%  <br />
'功能:在一个字符串前后补全另一字符串  <br />
'来源:http://jorkin.reallydo.com/article.asp?id=452  <br />
<br />
Public Function Fill(ByVal sString, ByVal sStr)  <br />
    Fill = RFill(LFill(sString, sStr), sStr )  <br />
End Function  <br />
%> <br />

代码如下:

<br />
<%  <br />
'功能:在一个字符串前面补全另一字符串  <br />
'来源:http://jorkin.reallydo.com/article.asp?id=452  <br />
<br />
Public Function LFill(ByVal sString, ByVal sStr)  <br />
    Dim iStrLen : iStrLen = Len(sStr&"")  <br />
    For i = iStrLen To 1 Step -1  <br />
        If Right(sStr, i ) = Left(sString, i ) Then Exit For  <br />
    Next  <br />
    LFill = Left(sStr, iStrLen - i) & sString  <br />
End Function  <br />
%> <br />

代码如下:

<br />
<%  <br />
'功能:在一个字符串后面补全另一字符串  <br />
<br />
Public Function RFill(ByVal sString, ByVal sStr)  <br />
    Dim iStrLen : iStrLen = Len(sStr&"")  <br />
    For i = iStrLen To 1 Step -1  <br />
        If Left(sStr, i) = Right(sString, i) Then Exit For  <br />
    Next  <br />
    RFill = sString & Mid(sStr, i + 1)  <br />
End Function  <br />
%> <br />

例如:
<%=RFill(LFill("www.51frw.cn/article.asp","http://"),"article.asp?id=452")%>
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！