asp下實現字符串的補充fill()

複製代碼代碼如下:

<%

'功能:在一個字符串前後補全另一字符串

'來源:http://jorkin.reallydo.com/article.asp?id=452

PublicFunctionFill(ByValsString,ByValsStr)

Fill=RFill(LFill(sString,sStr),sStr)

EndFunction

%>

複製代碼代碼如下:

<%

'功能:在一個字符串前面補全另一字符串

'來源:http://jorkin.reallydo.com/article.asp?id=452

PublicFunctionLFill(ByValsString,ByValsStr)

DimiStrLen:iStrLen=Len(sStr&"")

Fori=iStrLenTo1Step-1

IfRight(sStr,i)=Left(sString,i)ThenExitFor

Next

LFill=Left(sStr,iStrLen-i)&sString

EndFunction

%>

複製代碼代碼如下:

<%

'功能:在一個字符串後面補全另一字符串

PublicFunctionRFill(ByValsString,ByValsStr)

DimiStrLen:iStrLen=Len(sStr&"")

Fori=iStrLenTo1Step-1

IfLeft(sStr,i)=Right(sString,i)ThenExitFor

Next

RFill=sString&Mid(sStr,i+1)

EndFunction

%>

例如:

<%=RFill(LFill("www.Vevb.com/article.asp","http://"),"article.asp?id=452")%>