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