Acrophobia

Bu fonksiyon sayesinde;

verileriniz içerisinde geçen http:// veya www ile başlayan yerleri gizleyebilirsiniz.

Bu sistem çoğu forum uygulamalarında üye olmadan veriler görüntülenemesin diye kullanılmaktadır.

Normal Veri;

Adım mub@rek,
CW Topraklarında Doğmuşum,
Kapalı Kapılar Arkasında konular açmışım,
Kod yazmışım, Adam Banlamışım.
Onursuz Yaşanmaz Demişim,
Rezil Rüsva Etmemisim CW’yi köpeklere.
http://www.cyber-warrior.org/

Gizlenmiş Hali

Adım mub@rek,
CW Topraklarında Doğmuşum,
Kapalı Kapılar Arkasında konular açmışım,
Kod yazmışım, Adam Banlamışım.
Onursuz Yaşanmaz Demişim,
Rezil Rüsva Etmemisim CW’yi köpeklere.
Linkleri görebilmek için lütfen giriş yapın.

Fonksiyonumuz

<%
Function gizle(yazi)
Dizi=split(yazi," ")
For i=0 to ubound(Dizi)
if instr(lcase(Dizi(i)), "http://") > 0 or instr(lcase(Dizi(i)), "www.") > 0 Then

if instr(lcase(Dizi(i)), "http://") > 0 Then
response.write "<a target=""_blank"" title=""#"" href=""#""><b>Linkleri görebilmek için lütfen giriş yapın.</b></a>"
elseif instr(lcase(Dizi(i)), "www.") > 0 then
response.write "<a target=""_blank"" title=""#"" href=""#""><b>Linkleri görebilmek için lütfen giriş yapın.</b></a>"
end if

response.write " "
else
response.write Dizi(i)
response.write " "
end if
Next
end Function

%>

Kullanımı

<% 'verimiz bu olsun.
veri = "Adım mub@rek,<br>"&_
"CW Topraklarında Doğmuşum,<br>"&_
"Kapalı Kapılar Arkasında konular açmışım,<br>"&_
"Kod yazmışım, Adam Banlamışım.<br>"&_
"Onursuz Yaşanmaz Demişim,<br>"&_
"Rezil Rüsva Etmemisim CW’yi köpeklere.<br> "&_
"http://www.cyber-warrior.org/"

response.write gizle(veri)
%>