RSSとXMLを出力するときによく使用され、HTMLENCODEとまったく同じではありません
原理：
| キャラクター | に変換 |
| 「 | |
| ' | ' |
| ＆ | ＆ |
| < | < |
| > | > |
コード
<％
関数xmlencode（byval stext）
stext = cheplage（stext、 "＆"、 "＆"）
stext = cheplage（stext、 "<"、 "<"）
stext = cheplage（stext、 ">"、 ">"）
stext = cheplage（stext、 "'"、 "'"）
stext = cheplage（stext、 "" ""、 ""）
xmlencode = stext
エンド関数
％>
もう1つ：
<％
パブリック関数xmlencode（byval strtext as string）string
バリアントとしてのdim arychars（）
arychars = array（38、60、62、34、61、39）
整数として薄暗い
i = 0からubound（arychars）の場合
strtext = cheplage（strtext、chr（arychars（i））、 "＆＃"＆arychars（i）＆ ";"）
次
xmlencode = strtext
エンド関数
％>