asp 点击直接下载文件和图片-示例

<%

Response.Buffer = true

Response.Clear

dim url,DownName

Dim fso,fl,flsize

dim Dname

Dim objStream,ContentType,flName,isre,url1

DownName=Request.QueryString("DownName") '在这里接受参数

paths =server.MapPath(DownName)

If paths<>"" Then

url=paths

End If

Set fso=Server.CreateObject("Scripting.FileSystemObject")

Set fl=fso.getfile(url)

flsize=fl.size

flName=fl.name

Set fl=Nothing

Set fso=Nothing

%>

<%

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = 1

objStream.LoadFromFile url 

Select Case lcase(Right(flName, 4)) 'Select部分是判断文件的扩展名，在下面有介绍

Case ".asf"

C

Case ".avi"

C

Case ".doc"

C

Case ".zip"

C

Case ".xls"

C

Case ".gif"

C

Case ".jpg", "jpeg"

C

Case ".wav"

C

Case ".mp3"

C

Case ".mpg", "mpeg"

C

Case ".rtf"

C

Case ".htm", "html"

C

Case ".txt"

C

Case Else

C

End Select

Response.AddHeader "Content-Disposition", "attachment; filename=" & flName

Response.AddHeader "Content-Length", flsize

Response.Charset = "UTF-8"

Response.ContentType = ContentType

Response.BinaryWrite objStream.Read

Response.Flush

response.Clear()

objStream.Close

Set objStream = Nothing

%>