html temizleme sorunu.

12-01-2011, 09:14:51

Merhaba arkadaşlar;
Kafamdaki düşünce html kodlarının içindeki metin(Text)leri almak ve html tag larını yok etmek. ASP de hazır bir fonksiyon varmı bunu yapabileceğim yardımcı olursanız çok memnun olurum.

12-01-2011, 23:44:16

#2

amasramnet

<%
function guvenlik(degistir)
degistir = replace(degistir,chr(13),"")
degistir = replace(degistir,",","")
degistir = replace(degistir,"/","")
degistir = replace(degistir,"\","")
degistir = replace(degistir,"?","")
degistir = replace(degistir,"*","")
degistir = replace(degistir,"'","")
'degistir = replace(degistir,""","")
degistir = replace(degistir,"OR","")
degistir = replace(degistir,"AND","")
degistir = replace(degistir,"%","")
degistir = replace(degistir,"&","")
degistir = replace(degistir,"<","")
degistir = replace(degistir,">","")
degistir = replace(degistir,"=","")
guvenlik = degistir
end function
%>

Kullanımı

<% =guvenlik(kayitseti("veri")) %>

14-01-2011, 13:36:48

#3

naimserin

amasramnet ilgin için tşk ederim yalnız replace fonksiyonu ile sadece belirttiğim karakterleri değiştirebilirim benim yapmak istediğim
[
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>My site</title>
</head>

<body>
Merhaba ziyaretçi
</body>
</html>
]
bu html taglarını yok etmek ve sadece "My site" ve "Merhaba ziyaretçi" kelimelerini elde etmek.

14-01-2011, 13:40:52

#4

~~ShekerChi~~

Üyeliği durduruldu

Alıntı

<%
Function HtmlEncodeYazi(text)
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "<[^>]+>"
YeniText = objReg.Replace(text,"")
Set objReg = Nothing
HtmlEncodeYazi = YeniText
End Function
%>

HtmlEncodeYazi(degisken) olarak kullanacaksın. değişken içindeki tüm html karakterleri temizler.

14-01-2011, 13:43:20

#5

tolgasen

🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺

<%
Function temiz(gelenyazi)
strGelen = gelenyazi
strGelen = Replace(strGelen, Chr(10), "", 1, -1, 1)
strGelen = Replace(strGelen, Chr(13), "", 1, -1, 1)
arrKod = Split(strGelen, "<")
FOR EACH Kod IN arrKod
strGidecek = strGidecek & Mid(Kod, Instr(Kod, ">")+1, Len(Kod)-Instr(Kod, ">"))
NEXT
temiz=strGidecek
End Function
%>

14-01-2011, 15:45:23

#6

naimserin

İki koduda uyguladım ikiside gayet güzel çalışıyor fakat

Alıntı

<%
Function HtmlEncodeYazi(text)
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "<[^>]+>"
YeniText = objReg.Replace(text,"")
Set objReg = Nothing
HtmlEncodeYazi = YeniText
End Function
%>

bu kod çok satır ve boşluk bırakıyor

Alıntı

<%
Function temiz(gelenyazi)
strGelen = gelenyazi
strGelen = Replace(strGelen, Chr(10), "", 1, -1, 1)
strGelen = Replace(strGelen, Chr(13), "", 1, -1, 1)
arrKod = Split(strGelen, "<")
FOR EACH Kod IN arrKod
strGidecek = strGidecek & Mid(Kod, Instr(Kod, ">")+1, Len(Kod)-Instr(Kod, ">"))
NEXT
temiz=strGidecek
End Function
%>

bu kod ise boşluk bırakmıyor ne yapmalı aceba.