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

　　%>