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

主頁 > 知識庫 > ASP 隱藏下載地址及防盜鏈代碼

ASP 隱藏下載地址及防盜鏈代碼

熱門標簽:濟源電銷外呼系統線路 石家莊慧營銷外呼系統 武穴地圖標注 創意電話機器人 梧州市地圖標注 地圖標注陽江 外呼線路批發 世界地圖標注了哪些城市 java外呼系統是什么
復制代碼 代碼如下:

% FunctIon DownloadFIle(StrFIle)
StrFIlename=StrFIle
Response.Buffer=True
Response.Clear
Set S=Server.CreateObJect("ADODB.Stream")
S.Open
S.Type=1
on Error Resume Next
Set Fso=Server.CreateObJect("ScrIptIng.FIleSystemObJect")
If Not Fso.FIleExists(StrFIleName) Then
From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
If MId(From_Url,8,len(Serv_Url)) > Serv_Url Then
Response.WrIte "該文件不存在或者已經刪除."
Response.End
End If
Response.RedIrect Request.ServerVarIables("HTTP_REFERER")
Response.End
End If
FileExt=MId(StrFIlename,InStrRev(StrFIleName, ".")+1)
Select Case UCase(FIleExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB", "PHP", "JSP", "SHTML", "HTML", "HTM", "TV", "DATA"
From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
If MId(From_Url,8,len(Serv_Url)) > Serv_Url Then
Response.WrIte "該文件不存在或者已經刪除."
Response.End
End If
Response.RedIrect Request.ServerVarIables("HTTP_REFERER")
Response.End
End Select
Set F=Fso.GetFIle(StrFIlename)
IntFIlelength=F.SIze
s.LoadFromFIle(StrFIlename)
If Err Then
From_Url=Cstr(Request.ServerVarIables("HTTP_REFERER"))
Serv_Url=Cstr(Request.ServerVarIables("SERVER_NAME"))
If MId(From_Url,8,len(Serv_Url)) > Serv_Url Then
Response.WrIte "該文件數據不完整或許已損壞."
Response.End
End If
Response.RedIrect Request.ServerVarIables("HTTP_REFERER")
Response.End
End If
Set Upload=Server.CreateObJect("PersIts.Upload")
If Upload Is Nothing Then
Response.AddHeader "Content-DIsposItIon","attachment; FIlename="F.Name
Response.AddHeader "Content-Length",IntFilelength
Response.CharSet="UTF-8"
Response.ContentType="application/x-download"
Response.BinaryWrite S.Read
Response.Flush
S.Close
Set s=NothIng
Else
Upload.SendBinary StrFIlename,True,"application/x-download",False
End If
End FunctIon
%>

調用
復制代碼 代碼如下:

%Call DownloadFIle("下載地址")%>
您可能感興趣的文章:
  • IIS防盜鏈 ISAPI Rewrite圖片防盜鏈規則寫法
  • ASP.NET 圖片加水印防盜鏈實現代碼
  • Apache下MP3 防盜鏈的解決辦法
  • php下通過偽造http頭破解防盜鏈的代碼
  • php防盜鏈的常用方法小結
  • asp.net下結合HttpHandler實現圖片防盜鏈
  • 破解圖片防盜鏈的代碼(asp/php)測試通過
  • asp 防盜鏈代碼(徹底屏蔽迅雷,旋風,快車下載站內資源)
  • Asp.net 圖片文件防盜鏈(尊重勞動成果)及BeginRequest事件學習

標簽:南寧 滁州 揭陽 淮北 來賓 迪慶 甘南 唐山

巨人網絡通訊聲明:本文標題《ASP 隱藏下載地址及防盜鏈代碼》,本文關鍵詞  ASP,隱藏,下載,地址,及,防盜,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《ASP 隱藏下載地址及防盜鏈代碼》相關的同類信息!
  • 本頁收集關于ASP 隱藏下載地址及防盜鏈代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 蕲春县| 铁岭县| 阿坝县| 铁岭市| 晋中市| 嘉义县| 邯郸县| 合作市| 文山县| 大兴区| 定安县| 安阳县| 潮州市| 阿拉善右旗| 富裕县| 巴青县| 黄骅市| 宁阳县| 宣威市| 凤翔县| 壶关县| 宣化县| 乌恰县| 洛浦县| 云林县| 张家港市| 大邑县| 利辛县| 榆中县| 拉萨市| 和平区| 绍兴市| 尚志市| 广水市| 惠水县| 织金县| 山阳县| 海原县| 新绛县| 永寿县| 馆陶县|