google tarzı arama nasıl?

[princeoftides]

merhabalar arkadaşlar arama sonucunda gelen sonuçlarda aranan kelime ve ya kelimelerin bold olarak görüntülenmesi konusunda yardımlarınızı bekliyorum. ilgilenen arkadaşlara şimdiden teşekkürler.

[sadettinpolat]

vbscriptte

Kod: Tümünü seç

Function Renklendir(Kelime)
Ara2 = Replace(Ara2,"*","")
Ara2 = Replace(Ara2,"?","")
If not instr(1,Kelime,Ara2,1)<=0 Then
	Temp = Replace(Kelime,Ara2,"<font class=ApiInfoAranan>" & mid(kelime,instr(1,Kelime,Ara2,1),len(Ara2)) & "</font>",1,-1,1)
	else
	Temp = Kelime
End if
'Temp = Replace(chr(13),Temp,"<br>")
Renklendir = (Temp)
end Function %>

zamanın birinde bu işlem için böyle bir kod yazmışım.
aranan ifadenin classını değiştiriyordu. classın özellikleri alıyordu.

[salvation]

Bende şu şekilde yapıyordum, google daki gibi sarıyla boyuyor

Kod: Tümünü seç

	$aranan = 'deneme';
	$tum_yazi = 'bu bir deneme yazıdır';
	echo str_replace($aranan,"<span style=\"background-color: yellow\"><b>".$aranan."</b></span>",$tum_yazi); 

[princeoftides]

çok teşekkür ederim her iki arkadaşada ilginiz için.