ASP页面随机添加字符实现防复制的代码(2)


                        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>"

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/2671.html