www.pudn.com > sale.rar > findok.inc

<% 
function findok(str,sub_str) 
 
	dim position 
	dim ls_position 
	dim leftstr 
	dim rightstr 
	dim outputstr 
	dim result_sure() 
	dim result_del() 
	dim i 
	i=0 
	dim j 
	j=0 
 
	position=0 
	ls_position=len(str) 
 
	do while ls_position<>0 
		i=i+1 
		redim result_sure(i) 
		position=instr(position+1,str,sub_str,1) 
		if position>0 then 
			leftstr=left(str,position-1) 
			rightstr=right(str,ls_position-position+1-len(sub_str)) 
			str=rightstr 
			ls_position=len(str) 
			position=0 
			outputstr=leftstr 
			result_sure(i)=outputstr 
		else 
			ls_position=0 
			outputstr=str 
			result_sure(i)=outputstr 
		end if 
		'response.write "
" 
		'response.write outputstr & "
" & i 
	loop 
 
end function 
%>