Hazır Script – Hazır Kod

String 2 url

String icinde ki url adreslerini linke cevirir.

codeDivStart()

<%

'date: 12.07.2003

'nolovelust

'postmaster@smslust.net

'www.smslust.net

sub ConvertUrl(str)

parcala=split(str," ",-1,1)

For i=0 to ubound(parcala)

if instr(lcase(parcala(i)), "http://") > 0 Then													' eger sting te http:// varsa

			response.write "<a href="""&parcala(i)&""">"&parcala(i)&"</a>"

            response.write " "

else																						'eger http:// yoksa

			response.write parcala(i)

			response.write " "

end if

Next

end sub

%>

<%

ConvertUrl("selam bu sicriptin uygulamasi http://smslust.net/wap  ta bulunabilir")