<%
'関数:テキストは、文字化けの関数を防ぎます
'日付: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) 'は乱数を生成します。