一段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) ' 产生随机数。

访问技术无忧网，软硬件通吃保你技术无忧！网址http://www.pc51.net

上一篇：下面没有链接了

下一篇：ASP木马Webshell安全解决方案

昵称 (必填)

验证码 (必填)