ASP頁面隨機添加字符實現(xiàn)防復制的代碼
更新時間：2007年08月22日 21:47:39 作者：
<%
'作用:文字防復制亂碼 函數(shù)
'Date:2006-3-6
'作者:blue2004
'參數(shù)str 為原文,str1作者也是你自己,reslut產(chǎn)生亂碼的種子
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) ' 產(chǎn)生隨機數(shù)。
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) ' 產(chǎn)生隨機數(shù)。
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
%>
'作用:文字防復制亂碼 函數(shù)
'Date:2006-3-6
'作者:blue2004
'參數(shù)str 為原文,str1作者也是你自己,reslut產(chǎn)生亂碼的種子
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) ' 產(chǎn)生隨機數(shù)。
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) ' 產(chǎn)生隨機數(shù)。
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
%>
相關文章
Microsoft VBScript 編譯器錯誤 錯誤原因 代碼大全
這篇文章主要介紹了Microsoft VBScript 編譯器錯誤 錯誤原因 代碼大全,需要的朋友可以參考下2015-07-07
asp下實現(xiàn)代碼的“運行代碼”“復制代碼”“保存代碼”功能源碼
asp下實現(xiàn)代碼的“運行代碼”“復制代碼”“保存代碼”功能源碼...2007-06-06
asp 驗證用戶名是否包含有非常字符的函數(shù)...2007-08-08
Asp實現(xiàn)假靜態(tài)...2007-02-02
Asp 使用 Microsoft.XMLHTTP 抓取網(wǎng)頁內(nèi)容并過濾需要的
這篇文章主要介紹了Asp 使用 Microsoft.XMLHTTP 抓取網(wǎng)頁內(nèi)容(沒用亂碼)，并過濾需要的內(nèi)容2014-05-05
第一個函數(shù)CheckDir，用于判斷所指定的文件夾是否存在，也就是目錄是否存在；第二個函數(shù)CheckFile用于檢查指定文件是否存在在于某個目錄中2007-09-09
不用模板只用ASP+FSO生成靜態(tài)HTML頁的一個方法
不用模板只用ASP+FSO生成靜態(tài)HTML頁的一個方法...2006-09-09
解決使用良精企業(yè)建站7.0未注冊問題...2007-04-04
ASP調(diào)用WebService轉化成JSON數(shù)據(jù)，附json.min.asp
接觸WebService也很久了，但是使用asp調(diào)用教程的卻不多，還有轉成json也不多見，本文全部分享給大家，需要的拿去吧。2016-03-03
用QuickWAP組件結合ASP建設Wap站點...2007-03-03