yau adam ekşideki gibi demiş. kabaca kod şöyle.. anlatıyorum..
1)entry girilen bölüm.
<form action="gerekli yere.asp" method="post>>
textarea cols="65" rows="15" id="data" name="data"></textarea>
<input type="hidden" name="t" value="<%=b%>">
</td>
<td valign="top" align="left">
<input style="width:50;" onClick="Bkz()" value="bkz" type=button class=bn onMouseOver="c(this,'bo')" onMouseOut="c(this,'bn')" onMouseDown="c(this,'bd')"><br><br>
<input class="panelb" type="submit" name="gonder" value="Gonder">
</form>
2)JS kodu
function Bkz()
{
var text=document.getElementById("data");
if(document.selection)
{
var rg=document.selection.createRange();
if(rg.parentElement()==text) {
rg.text = "<bkz:"+rg.text+">";
rg.select();
} else alert("Bişeyler seçin");
}
else if(text.textLength)
{
var textvalue = text.value;
text.value = textvalue.substring(0,text.selectionStart)+"<bkz:" +textvalue.substring(text.selectionStart,text.sele ctionEnd)+">"+textvalue.substring(text.selectionEn d,text.textLength);
} else text.value += "<bkz:"+">";
text.focus();
return false;
}
Bu kod ile db ye entry gönderiyoruz.
Sonra bi fonksiyonla gelen entryleri tarıyoruz..
3)Tarama fonksiyonu (ASP)
public function makebkz(str)
set r = new RegExp
with r
.global=True
.IgnoreCase=True
.Pattern="&lt;bkz[a-z0-9$-$&-&.-.ö-öı-ış-şç-çğ-ğü-ü\s]+)&gt;"
End With
str=r.replace(str,"&lt;bkz <a href=""show.asp?td=$1""><font color=""#CC0000"">$1</font></a>&gt;")
r.pattern="&lt;gbkz[a-z0-9ö-öı-ış-şç-çğ-ğü-ü\s$-$&-&.-.]+)&gt;"
str=r.replace(str,"<a href=""show.asp?td=$1""><font color=""#CC0000"">$1</font></a>")
r.pattern="&lt;abkz[a-z0-9$-$&-&.-.ö-ö!-!ı-ış-şç-çğ-ğü-ü\s]+)&gt;"
str=r.replace(str,"<a href=""show.asp?td=$1"" title=""$1""><font color=""#CC0000"">*</font></a>")
r.pattern="#([0-9]+)"
str=r.replace(str,"<a href=""show.asp?id=$1""><font color=""#CC0000"">#$1</font></a>")
r.pattern="&lt;ara[a-z0-9ö-öı-ış-şç-çğ-ğü-ü\s$-$&-&.-.]+)&gt;"
str=r.replace(str,"&lt;ara <a href=""show.asp?td=y&s=$1"" target=""baslik""><font color=""#CC0000"">$1</font></a>&gt;")
set r=nothing
makebkz=str
End Function


Böyle bişey işte