Skicka zip-fil — webForum

oJonesMedlem sedan dec. 200154 inlägg

Frågan22 okt. 2003 19:59#1

Hej!

Jag har följande problem som jag inte vet hur jag ska lösa.
Min root-katalog ser ut så här:
/html/
/private/

I /html/ ligger alla mina publika filer och i /private/ sådant som inte visas publikt.

I /private/ har jag en zip-fil som endast ska kunna nås om man är inloggad och då går via zip.asp. I samma katalog (/private/) har jag bilder som jag streamar ut med hjälp av ADODB.Stream. Bilderna går fint, men när jag vill skicka zip-filen tillstöter problem.

Är det någon som har en lösning?

oJonesMedlem sedan dec. 200154 inlägg

22 okt. 2003 20:22#2

Löste problemet själv:

filnamn = Server.MapPath("..\..\private") & "\zipfiler\" & RecSet("KatalogNamn") & ".zip"

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open() 
objStream.loadFromFile(filnamn)

Browser = Lcase(Request.ServerVariables("HTTP_USER_AGENT"))

If Instr(Broser, "ie") Then
	response.addheader "Content-Disposition", "inline; filename=""galleri2.zip"""
	response.addheader "Cache-Control", "must-revalidate, post-check=0, pre-check=0"
	response.addheader "Pragma", "public"
Else
	response.addheader "Content-Disposition", "attachment; filename=""galleri2.zip"""
	response.addheader "Pragma", "no-cache"
End if
	
Response.ContentType = "application/zip"
			
Response.BinaryWrite(objStream.Read())
	
	
	Response.Write objStream.Read
	
objStream.close()
objStream = null