ASP页面随机添加字符实现防复制的代码
2018-09-06 12:31
<%
作用:文字防复制乱码函数
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,
Output
response.writeb
%>
文章标题：ASP页面随机添加字符实现防复制的代码
文章链接：http://soscw.com/index.php/essay/10406.html