<％
'*******************************
'機能：htmlencode（拘束）
'パラメーター：エンコードされる文字列
著者：アリクシ
'日付：2007/7/15
'説明：HTMLコードを変換します
'例：htmlencode（ "<p> <br> alixi </p>へようこそ"）
'*******************************
functionhtmlencode（拘束）
DIMSTR：STR = RESTRING
ifnotisnull（str）then
str = uncheckstr（str）
str =置換（str、 "＆"、 "＆"）
str =置換（str、 ">"、 ">"）
str =置換（str、 "<"、 "<"）
str =置換（str、chr（32）、 ""）
str =置換（str、chr（9）、 ""）
str =置換（str、chr（9）、 ""）
str =置換（str、chr（34）、 ""）
str =置換（str、chr（39）、 "'"）
str =置換（str、chr（13）、 ""）
str =置換（str、chr（10）、 "<br>"）
htmlencode = str
endif
エンド機能
'逆変換HTMLコード
functionhtmldecode（拘束）
DIMSTR：STR = RESTRING
ifnotisnull（str）then
str =置換（str、 "＆"、 "＆"）
str =置換（str、 ">"、 ">"）
str =置換（str、 "<"、 "<"）
str =置換（str、 ""、chr（32））
str =置換（str、 ""、chr（9））
str =置換（str、 ""、chr（9））
str =置換（str、 ""、chr（34））
str =置換（str、 "'"、chr（39））
str =置換（str、 ""、chr（13））
str =置換（str、 "<br>"、chr（10））
htmldecode = str
endif
エンド機能
％>