ASP页面随机添加字符实现不可复制的代码

发布时间：2023-09-07 11:38:30 所属栏目：Asp教程来源：

导读：ASP页面随机添加字符实现防复制的代码

<%
'作用:文字防复制乱码函数
'Date:2006-3-6
'作者:blue2004
'参数str 为原文,str1作者也是你自己,reslut产生乱码的

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

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!