merhaba arkadaşlar yazı içerisindeki url lere link yapıyorum fakat yazı içinde uzun linkleri kısaltmak istedim fakat olmuyor misal orada
www.r10.net/id=9999&deneme=1&kim=ben kısmı www.r10.net/id... şeklinde olmasını istedim ama çalıştıramadım
<%
Function link_yap(strText)

strText = " " & strText

strText = ereg_replace(strText, "([\w]+?://[^ ,""\s<]*)", "<a href=""$1"" target=""_blank"">"&left("$1",12)&"</a>")

strText = ereg_replace(strText, "((www|ftp)\.([^ ,""\s<])*)", "<a href=""http://$1"" target=""_blank"">"&left("$1",12)&"</a>")

strText = ereg_replace(strText, "([a-z0-9&\-_.]+?)@([\w\-]+\.([\w\-\.]+\.)*[\w]+)", "<a href=""mailto:$1@$2"">$1@$2</a>")


strText = right(strText, len(strText)-1)
link_yap = strText
End Function


Function ereg_replace(strOrjinalString, strPattern, strReplacement)
dim objRegExp : set objRegExp = new RegExp
objRegExp.Pattern = strPattern
objRegExp.IgnoreCase = True
objRegExp.Global = True
ereg_replace = objRegExp.replace(strOrjinalString, strReplacement)
set objRegExp = nothing
End function



strLink="fatih@denem.net werwerw wersdf www.r10.net/id=9999&deneme=1&kim=ben http://dede.com deneme link <br> deneme.com www.asdasdnet hayde farkli@farkli.com"
response.Write link_yap(replace(strLink,"http://w","w"))

%>