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.jb51.net/article.asp","http://"),"article.asp?id=452")%>

rs.getstring的方法GetString的作用是：以字符串的形式返回指定的记录集。可以使用这个方法向ASP文件中添加HTML表格。getstring 方法语法 Set str=objRecordset.GetString(format,n,coldel,rowdel,nullexpr) >>>详细阅读

本文标题：asp下实现字符串的补充fill()

地址：http://www.17bianji.com/kaifa2/ASP/32315.html

1/2 1