下载区域， 弹出窗口， 提示保存或打开，而不是直接打开，（在安装相关软件的情况下）。 修改后， getdown.asp代码如下：
<!--#include file="../config.asp"-->
<%
'2009-5-12 Tmq f为文件物理地址，n为文件名
Function Download(f,n)
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName=n
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
name=Mid(FileName, InStrRev(FileName, "/")+1)
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&name
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile f
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
End Function
if session("y234vJser23434")<>"1" then
response.redirect "../member/sign-in.asp"
response.end
end if
id=request.querystring("id")
id=cint(id)
call opendb(1)
set rs=server.createobject("adodb.recordset")
rs.open "select fileurl, downname from down where id="&id,conn,1,1
if not rs.eof then
fileurl="../"&rs("fileurl")
call download(server.MapPath(fileurl),fileurl)
else
response.write "File not exist,please contact webmaster"
end if
set rs=nothing
call closedb()
%>