Flitig postare
|
|
Reg.datum: May 2004
Inlägg: 358
|
|
Flitig postare
Reg.datum: May 2004
Inlägg: 358
|
Har inte lösningen åt dig för jag använder en komponent men du kanske kan fila ihop en kod med hjälp utav detta :
vFileName = Request.Querystring("filnamn")
If InStr(Request.Servervariables ("HTTP_USER_AGENT"),"5.5") > 0 Then
Response.Addheader "Content-Disposition", "inline; filename=" & vFileName
Else
Response.Addheader "Content-Disposition", "attachment; filename=" & vFileName
End If
' Filsystemet laddar ner filen :
set oFS = Server.CreateObject("SoftArtisans.FileManager")
set oF = oFS.GetFile(vFullPath)
Response.AddHeader "Content-Length", oF.Size
set oF = nothing
set oFS = nothing
' ** Fixar så nerladdning i IE 5.5 fungerar : **
If InStr(Request.Servervariables ("HTTP_USER_AGENT"),"5.5") > 0 Then
Response.ContentType = "application/download"
Else
Response.ContentType = "application/x-msdownload"
End If
Response.CacheControl = "public"
Set oDownload = Server.CreateObject("SoftArtisans.FileUp")
oDownload.TransferFile vFullPath
|