28,409
社区成员




FilesDownLoad.asp
<%
Dim strOutFileName
Dim fso 'FSO
Dim fs
Dim f
Dim i
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fs = fso.GetFolder("D:\test").Files
i=0
For Each f In fs
i=i+1
strOutFileName = "/download.asp?ReportName=" & "test" & "_" & Cstr(i) & _
"&ReportPath=" & "D:\test" & "/" & f.Name
%>
<BR><BR><A name="reportlink" href="<%= strOutFileName %>"><%= "test" & "_" & Cstr(i)%></A>
<%
Next
%>
download.asp
<%
Dim objStream
Const ADO_TYPE_BINARY = 1
Select Case Right(Request("ReportPath"), 4)
Case ".xls"
Response.ContentType = "application/vnd.ms-excel"
Case ".csv"
Response.ContentType = "application/x-csv"
Case Else
Response.ContentType = "text/plain"
End Select
Response.AddHeader "content-disposition","attachment;filename=" & Request("ReportName") & Right(Request("ReportPath"), 4)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = ADO_TYPE_BINARY
objStream.LoadFromFile Request("ReportPath")
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
%>