asp下實(shí)現(xiàn)字符串的補(bǔ)充fill()
更新時(shí)間:2008年02月15日 16:10:58 作者:
在一個(gè)字符串前后補(bǔ)全另一字符串,在一個(gè)字符串前面補(bǔ)全另一字符串,在一個(gè)字符串后面補(bǔ)全另一字符串
復(fù)制代碼 代碼如下:
<%
'功能:在一個(gè)字符串前后補(bǔ)全另一字符串
'來源:http://jorkin.reallydo.com/article.asp?id=452
Public Function Fill(ByVal sString, ByVal sStr)
Fill = RFill(LFill(sString, sStr), sStr )
End Function
%>
復(fù)制代碼 代碼如下:
<%
'功能:在一個(gè)字符串前面補(bǔ)全另一字符串
'來源: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
%>
復(fù)制代碼 代碼如下:
<%
'功能:在一個(gè)字符串后面補(bǔ)全另一字符串
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.dhdzp.com/article.asp","http://"),"article.asp?id=452")%>
相關(guān)文章
JavaScript在ASP頁(yè)面中實(shí)現(xiàn)掩碼文本框效果代碼
在網(wǎng)頁(yè)中輸日期、時(shí)間、IP地址等需要一定的格式限制,否則將會(huì)程序?qū)?huì)很難和程序溝通2012-08-08
asp下tag的實(shí)現(xiàn),簡(jiǎn)單介紹與部分代碼
asp下tag的實(shí)現(xiàn),簡(jiǎn)單介紹與部分代碼...2007-03-03
asp中記錄集對(duì)象的getrows和getstring用法分析
asp中記錄集對(duì)象的getrows和getstring用法分析,需要的朋友可以參考下2012-03-03
asp之自動(dòng)閉合HTML/ubb標(biāo)簽函數(shù) 附簡(jiǎn)單注釋
在用到編輯器時(shí),就會(huì)碰到一點(diǎn),那就是標(biāo)簽的閉合問題,這個(gè)問題非常嚴(yán)峻,因?yàn)檫@可能會(huì)導(dǎo)致網(wǎng)頁(yè)顯示的整體樣式受到破壞。2010-04-04
完美解決PJ的Cookies保存時(shí)限問題!可選擇記錄登陸時(shí)長(zhǎng)!
完美解決PJ的Cookies保存時(shí)限問題!可選擇記錄登陸時(shí)長(zhǎng)!...2007-02-02
ASP:ActiveX不能創(chuàng)建Scripting.FileSystemObject對(duì)象解決辦法
關(guān)于ActiveX不能創(chuàng)建Scripting.FileSystemObject對(duì)象的類似問題,大體上解決辦法都是類似的,主要是思想要清晰:首先考慮組件注冊(cè)問題,其次是組件權(quán)限問題,如果服務(wù)器配置沒有問題的話,那就仔細(xì)檢查一下你的程序源碼吧2011-11-11
asp實(shí)現(xiàn)防止從外部提交數(shù)據(jù)的三種方法腳本之家補(bǔ)充
這篇文章主要介紹了asp實(shí)現(xiàn)防止從外部提交數(shù)據(jù)的三種方法,需要的朋友可以參考下2007-11-11

