sniffler
Mitglied
Hallo Leute, ich hab ein kleines Problem mit meiner Sendfile Anwendung.
Der Download wird zwar erzwungen, aber die Größe des files passt nicht. Ausserdem kann man die Datei, die runtergeladen wird nicht öffnen.
Die sendfile.asp und die Datei Harnsaeure.pdf (soll runtergeladen werden) liegen im selben Ordner.
Hier hab ich mal den Code:
Danke für eure Hilfe
Gruß Chico
Der Download wird zwar erzwungen, aber die Größe des files passt nicht. Ausserdem kann man die Datei, die runtergeladen wird nicht öffnen.
Die sendfile.asp und die Datei Harnsaeure.pdf (soll runtergeladen werden) liegen im selben Ordner.
Hier hab ich mal den Code:
Code:
<%
Response.Buffer = TRUE
Response.Clear
Response.Expires = 0
Response.ContentType = "file/zip"
strFileName = "harnsaeure.pdf"
strMyPath = Server.MapPath("./") & "\" & strFileName
Response.AddHeader "Content-Disposition","attachment;filename=" & strFileName
Set objFileSys = Server.CreateObject("Scripting.Filesystemobject")
' --- Ermitteln der Dateigroesse
Set objFile = objFileSys.GetFile(strMyPath)
FileSize = objFile.Size
Set objFile = Nothing
' --- Öffnen der Datei
Set objFile = objFileSys.OpenTextFile(strMyPath, 1, false, -1)
Response.BinaryWrite(objFile.Read(FileSize))
Response.BinaryWrite(objFile.Read(FileSize) & ChrB(0))
Set objFile = Nothing
Set objFileSys = Nothing
Response.Flush
%>
Danke für eure Hilfe
Gruß Chico