临沂PC在线-免费的教育教学网络资源-临沂电脑网

 
穿冰点 | 机器狗 | IGM.exe病毒样本 | 免疫补丁 | 威金变种病毒样本 | IGW.exe病毒样本 | 电脑系统发展简史 | 瑞星2007注册码-序列号 | 病毒防疫 | 三联 | hdtach | 硬盘测速 | 锁定IP | RAID模拟器 | 九月的雪病毒样本 | userinit.exe病毒 | ARP病毒样本最新 | 巧用U盘破除XP管理员密码 |
您现在的位置: 临沂电脑网 >> 文章中心 >> 网络专区 >> 正文

盗链我不怕

作者:ykch    文章来源:本站    点击数:    更新时间:2005-7-1
一些不良网站为了不增加成本而扩充自己站点内容,经常盗用其他网站的链接。一方面损害了原网站的合法利益,另一方面又加重了服务器的负担。其实通过ASP技术,这个伤脑筋的问题会很容易得到解决。

  1.实现原理

  将显示下载链接的ASP文件加一个Session变量EnableDown(用户可自定义),只有当用户打开下载网页时才将它设为“enabled”,然后在下载链接对应的ASP文件里检验EnableDown的值,若为“enabled”则允许下载,否则,给出错误提示。

  2.操作步骤

  设置显示下载链接的网页为“view.asp”,在此文件顶部加入以下代码:

  <%

  Session("EnableDown")="enabled"

  %>

  设对应的下载链接为:

  <a href="down.asp?id=1">本地下载</a>

  在down.asp中检验代码为:

  <%

  dim conn,rs,sql,Connstr,DBPath '定义变量

  set conn=Server.CreateObject("ADODB.Connection") '创建链接对象

  DBPath = Server.MapPath("software.mdb") '软件下载链接Access表,表名software,设有两字段id(自动增量)和downsrc(下载实际地址)。

  Connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath '连接字符串

  conn.open Connstr '打开链接

  set rs=Server.CreateObject("ADODB.RecordSet") '创建记录集

  sql="select * from software where id=" &am

[1] [2] 下一页


在本站查看更多关于盗链,链我,我不的文章