Programalama > ASP

Etiketler: string, url

Ort. 0
Puan ver:
<%
'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")
%>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.