点击按钮下载...求助... - 编程论坛

#2

tianyu1232007-11-01 18:31

#3

zalem2007-11-01 19:20

先谢了

#4

multiple19022007-11-01 20:42

以下是引用tianyu123在2007-11-1 18:31:23的发言：
<input type=button name=b1 value="下载" onclick="location.href='http://lccnc.skycn.com/down/sogou_pinyin_3f.zip';">

搜狗又招你惹你了……

#5

放任一切2007-11-02 10:55

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

<%
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编辑过]

#6

放任一切2007-11-02 10:56

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

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

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

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

#7

zalem2007-11-04 18:48

5楼的更好...谢谢