Kas
15Bu derste "<" ve ">" karakterleri arasında bulunan bütün karakterleri temizleyerek veriyi html kodlarından arındırmayı öğreneceğiz.
<%
Function Cevir(strVeri)
If strVeri = "" Then Exit Function
Set objRegExp = New Regexp
With objRegExp
.Pattern = "<.*?>"
.IgnoreCase = False
.Global = True
End With
Cevir = objRegExp.Replace(strVeri,"")
End Function
' Örnek Kullanım
Response.Write Cevir("<a href=""http://www.aspogren.net"">aspogren</a>")
' Çıktı
' aspogren
%>
Function Cevir(strVeri)
If strVeri = "" Then Exit Function
Set objRegExp = New Regexp
With objRegExp
.Pattern = "<.*?>"
.IgnoreCase = False
.Global = True
End With
Cevir = objRegExp.Replace(strVeri,"")
End Function
' Örnek Kullanım
Response.Write Cevir("<a href=""http://www.aspogren.net"">aspogren</a>")
' Çıktı
' aspogren
%>
3 yorum var
#425.-cmt-nm-25 Kasım 2007 Pazar
gerçekten güzel
#842.-Hüseyin YILMAZ-30 Ağustos 2010 Pazartesi
güzel uygulama fakat bana "xxx" gibi bi yazının rengini nasıl değiştircem lazım yardımcı olursanız sevinirim