婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > asp下載防盜鏈代碼

asp下載防盜鏈代碼

熱門標簽:鄭州智能外呼電銷機器人廠家 長春公司外呼系統中心 成都ai外呼系統線路 廣東語音外呼系統公司 沈陽電話機器人公司 鄢陵學校如何做地圖標注 沈陽三五防封電銷卡 虛擬電話外呼系統 云南便宜外呼系統平臺
asp下載防盜鏈代碼
第一種: 
終于對下載系統做了個防盜鏈措施,在下載的頁面頭部做了如下代碼,相關代碼如下:  
復制代碼 代碼如下:
%  
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))  
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))  
if mid(From_url,8,len(Serv_url)) > Serv_url and mid(From_url,8,len(Serv_url))>"ITstudy.cn" and mid(From_url,8,len(Serv_url))>"www.ITstudy.cn" then  
response.write "您下載的軟件來自IT學習網,請直接從主頁下載,謝謝br>" '防止盜鏈  
response.write "a href=http://www.ITstudy.cn>IT學習網http://www.ITstudy.cn/a>" '防止盜鏈  
response.end  
end if  
%> 

第二種:  
復制代碼 代碼如下:
%   
  '定義函數,用ADODB.Stream讀取二進制數據   
  Function ReadBinaryFile(FileName)   
   Const adTypeBinary = 1   
   Dim BinaryStream   
   Set BinaryStream = CreateObject("ADODB.Stream")   
   BinaryStream.Type = adTypeBinary   
   BinaryStream.Open   
   BinaryStream.LoadFromFile FileName   
   ReadBinaryFile = BinaryStream.Read   
  End Function   
  Response.AddHeader "Content-Disposition", "attachment;filename=2.gif"'文件名   
  Response.ContentType = "image/GIF" '設置(1)   
  response.Binarywrite ReadBinaryFile(server.mappath("2.gif"))'就是你讀取存在本地的文件,防止被  
別人知道真實路徑盜連的。   
  %>  

(1)下面的示例將 ContentType 屬性設置為其他的常見值。  
  text/HTML 這個就不說了  
  image/GIF gif圖片  
  image/JPEG jpg圖片  
  application/x-cdf cdf文檔  
  application/wma 就是西瓜哪個音樂類型了  
  具體可以參照 Web 瀏覽器文檔或當前的 HTTP 規格說明  
  這樣再利用asp的儲存session,cookies,以及讀取HTTP頭等特殊功能就可以完全真正的實現防盜連,這里 
沒有設置緩存,如果訪問量巨大,我想設置下就會更好吧。  
第三種: 
最簡單的用Active Server Pages防站外提交表單、跨站提交表單、防盜鏈…… 
方法:Request.SeverVariables("HTTP_REFERER") 
解釋:當某人通過鏈接到達當前頁,HTTP_REFERER 就保存了這個用戶的來源(來路) 
舉個例子,這個例子很簡單,只是拋磚引玉而已,大家可以增加更多的功能。 
如下,只有首先從“ http://www.ITstudy.cn”登陸才能看到文件內容。 
源碼:index.asp  
復制代碼 代碼如下:
html>  
head>title>最簡單的用asp防盜鏈/title>/head>  
body>  
%  
Option.Explicit  
Response.Buffer=Ture  
%>  
%  
CheckUrl("http://ITstudy.cn/index.jsp")  
%>  
%  
Function CheckUrl(url)  
 Dim Where:Where=Request.SeverVariables("HTTP_REFERER")  
 If Where=url Then  
  Call main()  
 Else  
  Response.write("很抱歉,您必須從"url"訪問才能進來!")  
 End if  
End Function  
%>  
%  
Sub main()  
 Response.write("這兒是你要顯示的網頁內容")  
End sub  
%>  
/body>  
/html> 

該方法對防止盜鏈文章、站外提交表單、跨站提交表單還比較有效,對于軟件盜鏈比如.rar.zip.exe等倒沒什么作用。 
不知各位讀者是否有好的主意,呵呵。  
還有一種方法就是用判斷服務器及上一頁的地址來完成。 
復制代碼 代碼如下:
%  
dim from, local  
from = request.ServerVariables("HTTP_REFERER")  
local = request.ServerVariables("SERVER_NAME")  
If mid(from, 8, local)>Len(local) Then  
  response.write "不要從外部提交數據"  
else  
  call main()  
end if  
sub main()  
'你的主體內容  
end sub  
%> 
您可能感興趣的文章:
  • asp 防盜鏈代碼(徹底屏蔽迅雷,旋風,快車下載站內資源)
  • ASP 隱藏下載地址及防盜鏈代碼
  • 使用FSO修改文件夾的名稱實現文件轉移防盜鏈
  • 用Asp隱藏文件路徑,實現防盜鏈 的代碼
  • php下通過偽造http頭破解防盜鏈的代碼

標簽:孝感 平頂山 湖北 馬鞍山 防城港 朝陽 遼陽 四平

巨人網絡通訊聲明:本文標題《asp下載防盜鏈代碼》,本文關鍵詞  asp,下載,防盜,鏈,代碼,asp,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp下載防盜鏈代碼》相關的同類信息!
  • 本頁收集關于asp下載防盜鏈代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 资中县| 虞城县| 九寨沟县| 呼和浩特市| 麻江县| 黔东| 湖南省| 徐州市| 鹤峰县| 弥渡县| 毕节市| 融水| 瑞丽市| 安国市| 比如县| 温州市| 乌鲁木齐市| 泽州县| 淮滨县| 名山县| 松江区| 河北区| 库车县| 华安县| 宁强县| 镇巴县| 南充市| 九江县| 北辰区| 抚州市| 安图县| 勃利县| 游戏| 巴楚县| 乌拉特前旗| 怀仁县| 砀山县| 北海市| 开远市| 定襄县| 兰考县|