複製代碼代碼如下:
<%
'功能:在一個字符串前後補全另一字符串
'來源: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")%>