AspDepo.org

asp script deponuz

Son Yorumlananlar

Son 10 Kod

Gösterim

  • Bugün : 639
  • Toplam : 1903127

Forumlarda Link Gizleme Kodu

Bu kod 2988 kere okunmuştur.

Kod
<%
Function LinkGizle(adres)
Do While inStr(adres,"<a ")>0 and inStr(adres,"/a>")>0
bas=inStr(adres,"<a ")
bit=inStr(adres,"/a>")+3-bas
Gizle=Mid(adres,bas,bit)
adres=Replace(adres,Gizle,"<b>Linki Gizlendi</b>")
Loop
LinkGizle=adres
End Function
%>
Örnek Kullanım:
<%
yazdir="Ücretsiz Blog Scripti: <a href='http://webixir.com'>Burası Gizleniyor</a>"
response.write LinkGizle(yazdir)
%>

Şart deyimlerini kendiniz yerleştirirsiniz.
<%
if ...
response.write LinkGizle(..)
else
response.write ("..")
end if
%>

Gibisinden karmaşık bişey yok