Verileri HTML kodlarına dönüştürmek

Veritabanına eklediğiniz verilerinizin HTML olarak görüntülenmesini isterseniz işte size bulunmaz bir fonksiyon. Aşağıdaki fonksyion parağraflarınızı yazdığınız gibi göstermenizi de sağlar. Yani parağraflar başlarının sonuna <br> koyar ve alt satıra atar. Kullanımı <%=EncodeHTML(Veriler)%> şeklindedir. Veriler bir fonksiyon ile de alınmış olabilir.

<%
function EncodeHtml(byval str)
dim Temp
Temp=str
Temp=Replace(Temp, vbcrlf, “<br>”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “”"”, “‘”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “ð”, “ğ”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “Д, “Ğ”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “ý”, “ı”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “Ý”, “İ”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “þ”, “ş”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “Þ”, “Ş”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “ü”, “ü”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “Ü”, “Ü”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “&lt;”, “<”, 1, -1, vbTextCompare)
Temp=Replace(Temp, “&gt;”, “>”, 1, -1, vbTextCompare)
EncodeHtml=Temp
end function
%>

Bu fonksiyonun tam tersini de Replace ile değiştirdiğimiz karekterlerin yerlerini değiştirerek bulabiliriz.