知识大全 ASP隐藏下载地址及防盗代码

Posted 2022-07-17 内容

篇首语：带不走四季的风，就卷走一路的风景;遇不到心动的人，就孤身潇洒走四方。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP隐藏下载地址及防盗代码相关的知识，希望对你有一定的参考价值。

ASP隐藏下载地址及防盗代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　以下为引用的内容 <% FunctIon DownloadFIle(StrFIle) StrFIlename=StrFIle Response Buffer=True Response Clear Set S=Server CreateObJect("ADODB Stream") S Open S Type= 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 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 " ")+ ) 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 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 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 " 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 %>

　　 调用

相关参考

知识大全 ASP.NET防盗链演示代码

ASP.NET防盗链演示代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　<%@WebH

知识大全 ASP.NET MVC和代码隐藏文件

ASP.NETMVC和代码隐藏文件  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　ASPNETM

知识大全 ASP和C#隐藏文件下载路径的方法

ASP和C#隐藏文件下载路径的方法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！ &nb

知识大全 asp 获取地址栏参数代码

　　asp获取地址栏参数代码============================================　　函数名JoinChar作 用向地址中加入?或&参 数

知识大全 解析获取优酷视频真实下载地址的PHP源代码

解析获取优酷视频真实下载地址的PHP源代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！lishi

知识大全 ASP 获取腾讯IP地址的接口程序代码

ASP获取腾讯IP地址的接口程序代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　<sc

知识大全 asp完整登陆代码

　　asp完整登陆代码<%optionexplicit强制浏览器重新访问服务器下载页面而不是从缓存读取页面ResponseBuffer=TrueResponseExpires=ResponseE

知识大全 JBoss Tools简介及下载地址

JBossTools简介及下载地址  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　JBossTo

知识大全 asp.net 手机号码所在地查询实现代码

　　用浏览器打开手机号码查询的网站同以上步骤找到他调用的地址最后编写代码如下　　代码如下usingSystem;usingSystemWindowsForms;usingSystemXml;names

知识大全 防止access数据库被下载的代码

<%  Dim DBRSSQL  DB = "DBasp"  ’这里改成你的数据库后缀一定要是asp&n