Advertisement
Advertisement
| 05.07.2008 at 10:11AM PDT, ID: 23383527 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: |
strClientFileName = Request.QueryString("File")
Response.Write strClientFileName
strServerFilePath = conDownloadFolder & "\" & strClientFileName
strMIMEContentType = "text/plain"
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFS.OpenTextFile(strServerFilePath, 1)
strFileData = objStream.ReadAll()
Call objStream.Close()
Set objStream = Nothing
Set objFS = Nothing
If Response.Buffer Then
Call Response.Clear
Response.Buffer = False
End If
Response.Expires = -100
Response.CacheControl = "no-cache"
Response.ContentType = strMIMEContentType
Call Response.AddHeader("Pragma", "no-cache")
Call Response.AddHeader("Content-Disposition", "attachment; filename=" & strClientFileName)
'this works inline
'Call Response.AddHeader("Content-Disposition", "inline; filename=" & strClientFileName)
Call Response.Write(strFileData)
Session("HttpDownload.TransferSeconds") = DateDiff("s", dtTransferStart, Now())
|