在文件夹img中有a.gif,b.jpg,c.gif...(都是图片文件)
我在页面中通过搜索有几张图片，当点击图片下载按钮想让那几张图片下载到本地。该怎么做？？？
---------------------------------------------------------------
将几块图片打包，点击下载才会生效
或你打开图片后另存为也可以
---------------------------------------------------------------
http://expert.csdn.net/Expert/topic/2931/2931827.xml?temp=.4996912
---------------------------------------------------------------
一起下载下来吗？
给你个单个下载的，改改。
文件名:Download.asp
1
2Dim Stream
3Dim Contents
4Dim FileName
5Dim FileExt
6Const adTypeBinary = 1
7FileName = Request.QueryString("FileName")
8if FileName = "" Then
9Response.Write "无效文件名."
10Response.End
11End if
12' 下面是不希望下载的文件
13FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
14Select Case UCase(FileExt)
15Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
16Response.Write "受保护文件,不能下载."
17Response.End
18End Select
19' 下载这个文件
20Response.Clear
21Response.ContentType = "application/octet-stream"
22Response.AddHeader "content-disposition", "attachment; filename=" & FileName
23Set Stream = server.CreateObject("ADODB.Stream")
24Stream.Type = adTypeBinary
25Stream.Open
26Stream.LoadFromFile Server.MapPath(FileName)
27While Not Stream.EOS
28Response.BinaryWrite Stream.Read(1024 * 64)
29Wend
30Stream.Close
31Set Stream = Nothing
32Response.Flush
33Response.End
使用：Download.asp?FileName=/Files/MY.doc
把你的DOC文件放到根目录Files下，你也可以放到其它地方了。
如：
1<a href="Download.asp?FileName=/Files/MY.doc">点击下载WORD文档</a>
---------------------------------------------------------------
up
---------------------------------------------------------------
1
2strPath = "D:\Progra~1\winrar\rar.exe a"
3Set objWshShell = CreateObject("WScript.Shell")
4strRun = "CMD /C "&strPath&" http://210.46.104.77/e.rar http://210.46.104.77/d.doc"
5strReturn = objWshShell.Run(strRun,1,True)
6Set objWshShell = Nothing