本 站 搜 索     推 荐 文 章        More... 华硕易电脑(ASUS Eee PC 10.. 先来段开场白：为了外出携带方便，.. Acronis True Image 使用.. 　　一款可以在Windows下使用全.. Norton Ghost 使用详解 一、分区备份 　　使用Ghost进..     文 章 阅 读 排 行 “啊估文章软件站”网站系.. 一、调试测试网站系统时，如何设.. Norton Ghost 使用详解 一、分区备份 　　使用Ghost进.. 电脑显示器使用 HDMI 数据.. 如果电脑显示器使用 HDMI 数据线.. ASP：Persits ASPMail 发送.. 【发送邮件测试代码下载】压.. CMD：列出当前文件夹的全部.. 电脑硬盘里，某个文件夹里的文件.. hao123 联盟成立脱离百度.. 　　百度联盟7月4日发布公告，自20..

文 章 信 息 一段ASP防采集的代码 〖评论()〗〖留言〗〖收藏〗 〖文章分类：电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项〗 <%         ’作用:文字防复制乱码 函数         ’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 ’为配合转换,字符串ａ的大小都替换成小写 b=ReadToCode(LCase(a),"blue2004","www.xxx.com") ’Output response.write b %> 文章作者：未知  更新日期：2006-09-22 〖文章浏览：〗〖发送文章〗〖打印文章〗 〖文章阅读说明〗 ·本站大部分文章转载于网络，如有侵权请留言告知，本站即做删除处理。 ·本站法律法规类文章转载自[中国政府网(www.org.cn)]，相关法律法规如有修订，请浏览[中国政府网]网站。 ·本站转载的文章，不为其有效性，实效性，安全性，可用性等做保证。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。