asp下实现字符串的补充fill()
更新时间：2008年02月15日 16:10:58 作者：
在一个字符串前后补全另一字符串,在一个字符串前面补全另一字符串,在一个字符串后面补全另一字符串
复制代码 代码如下:
<%
'功能:在一个字符串前后补全另一字符串
'来源: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.jb51.net/article.asp","http://"),"article.asp?id=452")%>
相关文章
在网页中输日期、时间、IP地址等需要一定的格式限制，否则将会程序将会很难和程序沟通2012-08-08
asp下tag的实现,简单介绍与部分代码...2007-03-03
asp中记录集对象的getrows和getstring用法分析
asp中记录集对象的getrows和getstring用法分析，需要的朋友可以参考下2012-03-03
GUID在许多时候做为唯一标识符都很方便，但是在ASP里并没有现成的函数来创建GUID，其实可以使用Scriptlet的类型库来创建一个GUID，2008-05-05
在用到编辑器时，就会碰到一点，那就是标签的闭合问题，这个问题非常严峻，因为这可能会导致网页显示的整体样式受到破坏。2010-04-04
完美解决PJ的Cookies保存时限问题!可选择记录登陆时长!
完美解决PJ的Cookies保存时限问题!可选择记录登陆时长!...2007-02-02
ASP:ActiveX不能创建Scripting.FileSystemObject对象解决办法
关于ActiveX不能创建Scripting.FileSystemObject对象的类似问题，大体上解决办法都是类似的，主要是思想要清晰：首先考虑组件注册问题，其次是组件权限问题，如果服务器配置没有问题的话，那就仔细检查一下你的程序源码吧2011-11-11
asp身份证验证代码函数...2007-11-11
这篇文章主要介绍了asp实现防止从外部提交数据的三种方法,需要的朋友可以参考下2007-11-11
asp get和post数据接收过滤函数，一些为了安全2009-02-02
最新评论