www.pudn.com > sale.rar > format1.chs

<% 
function formatstr(str,sub_str,rp_str) 
	dim position 
	dim ls_position 
	dim leftstr 
	dim rightstr 
	dim lsstr 
	dim flag 
	flag=false 
 
	position=0 
	ls_position=len(str) 
	do while ls_position<>0 
		position=instr(position+1,str,sub_str,1) 
		if position>0 then 
			leftstr=left(str,position-1) 
			rightstr=right(str,ls_position-position) 
			lsstr=left(rightstr,1) 
			str=leftstr & rp_str & rightstr 
			ls_position=len(str) 
			position=position+len(rp_str) 
		else 
			ls_position=0 
		end if 
	loop 
	formatstr=str 
end function 
%>