<％
'関数：テキストは、文字化けの関数を防ぎます
'日付：2006-3-6
著者：Blue2004
'パラメーターstrは元のテキストであり、str1の著者も自分自身です。
functionreadtocode（str、str1、result）
dimname
ディミ、J、k
ifisnull（str）then
readtocode = ""
exitFunction
endif
ランダム化
k = strust（str、 "</p>"）
dowhilek> 0
結果= ""
fori = 0to19
j = int（128*rnd）+1
ifj = 60orj = 62then
j = j+1
endif
結果= result＆chr（j） 'は乱数を生成します。