<%
'作用:文字防复制乱码函数
'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)'产生随机数。