Ini sering digunakan saat mengeluarkan RSS dan XML, dan tidak persis sama dengan htmlencode
prinsip:
| Karakter | Dikonversi ke |
| " | |
| ' | ' |
| & | & |
| < | < |
| > | > |
Kode
<%
Fungsi xmlencode (byval stext)
stext = ganti (stext, "&", "&")
stext = ganti (stext, "<", "<")
stext = ganti (stext, ">", ">")
stext = ganti (stext, "'", "'")
stext = ganti (stext, "" "", "")
Xmlencode = stext
Fungsi akhir
%>
Satu lagi:
<%
Fungsi publik xmlencode (byval strtext as string) sebagai string
Redup arychars () sebagai varian
Arychars = Array (38, 60, 62, 34, 61, 39)
Redup saya sebagai bilangan bulat
Untuk i = 0 ke ubound (arychars)
strtext = ganti (strtext, chr (arychars (i)), "&#" & arychars (i) & ";")
Berikutnya
Xmlencode = strtext
Fungsi akhir
%>