<%@ Language=VBScript codepage=936 %>
<% Option Explicit %>
<%
Dim filePath, dataStream, BytesStream
filePath = request.queryString("path")
set BytesStream = server.createobject("ADODB.Stream") With BytesStream
.Open
.Type = 2
.LoadFromFile filePath
dataStream = .Readtext
.Close
End With set BytesStream=nothing Response.AddHeader "content-disposition","attachment; filename="+ Mid(filePath, InStrRev(filePath, "\")+1)
Response.ContentType="application/octet-stream"
Response.BinaryWrite dataStream
%>
<% Option Explicit %>
<%
Dim filePath, dataStream, BytesStream
filePath = request.queryString("path")
set BytesStream = server.createobject("ADODB.Stream") With BytesStream
.Open
.Type = 2
.LoadFromFile filePath
dataStream = .Readtext
.Close
End With set BytesStream=nothing Response.AddHeader "content-disposition","attachment; filename="+ Mid(filePath, InStrRev(filePath, "\")+1)
Response.ContentType="application/octet-stream"
Response.BinaryWrite dataStream
%>
Response.AddHeader("Content-Disposition", "attachment; filename=" + filename);