- <%
- '作用:文字防复制乱码 函数
- 'Date:2006-3-6
- '作者:blue2004
- '参数str 为原文,str1作者也是你自己,reslut产生乱码的种子
- Function ReadToCode(str,Str1,result)
- dim name
- dim i,j,k
- If isnull(str) then
- ReadToCode=""
- Exit Function
- End If
- Randomize
- k=instr(str,"</P>")
- Do while k>0
- result=""
- for i=0 to 19
- j=Int(128 * Rnd)+1
- if j=60 or j=62 then
- j=j+1
- end if
- result =result&chr(j) ' 产生随机数。
- next
- result="<span style='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>")
- Do while k>0
- result=""
- for i=0 to 19
- j=Int(128 * Rnd)+1
- if j=60 or j=62 then
- j=j+1
- end if
- result =result&chr(j) ' 产生随机数。
- next
- result="<span style='DISPLAY: none'>"&result&"</span>"
- str=replace(str,"<br>",result&"<'br>",1,1)
- k=instr(str,"<br>")
- loop
- str=replace(str,"<'br>","<br>")
- ReadToCode=str&"<div align=right style='color=gray'>[版权归原作者及"&Str1&"共同拥有,转载请注明出处]</div>"
- End Function
- Dim a
- a="嘎嘎,一篇<br>不错的好<p>文章哦</P><br><P>我艹,,让你偷。。木 JJ的家伙,嬲。。</p>"
- 'Only For Test
- response.write (a)
- Dim b
- '为配合转换,字符串a的大小都替换成小写
- b=ReadToCode(LCase(a),"blue2004","www.xxx.com")
- 'Output
- response.write b
- %>
ASP页面随机添加字符实现防复制的代码
2019-10-10 10:46asp代码网 ASP教程
ASP页面随机添加字符实现防复制的代码
延伸 · 阅读
- 2019-10-10ASP中应用事务处理技巧
- 2019-10-10asp下比较全面的获取IP地址的代码
- 2019-10-10ASP实现缓存类无错版
- 2019-10-10asp下实现批量插入数据的方法
- 2019-10-10asp下用ADODB.Stream代替FSO读取文本文件
- 2019-10-10asp之基于adodb.stream的文件操作类
精彩推荐
- ASP教程
ASP 隐藏下载地址及防盗链代码
好多朋友做了下载站,但经常被盗链的严重,所以大家可以用这个方法隐藏真实下载地址。让别人无法看到具体的下载地址。...
- ASP教程
ASP防止图片木马上传的代码
有时候通过程序上传木马,一般都是伪装成图片,下面是asp下检测图片木马的代码,需要的朋友可以参考下。...
- ASP教程
Asp Split函数之使用多个分割符的方法
有时候用户输入的分隔符种类比较多,支持逗号也想要支持空格等等,其实原来就是先统一为一中分隔符再使用split进行分割就可以了...
- ASP教程
ASP运行出错:缺少对象: 'xmlDoc.documentElement'错误解决方法
ASP运行出错:缺少对象: 'xmlDoc.documentElement'错误解决方法,需要的朋友可以参考下...
- ASP教程
ASP 中 Split 函数的实例分析
大家有碰到过要想取一字符串里的某些值而无从下手?有没有觉得看书或教材对split的写法糊里糊涂……如果有此疑问的话,请看下面我对例子的解释,相...
- ASP教程
ASP 改良版MD5、SHA256多重加密类(二次及多次)
ASP的MD5、SHA256多重加密技术,根据字符串获取加密类型,属于混合加密,暴利破击完全无望!可移植到 C#/C/C++ 、ASP.NET、VB.NET 或其他类型的语言上...
- ASP教程
asp 使用正则表达式替换word中的标签,转为纯文本
asp里使用正则表达式清除后台编辑器里复制粘贴内容的word格式,将其转换成纯文本...
- ASP教程
asp中把数据导出为excel的2种方法
这篇文章主要介绍了asp中把数据导出为excel的2种方法,分别用excel组件、文件组件实现,需要的朋友可以参考下...