程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp文章中隨機插入網站版權文字的實現代碼

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

編輯:關於ASP編程
當然,如果你的網站文章中有圖片,那麼請記得一定要打上自己的LOGO,而且這個LOGO不要固定在這些圖片的某個角落裡,一定要隨機出現在圖片的任意位置,做到神出鬼沒,讓采集者感慨:對方網站站標真是變幻莫測,防不勝防啊……

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


''===隨機生成干擾文字函數開始===
''===隨機生成干擾文字函數一===
function rndk()
dim s,s1,n,n1
''隨機插入你的網站版權文字,多個以|分割
s="|腳本:http://www.jb51.net。|http://www.jb51.net。|Jb51.net。|<font style=display:none>http://www.kanshule.com</font>|<span style=""display:none""><a href=http://www.jb51.net>腳本</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),分割關鍵字改成它就可以了。

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

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

    如果你有更好的方法,歡迎留下您的評論。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved