Html vsebina varno PHP funkcije
Sobota, marec 28, 2009 2:43Lar čiščenje html funkcijo za vnos, vendar več testov hos etmedım gozukuor
copyright: http://www.ysfkc.com/dosyalar/guvenliHtml.phps
guvenliHtml funkcija ($ text) (
global $ začetek;
KonumK $ = 0; # <(Kucuktur) znakov smo videli, zadnji položaj
KonumB $ = 0; #> (Buyuktur) znakov smo videli, zadnji položaj
$ Tag_mi = False; # tag znotraj smo?
$ OzellikSablon = "; # funkcija = vrednost se uporablja za klice globalno formatindaki
$ TagTablosu = array (); # tag informacij v svetovnem alacagi
$ OzellikTablosu = array (); # značilnost (atribut) informacije v svetovnem alacagi
$ DegerTablosu = array (), # vrednost (value) informacij v svetovnem alacagi
# Globalne spremenljivke nastavljena na vrednosti
guvenliGlobal ();
# Text pred otoku yapilan o popravku procesu
$ Text = onDuzeltme ($ text);
$ I = 0;
$ Buffer = ";
$ KonumK = strpos ($ text, '<', $ i); # <rastlandigi prvem mestu znak
$ KonumB = strpos ($ text, '>', $ i); #> rastlandigi prvem mestu znak
# Scan oznake omogočajo besedilo znotraj našega
while (True) (
# Če je <znak enkrat več rastlandiysa
# Ali <character ugotovljeno but> značaja bulunamadiysa
if (($ konumK! konumK == False & & $ <$ konumB) | | ($ konumK! == False & & $ konumB === False)) (
# Tag icerisindeysek
if ($ tag_mi) (
# Trakec v <olamayacagi za oznako del sandigimiz
# Basindaki <znak <, da stavek Çevre
$ Buffer .= '<'. substr ($ text, $ i, $ konumK - $ i);
# Tag znotraj degilseniz
) Else (
#
$ Buffer .= substr ($ text, $ i, $ konumK - $ i);
)
$ I = $ konumK + 1;
$ KonumK = strpos ($ text, '<', $ i);
# Tag Fixing
$ Tag_mi = True;
# Če> znak spet rastlandiysa
# Ali pa> učinka ugotovljeno, toda <značaja bulunamadiysa
) Elseif (($ konumB! KonumK == false & & $> $ konumB) | | ($ konumK === False & & $ konumB! == False)) (
# Icerisindeysek Tag
if ($ tag_mi) (
# Duzeltilmis Dodaj oznako
$ Buffer .= guvenliTag (substr ($ text, $ i, $ konumB - $ i));
# Close tag
$ Tag_mi = False;
# Tag znotraj degilseniz
) Else (
Get del # tukaj kodar
# In> znakov> na stavek Çevre
$ Buffer .= substr ($ text, $ i, $ konumB - $ i). '>';
)
$ I = $ konumB 1;
$ KonumB = strpos ($ text, '>', $ i);
# Če <or> značaja rastlanmadiysa
) Else (
# Icerisindeysek Tag
if ($ tag_mi) (
# Zadnja skupna <znak <, da stavek Çevre
# In dodaj devamini buffer besedilo
$ Buffer .= '<'. substr ($ text, $ i);
) Else (
# Koncu besedila od položaja devamini Kalina dodajte pufer
$ Buffer .= substr ($ text, $ i);
)
# Cik artik tag kalmadigina gore Dong
break;
)
)
return $ buffer;
)
# ------------------------------------------------- -------------------------------------------------
onDuzeltme funkcija ($ text) (
$ DegisiklikOncesi ='';
Zahtevani dokler oldugu bolum # degistirilmesi naprej
while ($ degisiklikOncesi! = $ text) (
DegisiklikOncesi $ = $ text;
# # & Xx pisni obliki, nekateri znaki, ASCII karsiliklarina cevriliyor
# Nekatere oznake omogočajo atiliyor in vsebina
$ Text = preg_replace ( '/ / Si ',', $ text);
$ Text = preg_replace ( '/
$ Text = preg_replace ( '/








































