本人正在制作论坛中....用虚拟金钱下载软件的功能...如何实现点击按钮下载..

搜狗又招你惹你了……

如果下载时直接连到图片上或是浏览器可以直接打开的文件上就不能下载了！
会直接打开。
这是一个下载程序，可以参考一下

<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
filepath = Request.QueryString("FileNamePath")
filename=request.QueryString("savename")
response.Write(filepath)
response.Write("<br>")
response.Write(filename)
if filepath = "" Then
Response.Write "无效文件名."
Response.End
End if
' 下面是不希望下载的文件
FileExt = Mid(filename, InStrRev(filename, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
Response.Buffer = true
Response.Clear

Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = 1
'Stream.mode=3
Stream.Open
Stream.LoadFromFile Server.MapPath(filepath)

Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & filename

Response.Charset = "UTF-8"
Response.ContentType = ContentType

'While Not Stream.EOS
Response.BinaryWrite Stream.Read'(1024 * 64)
'Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>

[此贴子已经被作者于2007-11-2 10:59:27编辑过]

2003的服务器有下载限制
最大为４Ｍ

这样改：修改windows\system32\inesrv\下的metabase.xml中的参数值， AspBufferingLimit="4194304"
把这个数值改大就可以了。

注意，此文件为系统文件，必须启动到安全模式下操作！

[此贴子已经被作者于2007-11-2 11:00:52编辑过]