国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

asp文章中隨機插入網站版權文字的實現代碼

2024-05-04 11:09:16
字體:
來源:轉載
供稿:網友
網站不斷被人抄襲采集,在百度對采集網站還沒有有效的打擊下,我們不能指望百度可以識別這些采集網站,那么只能依靠我們自己給我們辛辛苦苦做的內容加上版權文字,以打擊這種不勞而獲的采集行為。
 
 
 
當然,如果你的網站文章中有圖片,那么請記得一定要打上自己的LOGO,而且這個LOGO不要固定在這些圖片的某個角落里,一定要隨機出現在圖片的任意位置,做到神出鬼沒,讓采集者感慨:對方網站站標真是變幻莫測,防不勝防啊…… 

切入正題。我們怎么才能在自己的文章中隨機插入版權文字呢?昨晚花了點時間,寫了段簡單的隨機插入隨機的文字的代碼,asp版本的: 


''===隨機生成干擾文字函數開始=== 
''===隨機生成干擾文字函數一=== 
function rndk() 
dim s,s1,n,n1 
''隨機插入你的網站版權文字,多個以|分割 
s="腳本之家|腳本:http://www.survivalescaperooms.com。|http://www.survivalescaperooms.com。|Jb51.net。|<font style=display:none>http://www.kanshule.com</font>|<span style=""display:none""><a href=http://www.survivalescaperooms.com>腳本</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%概率出現 
rndk=s1(n) 
else 
rndk="" 
end if 
end function 
''===隨機生成干擾文字函數二=== 
function transtr(str) '調用該函數轉化 
dim str1,i,k 
k="<p></p>" '分割關鍵字 
str1=split(str,k) 
for i=lbound(str1) to ubound(str1) 
transtr=transtr&str1(i)&rndk()&k 
next 
end function 
''===隨機生成干擾文字函數結束=== 

在具體調用的時候,比如我們的內容字段content,用上面的函數轉換一下就ok了,像transtr(content)這樣就行了。我這里取的分割關鍵字是段落結束之前的<p></p>,你也可以改成其他如<br>換行等,如果你的字段沒有經過UBB轉化,那么換行回車符號為 CHR(10) & CHR(10),分割關鍵字改成它就可以了。 

我們網站的內容雖然不能說百分百是原創,但也是我們一篇篇辛辛苦苦地整理出來的啊,別人通過程序幾個小時就能把你幾個月甚至幾年的心血就偷竊過去了,放到誰身上也不舒心啊。 

所以,飄易放出這樣的隨機插入版權的代碼,希望能遏制部分這些采集者的囂張氣焰。 

如果你有更好的方法,歡迎留下您的評論。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 武陟县| 土默特左旗| 收藏| 财经| 绍兴市| 灌南县| 襄汾县| 肃南| 西乌珠穆沁旗| 青浦区| 广安市| 合阳县| 顺平县| 灵丘县| 晋宁县| 衡山县| 鸡东县| 阿荣旗| 商河县| 镇江市| 阳江市| 客服| 奉化市| 昌宁县| 前郭尔| 黄浦区| 天全县| 延安市| 天等县| 清远市| 乌拉特中旗| 洛南县| 类乌齐县| 西盟| 浠水县| 芷江| 三穗县| 芷江| 岳阳市| 达州市| 凌源市|