<%
'作用:文字防复制乱码函数
'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)'产生随机数。
next
result="<spanstyle='DISPLAY:none'>"&result&"</span>"
str=replace(str,"</p>",result&"<'/p>",1,1)
k=instr(str,"</p>")
loop
str=replace(str,"<'/p>","</p>")
k=instr(str,"<br>")
Dowhilek>0
result=""
fori=0to19
j=Int(128*Rnd)+1
ifj=60orj=62then
j=j+1
endif
result=result&chr(j)'产生随机数。
next
result="<spanstyle='DISPLAY:none'>"&result&"</span>"
str=replace(str,"<br>",result&"<'br>",1,1)
k=instr(str,"<br>")
loop
str=replace(str,"<'br>","<br>")
ReadToCode=str&"<divalign=rightstyle='color=gray'>[版权归原作者及"&Str1&"共同拥有，转载请注明出处]</div>"
EndFunction
Dima
a="嘎嘎，一篇<br>不错的好<p>文章哦</P><br><P>我艹，，让你偷。。木JJ的家伙,嬲。。</p>"
'OnlyForTest
response.write(a)
Dimb
'为配合转换,字符串ａ的大小都替换成小写
b=ReadToCode(LCase(a),"blue2004","www.xxx.com")
'Output
response.writeb
%>
【ASP页面随机添加字符实现防复制的代码】相关文章：