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

主頁 > 知識庫 > 防盜鏈接ASP函數

防盜鏈接ASP函數

熱門標簽:地圖標注宅基地 外呼系統還用卡么 地圖標注服務哪家好 騰訊地圖標注商戶關閉 長沙防封電銷卡品牌 西寧公司外呼系統平臺 武漢營銷電話機器人軟件 徐州人工智能電銷機器人好用嗎 智能電銷機器人適用于哪些行業
簡單介紹下功能吧:使用了ASP的一個對象ServerVariables(服務器環境變量),通過這個環境變量可以獲取到真正的下載地址再通過一些簡單的VBS內置函數破壞其真正地址的完整性。達到欺騙下載軟件的功能。現附上源碼提供大家學習。
復制代碼 代碼如下:

% 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("DownloadFIle")%>。
您可能感興趣的文章:
  • springmvc 獲取@Requestbody轉換的異常處理方式
  • 解決springmvc整合Mybatis的Log4j日志輸出問題
  • springboot與springmvc基礎入門講解
  • SpringMVC如何獲取表單數據(radio和checkbox)
  • springMVC盜鏈接詳解

標簽:鷹潭 普洱 荊門 運城 雅安 通遼 巴彥淖爾 通化

巨人網絡通訊聲明:本文標題《防盜鏈接ASP函數》,本文關鍵詞  防盜,鏈接,ASP,函數,防盜,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《防盜鏈接ASP函數》相關的同類信息!
  • 本頁收集關于防盜鏈接ASP函數的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 延吉市| 韩城市| 革吉县| 炎陵县| 明水县| 永兴县| 西华县| 富宁县| 遂昌县| 兴化市| 辉南县| 珲春市| 宁海县| 扬州市| 青浦区| 金阳县| 隆子县| 长丰县| 林芝县| 广丰县| 石城县| 安岳县| 西乌| 弥勒县| 县级市| 高台县| 汪清县| 邵阳市| 邢台市| 雷州市| 达孜县| 水富县| 嘉兴市| 勃利县| 嘉祥县| 嵊泗县| 麻城市| 胶南市| 武冈市| 靖西县| 内江市|