[ASP] asp+download

[Claudius Ceteras]

> ich will einen download mit dem folgenden script anstossen. 
> das problem ist:
> mein server ist mit win2003 webedition ausgestattet. es 
> funzen auch alle downloads, aber nur, wenn die datei KLEINER 
> als 1,5 mb ist.
> ist sie grösser, dann wird im downloadfenster nur der name 
> meines scriptes
> (getfile.asp) angezeigt. ich hatte auch schon gegoogelt, aber 
> ausser der info, dass es ein bug im betriebssystem sein, hab 
> ich nicht wirklich viel gefunden.
> 


Probier's mal hier mit:

<%
DownloadFile Server.MapPath("x.png"), "image/png", "new.png"

sub DownloadFile(file, contenttype, newname)
	dim stream, chunksize, data
	chunksize = 10*1024
	Response.ContentType = contenttype
	if newname<>"" then
		Response.AddHeader "Content-Disposition", _
		"attachment; filename=" & newname
	end if
	Set stream = CreateObject("ADODB.Stream")
	stream.Type = 1 'adTypeBinary
	stream.Open
	stream.LoadFromFile file 
	do
	  data = stream.Read(chunksize)
	  if not isNull(data) then Response.BinaryWrite data
	loop while not isNull(data) and Response.IsClientConnected
	stream.Close
	Set stream = Nothing
end sub
%>


Claudius