<%
'作用:文字防複製亂碼函數
'Date:2006-3-6
'作者:blue2004
'參數str為原文,str1作者也是你自己,reslut產生亂碼的種子
FunctionReadToCode(str,Str1,result)
dimname
dimi,j,k
Ifisnull(str)then
ReadToCode=""
ExitFunction
EndIf
Randomize
k=instr(str,"</P>")
Dowhilek>0
result=""
fori=0to19
j=Int(128*Rnd)+1
ifj=60orj=62then
j=j+1
endif
result=result&chr(j)'產生隨機數。