asp文章中隨機(jī)插入網(wǎng)站版權(quán)文字的實(shí)現(xiàn)代碼
2020-07-27 12:58:12
供稿：網(wǎng)友
當(dāng)然，如果你的網(wǎng)站文章中有圖片，那么請(qǐng)記得一定要打上自己的LOGO，而且這個(gè)LOGO不要固定在這些圖片的某個(gè)角落里，一定要隨機(jī)出現(xiàn)在圖片的任意位置，做到神出鬼沒(méi)，讓采集者感慨：對(duì)方網(wǎng)站站標(biāo)真是變幻莫測(cè)，防不勝防啊……
切入正題。我們?cè)趺床拍茉谧约旱奈恼轮须S機(jī)插入版權(quán)文字呢？昨晚花了點(diǎn)時(shí)間，寫(xiě)了段簡(jiǎn)單的隨機(jī)插入隨機(jī)的文字的代碼，asp版本的：
''===隨機(jī)生成干擾文字函數(shù)開(kāi)始===
''===隨機(jī)生成干擾文字函數(shù)一===
function rndk()
dim s,s1,n,n1
''隨機(jī)插入你的網(wǎng)站版權(quán)文字，多個(gè)以|分割
s="武林網(wǎng)|腳本:http://m.survivalescaperooms.com。|http://m.survivalescaperooms.com。|Jb51．net。|<font style=display:none>http://www.kanshule.com</font>|<span style=""display:none""><a href=http://m.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%概率出現(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>換行等，如果你的字段沒(méi)有經(jīng)過(guò)UBB轉(zhuǎn)化，那么換行回車符號(hào)為 CHR(10) & CHR(10)，分割關(guān)鍵字改成它就可以了。
我們網(wǎng)站的內(nèi)容雖然不能說(shuō)百分百是原創(chuàng)，但也是我們一篇篇辛辛苦苦地整理出來(lái)的啊，別人通過(guò)程序幾個(gè)小時(shí)就能把你幾個(gè)月甚至幾年的心血就偷竊過(guò)去了，放到誰(shuí)身上也不舒心啊。
所以，飄易放出這樣的隨機(jī)插入版權(quán)的代碼，希望能遏制部分這些采集者的囂張氣焰。
如果你有更好的方法，歡迎留下您的評(píng)論。
