[导入]ASP常用函数:LFill() RFill()
2008-02-01 10:52
567 查看
<%
'功能:在一个字符串前面补全另一字符串
'来源: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
'功能:在一个字符串前面补全另一字符串
'来源: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
相关文章推荐
- [导入]ASP常用函数:HTMLFilter()
- [导入]ASP常用函数:FormatDate()
- [导入]ASP常用函数:PCase()
- [导入]ASP常用函数:Str4Js()
- [导入]ASP常用函数:getIMG()
- [导入]ASP常用函数:InArray2()
- [导入]ASP常用函数:Del()
- [导入]ASP常用函数:FormatDate()
- [导入]ASP常用函数:PCase()
- [导入]ASP常用函数:LastDay()
- [导入]ASP常用函数:NotInStr()
- [导入]ASP常用函数:getXMLDOM()
- [导入]Asp.NET常用函数
- [导入]ASP.NET常用函数
- [导入]ASP常用函数:InArray()
- [导入]ASP常用函数:LastDay()
- [导入]ASP常用函数:SortArray2()
- [导入]ASP.NET常用函数
- [导入]ASP常用函数:InArray()
- [导入]ASP常用函数:LoadFromFile()