<％
functionhtmldecode（stext）
薄暗い
stext = cheplage（stext、 "＆"、chr（38））
stext = cheplage（stext、 "" ""、chr（34））
stext = cheplage（stext、 "<"、chr（60））
stext = cheplage（stext、 ">"、chr（62））
stext = cheplage（stext、 ""、chr（32））
fori = 1to255
stext = cheplage（stext、 "＆＃"＆i＆ ";"、chr（i））
次
htmldecode = stext
エンド機能
％>