asp 带地址栏参数下载

来源：百度知道 编辑：UC知道 时间：2024/09/19 16:45:44
比如一个下载链接：127.0.0.1/abc.asp?a=1
那么abc.asp如何做到能下载文件的？也就是防盗链

<%
Response.Buffer = true
Response.Clear

dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
'*********************************************调用时传入的下载文件名
Dname=trim(request("n")) '可从数据库读取
'******************************************************************
If Dname<>"" Then
'******************************下载文件存放的服务端目录
url=server.MapPath("/")&"\"&Dname
'***************************************************
End If

Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name