asp基于目录的虚拟主机ASP虚拟主机如何防图片盗链

asp基于目录的虚拟主机  时间:2022-02-07  阅读:()

asp实现某个功能。谢谢各位了。不能操作服务器,是虚拟主机

<% if Request.ServerVariables("SERVER_NAME")="" then response.redirect "/news/index.asp" else response.redirect "/news/" end if %>

ASP虚拟主机如何防图片盗链

· 我们在管理网站文件时,能把扩展名相同的文件放在同一个目录下,起一个比较特别名字,例如放pdf文件目录为the_pdf_file_s,把下面代码另存为down.asp,他的网上路径为 /down.asp,我们就能用// /down.asp?FileName=51windows.pdf来下载这个文件了,而且下载者无法看到这个文件实际下载路径的!在down.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 then     response.write "非法链接!" ’防止盗链     response.end     end if          if Request.Cookies("Logined")="" then     response.redirect "/login.asp" ’需要登陆!     end if     Function GetFileName(longname)’/folder1/folder2/file.asp=>file.asp     while instr(longname,"/")     longname = right(longname,len(longname)-1)     wend     GetFileName = longname     End Function     Dim Stream     Dim Contents     Dim FileName     Dim TrueFileName     Dim FileExt     Const adTypeBinary = 1     FileName = Request.QueryString("FileName")     if FileName = "" Then      Response.Write "无效文件名!"      Response.End     End if     FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)     Select Case UCase(FileExt)      Case "ASP", "ASA", "ASPX", "ASAX", "MDB"      Response.Write "非法操作!"      Response.End     End Select     Response.Clear     if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then     Response.ContentType = "image/*" ’对图像文件不出现下载对话框     else     Response.ContentType = "application/ms-download"     end if     Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))     Set Stream = server.CreateObject("ADODB.Stream")     Stream.Type = adTypeBinary     Stream.Open     if lcase(right(FileName,3))="pdf" then ’设置pdf类型文件目录     TrueFileName = "/the_pdf_file_s/"&FileName     end if     if lcase(right(FileName,3))="doc" then ’设置DOC类型文件目录     TrueFileName = "/my_D_O_C_file/"&FileName     end if     if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then     TrueFileName = "/all_images_/"&FileName ’设置图像文件目录     end if     Stream.LoadFromFile Server.MapPath(TrueFileName)     While Not Stream.EOS      Response.BinaryWrite Stream.Read(1024 * 64)     Wend     Stream.Close     Set Stream = Nothing     Response.Flush     Response.End     %>  

本地图片,音乐等ASP防盗链代码(asp)                  以下是引用片段:

以下是引用片段: <%     ’定义函数,用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"))’就是你读取存在本地的文件,防止被  别人知道真实路径盗连的。          %> 

 

这希望对你有所帮助!!!

妮妮云(30元),美国300G防御 2核4G 107.6元,美国高速建站 2核2G

妮妮云的来历妮妮云是 789 陈总 张总 三方共同投资建立的网站 本着“良心 便宜 稳定”的初衷 为小白用户避免被坑妮妮云的市场定位妮妮云主要代理市场稳定速度的云服务器产品,避免新手购买云服务器的时候众多商家不知道如何选择,妮妮云就帮你选择好了产品,无需承担购买风险,不用担心出现被跑路 被诈骗的情况。妮妮云的售后保证妮妮云退款 通过于合作商的友好协商,云服务器提供2天内全额退款,超过2天不退款 物...

免费注册宝塔面板账户赠送价值3188礼包适合购买抵扣折扣

对于一般的用户来说,我们使用宝塔面板免费版本功能还是足够的,如果我们有需要付费插件和专业版的功能,且需要的插件比较多,实际上且长期使用的话,还是购买付费专业版或者企业版本划算一些。昨天也有在文章中分享年中促销活动。如今我们是否会发现,我们在安装宝塔面板后是必须强制我们登录账户的,否则一直有弹出登录界面,我们还是注册一个账户比较好。反正免费注册宝塔账户还有代金券赠送。 新注册宝塔账户送代金券我们注册...

无法忍受旧版不兼容PHP7+主题 更换新主题

今天父亲节我们有没有陪伴家人一起吃个饭,还是打个电话问候一下。前一段时间同学将网站账户给我说可以有空更新点信息确保他在没有时间的时候还能保持网站有一定的更新内容。不过,他这个网站之前采用的主题也不知道来源哪里,总之各种不合适,文件中很多都是他多年来手工修改的主题拼接的,并非完全适应WordPress已有的函数,有些函数还不兼容最新的PHP版本,于是每次出现问题都要去排查。于是和他商量后,就抽时间把...

asp基于目录的虚拟主机为你推荐
云虚拟主机价格服务器价格欣诚香港虚拟主机什么是香港虚拟主机?360虚拟主机虚拟机越来越大国外虚拟主机哪家好国外虚拟主机排名域名和虚拟主机什么是虚拟主机与域名解析虚拟主机空间商空间,虚拟主机到哪里代理比较好一点,数据库是不是比较麻烦的事情,尤其是有的程序用到组件的?星外虚拟主机系统Powered By StarOut FreeHost System 3.8 这个系统怎么用如何设置虚拟主机如何使用虚拟机上海千兆虚拟主机云虚拟主机可以增加带宽吗?哪家云虚拟主机好?美国虚拟主机99idc哪个美国虚机好些
台湾主机 域名网 php主机租用 域名服务器是什么 域名服务dns的主要功能为 域名主机基地 域名主机管理系统 warez softlayer suspended lamp配置 灵动鬼影 193邮箱 国外免费全能空间 刀片式服务器 什么是服务器托管 网络空间租赁 免费phpmysql空间 1美金 搜索引擎提交入口 更多