<％
functionth（str）
str =置換（str、 "fuck"、 "md"）
str =置換（str、 "dum"、 "kao"）
th = str
エンド機能
functionEncode（str）
str =置換（str、 ">"、 ">"）
str =置換（str、 "<"、 "<"）
str =置換（str、chr（32）、 ""）
str =置換（str、chr（13）、 ""）
str =置換（str、chr（10）＆chr（10）、 "</p> <p>"）
str =置換（str、chr（10）、 "<br>"）
Encode = str
エンド機能
％>
<％title = request.form（ "title"）
content = request.form（ "content"）％>
記事タイトル：<％= th（title）％> <hr>
記事の内容：<％= encode（th（content））％>
Th（str）はカスタム関数であり、メイン関数は非常に単純です：フィルター文字。エンコード（str）もカスタム関数です
主な機能は、送信された情報を完全に表示することです。
CHR（10）はラインブレイクを表し、CHR（13）はキャリッジリターンを表し、CHR（32）はスペースを表します。
追加機能：UBBコードを表示します。
つまり、ubb.aspにはubb（）関数が含まれています。
強化されたcnbruce.asp
<！ - ＃includefile = "http://www.cnbruce.com/blog/ubb.asp" - >
<％
functionth（str）
str =置換（str、 "fuck"、 "md"）
str =置換（str、 "dum"、 "kao"）
th = str
エンド機能
％>