asp文章中隨機(jī)插入網(wǎng)站版權(quán)文字的實(shí)現(xiàn)代碼
更新時(shí)間:2008年08月08日 22:51:57 作者:
網(wǎng)站不斷被人抄襲采集,在百度對(duì)采集網(wǎng)站還沒有有效的打擊下,我們不能指望百度可以識(shí)別這些采集網(wǎng)站,那么只能依靠我們自己給我們辛辛苦苦做的內(nèi)容加上版權(quán)文字,以打擊這種不勞而獲的采集行為。
當(dāng)然,如果你的網(wǎng)站文章中有圖片,那么請(qǐng)記得一定要打上自己的LOGO,而且這個(gè)LOGO不要固定在這些圖片的某個(gè)角落里,一定要隨機(jī)出現(xiàn)在圖片的任意位置,做到神出鬼沒,讓采集者感慨:對(duì)方網(wǎng)站站標(biāo)真是變幻莫測(cè),防不勝防啊……
切入正題。我們?cè)趺床拍茉谧约旱奈恼轮须S機(jī)插入版權(quán)文字呢?昨晚花了點(diǎn)時(shí)間,寫了段簡(jiǎn)單的隨機(jī)插入隨機(jī)的文字的代碼,asp版本的:
''===隨機(jī)生成干擾文字函數(shù)開始===
''===隨機(jī)生成干擾文字函數(shù)一===
function rndk()
dim s,s1,n,n1
''隨機(jī)插入你的網(wǎng)站版權(quán)文字,多個(gè)以|分割
s="腳本之家|腳本:http://www.dbjr.com.cn。|http://www.dbjr.com.cn。|Jb51.net。|<font style=display:none>http://www.kanshule.com</font>|<span style=""display:none""><a href=http://www.dbjr.com.cn>腳本</a></span>"
s1=split(s,"|")
Randomize
n=Int((ubound(s1) - lbound(s1) + 1) * Rnd + lbound(s1))
Randomize
n1=Int((10 - 1 + 1) * Rnd + 1)
if n1<=3 then '30%概率出現(xiàn)
rndk=s1(n)
else
rndk=""
end if
end function
''===隨機(jī)生成干擾文字函數(shù)二===
function transtr(str) '調(diào)用該函數(shù)轉(zhuǎn)化
dim str1,i,k
k="<p></p>" '分割關(guān)鍵字
str1=split(str,k)
for i=lbound(str1) to ubound(str1)
transtr=transtr&str1(i)&rndk()&k
next
end function
''===隨機(jī)生成干擾文字函數(shù)結(jié)束===
在具體調(diào)用的時(shí)候,比如我們的內(nèi)容字段content,用上面的函數(shù)轉(zhuǎn)換一下就ok了,像transtr(content)這樣就行了。我這里取的分割關(guān)鍵字是段落結(jié)束之前的<p></p>,你也可以改成其他如<br>換行等,如果你的字段沒有經(jīng)過UBB轉(zhuǎn)化,那么換行回車符號(hào)為 CHR(10) & CHR(10),分割關(guān)鍵字改成它就可以了。
我們網(wǎng)站的內(nèi)容雖然不能說百分百是原創(chuàng),但也是我們一篇篇辛辛苦苦地整理出來的啊,別人通過程序幾個(gè)小時(shí)就能把你幾個(gè)月甚至幾年的心血就偷竊過去了,放到誰身上也不舒心啊。
所以,飄易放出這樣的隨機(jī)插入版權(quán)的代碼,希望能遏制部分這些采集者的囂張氣焰。
如果你有更好的方法,歡迎留下您的評(píng)論。
切入正題。我們?cè)趺床拍茉谧约旱奈恼轮须S機(jī)插入版權(quán)文字呢?昨晚花了點(diǎn)時(shí)間,寫了段簡(jiǎn)單的隨機(jī)插入隨機(jī)的文字的代碼,asp版本的:
''===隨機(jī)生成干擾文字函數(shù)開始===
''===隨機(jī)生成干擾文字函數(shù)一===
function rndk()
dim s,s1,n,n1
''隨機(jī)插入你的網(wǎng)站版權(quán)文字,多個(gè)以|分割
s="腳本之家|腳本:http://www.dbjr.com.cn。|http://www.dbjr.com.cn。|Jb51.net。|<font style=display:none>http://www.kanshule.com</font>|<span style=""display:none""><a href=http://www.dbjr.com.cn>腳本</a></span>"
s1=split(s,"|")
Randomize
n=Int((ubound(s1) - lbound(s1) + 1) * Rnd + lbound(s1))
Randomize
n1=Int((10 - 1 + 1) * Rnd + 1)
if n1<=3 then '30%概率出現(xiàn)
rndk=s1(n)
else
rndk=""
end if
end function
''===隨機(jī)生成干擾文字函數(shù)二===
function transtr(str) '調(diào)用該函數(shù)轉(zhuǎn)化
dim str1,i,k
k="<p></p>" '分割關(guān)鍵字
str1=split(str,k)
for i=lbound(str1) to ubound(str1)
transtr=transtr&str1(i)&rndk()&k
next
end function
''===隨機(jī)生成干擾文字函數(shù)結(jié)束===
在具體調(diào)用的時(shí)候,比如我們的內(nèi)容字段content,用上面的函數(shù)轉(zhuǎn)換一下就ok了,像transtr(content)這樣就行了。我這里取的分割關(guān)鍵字是段落結(jié)束之前的<p></p>,你也可以改成其他如<br>換行等,如果你的字段沒有經(jīng)過UBB轉(zhuǎn)化,那么換行回車符號(hào)為 CHR(10) & CHR(10),分割關(guān)鍵字改成它就可以了。
我們網(wǎng)站的內(nèi)容雖然不能說百分百是原創(chuàng),但也是我們一篇篇辛辛苦苦地整理出來的啊,別人通過程序幾個(gè)小時(shí)就能把你幾個(gè)月甚至幾年的心血就偷竊過去了,放到誰身上也不舒心啊。
所以,飄易放出這樣的隨機(jī)插入版權(quán)的代碼,希望能遏制部分這些采集者的囂張氣焰。
如果你有更好的方法,歡迎留下您的評(píng)論。
相關(guān)文章
ASP基礎(chǔ)入門第九篇(Global.asa文件的使用)
這篇文章主要介紹了Global.asa文件的使用,是一個(gè)可選文件,每個(gè)應(yīng)用程序只能有一個(gè) Global.asa 文件,需要了解的朋友可以參考下2015-10-10獲取一個(gè)數(shù)字的個(gè)位、十位、百位的函數(shù)代碼
獲取一個(gè)數(shù)字的個(gè)位、十位、百位的代碼,需要的朋友可以參考下。2010-12-12ASP自動(dòng)獲取漢字首字母函數(shù)(支持UTF-8/GB2312)
ASP獲取漢字首字母函數(shù)分享,分GB2312編碼和UTF-8編碼兩種,每次傳入一個(gè)漢字或一個(gè)字符。(具體如何獲得字符串中的一個(gè)字符,就大家自己想啦2007-08-08ASP隱藏真實(shí)文件的下載功能實(shí)現(xiàn)代碼
將下邊的文件保存為Download.asp就可以了,然后根據(jù)需要傳要下載的文件過來就可以了。2008-12-12忠網(wǎng)廣告 系統(tǒng) 用到的幾個(gè)函數(shù)
忠網(wǎng)廣告 系統(tǒng) 用到的幾個(gè)函數(shù)...2006-11-11asp將全角的字符轉(zhuǎn)變成半角字符,將半角轉(zhuǎn)變成全角d的代碼
2008-01-01在不刷新頁面的情況下調(diào)用遠(yuǎn)程asp腳本
在不刷新頁面的情況下調(diào)用遠(yuǎn)程asp腳本...2007-01-01ASP UTF-8編碼下字符串截取和獲取長(zhǎng)度函數(shù)
截取文字長(zhǎng)度函數(shù),支持UTF-8 ,這樣就可以滿意大部分截取字符串的朋友了。2009-05-05