ASP頁面隨機(jī)添加字符實(shí)現(xiàn)防復(fù)制的代碼
更新時(shí)間：2007年08月22日 21:47:39 作者：
<%
'作用:文字防復(fù)制亂碼 函數(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)生隨機(jī)數(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)生隨機(jī)數(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'>[版權(quán)歸原作者及"&Str1&"共同擁有，轉(zhuǎn)載請注明出處]</div>"
End Function
Dim a
a="嘎嘎，一篇<br>不錯(cuò)的好<p>文章哦</P><br><P>我艸，，讓你偷。。木 JJ的家伙,嬲。。</p>"
'Only For Test
response.write (a)
Dim b
'為配合轉(zhuǎn)換,字符串ａ的大小都替換成小寫
b=ReadToCode(LCase(a),"blue2004","www.xxx.com")
'Output
response.write b
%>
'作用:文字防復(fù)制亂碼 函數(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)生隨機(jī)數(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)生隨機(jī)數(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'>[版權(quán)歸原作者及"&Str1&"共同擁有，轉(zhuǎn)載請注明出處]</div>"
End Function
Dim a
a="嘎嘎，一篇<br>不錯(cuò)的好<p>文章哦</P><br><P>我艸，，讓你偷。。木 JJ的家伙,嬲。。</p>"
'Only For Test
response.write (a)
Dim b
'為配合轉(zhuǎn)換,字符串ａ的大小都替換成小寫
b=ReadToCode(LCase(a),"blue2004","www.xxx.com")
'Output
response.write b
%>
相關(guān)文章
Microsoft VBScript 編譯器錯(cuò)誤 錯(cuò)誤原因 代碼大全
這篇文章主要介紹了Microsoft VBScript 編譯器錯(cuò)誤 錯(cuò)誤原因 代碼大全,需要的朋友可以參考下2015-07-07
asp下實(shí)現(xiàn)代碼的“運(yùn)行代碼”“復(fù)制代碼”“保存代碼”功能源碼
asp下實(shí)現(xiàn)代碼的“運(yùn)行代碼”“復(fù)制代碼”“保存代碼”功能源碼...2007-06-06
asp 驗(yàn)證用戶名是否包含有非常字符的函數(shù)
asp 驗(yàn)證用戶名是否包含有非常字符的函數(shù)...2007-08-08
Asp實(shí)現(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
第一個(gè)函數(shù)CheckDir，用于判斷所指定的文件夾是否存在，也就是目錄是否存在；第二個(gè)函數(shù)CheckFile用于檢查指定文件是否存在在于某個(gè)目錄中2007-09-09
不用模板只用ASP+FSO生成靜態(tài)HTML頁的一個(gè)方法
不用模板只用ASP+FSO生成靜態(tài)HTML頁的一個(gè)方法...2006-09-09
解決使用良精企業(yè)建站7.0未注冊問題...2007-04-04
ASP調(diào)用WebService轉(zhuǎn)化成JSON數(shù)據(jù)，附j(luò)son.min.asp
接觸WebService也很久了，但是使用asp調(diào)用教程的卻不多，還有轉(zhuǎn)成json也不多見，本文全部分享給大家，需要的拿去吧。2016-03-03
用QuickWAP組件結(jié)合ASP建設(shè)Wap站點(diǎn)
用QuickWAP組件結(jié)合ASP建設(shè)Wap站點(diǎn)...2007-03-03