traversingtxt.asp

asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内不带任何广告代码 弥补了ASP相对与PHP的功能缺陷

<%
Dim TraveRsingTxtNumber
TraveRsingTxtNumber = 1
FunCtion TraveRsingTxt(Nu,Text,Txt)
	TraveRsingTxtNumbers = Instr(Nu,Text,Txt)
	If TraveRsingTxtNumbers>1 Then
		TraveRsingTxt = Mid(Text,TraveRsingTxtNumber,TraveRsingTxtNumbers-TraveRsingTxtNumber)
		TraveRsingTxtNumber = TraveRsingTxtNumbers + 1
	Else
		TraveRsingTxt = Mid(Text,Instrrev(Text,Txt)+1)
		TraveRsingTxtNumbers = 0
	End If
End FunCtion

FunCtion TraveRsingTxts(Nu,Text,Txt)
	StartI = Instr(Nu,Text,Txt)
	If StartI>1 Then
		TraveRsingTxts = TraveRsingTxts + 1 + TraveRsingTxts(StartI+1,Text,Txt)
	Else
		TraveRsingTxts = TraveRsingTxts + 1
	End If
End FunCtion
%>