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


            复制代码 代码如下:<%  '功能:在一个字符串前后补全另一字符串  '来源:http://jorkin.reallydo.com/article.asp?id=452  Public Function Fill(ByVal sString, ByVal sStr)      Fill = RFill(LFill(sString, sStr), sStr )  End Function  %> 复制代码 代码如下:<%  '功能:在一个字符串前面补全另一字符串  '来源:http://jorkin.reallydo.com/article.asp?id=452  Public Function LFill(ByVal sString, ByVal sStr)      Dim 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  %> 复制代码 代码如下:<%  '功能:在一个字符串后面补全另一字符串  Public Function RFill(ByVal sString, ByVal sStr)      Dim 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.zwyuanma.com/article.asp","http://"),"article.asp?id=452")%>