AW: [ASP] Download von TXT-Files mit speicher-unter Dialog

[Andreas Roth]

Der ASP-Quellcode der die Datei ausliest darf nicht in HTML eingebettet
sein.
Der bereich steht für sich alleine, die ASP Datei wird zur Textdatei.

> Hi All!
> 
> Ich hab folgendes Problem:
> Ich möchte auf meiner Website .txt-Files zum download 
> anbieten, es soll aber
> der speichern-unter Dialog erscheinen und nicht im Browser 
> geöffnet werden.
> Mit rechter Mausstaste und speichern-unter will ich den 
> Kunden ersparen.
> Nun habe ich folgendes gefunden:
> 
> http://www.aspfaq.de/index.asp?RID=5&FID=88&SFI=1&ELE=7663&OPI
> D=0&ORID=5&OSS
> T=&OSFI=1
> 
> Nun habe ich folgendes Problem mit diesem Code:
> Nachdem ich ihn eingebunden habe, und eine txt-datei darüber 
> abspeichere,
> habe ich tollerweise den Code der HTML-Seite, auf dem die 
> File angeboten
> wird, mit in der Text-Datei !??
> 
> Ich hab das ganze so eingebaut:
> 
> Den Code zum downloaden habe ich Funktion gesteckt die über n =
Include
> eingebunden wird:
> [fctFile.asp]
> Function saveFileAs(strPath,StrFileName)
> 
> 	Response.Buffer = TRUE
> 	Response.Clear
> 	Response.Expires = 0
> 	Response.ContentType = "application/msword"
> 	Response.AddHeader 
> "Content-Disposition","attachment;filename=" &
> strFileName
> 
> 	Set objFileSys = 
> Server.CreateObject("Scripting.Filesystemobject")
> 
> 		' --- Ermitteln der Dateigroesse
> 		strPath = strPath & strFileName
> 		Set objFile = objFileSys.GetFile(strPath)
> 			FileSize = objFile.Size
> 		Set objFile = Nothing
> 
> 		' --- =D6ffnen der Datei
> 		Set objFile = objFileSys.OpenTextFile(strPath, 
> 1, false, -1)
> 			Response.BinaryWrite(objFile.Read(FileSize))
> 		Set objFile = Nothing
> 
> Set objFileSys = Nothing
> 	Response.Flush
> End Function
> 
> und so rufe ich das ding dann auf:
> [in dateiverwaltung.asp]
> 
> 	if request.QueryString("filename") <> "" then
> 		call
> saveFileAs(verlagRoot&session("verzeichnisse")&"\",request.QueryString
> ("filename"))
> 	end if
> 
> 
> Habt ihr ne Idee was da Faul sein könnte?
> Oder habt ihr ne alternative die richtig funktioniert ?
> Sendet eure Anworten bitte an b_wolf@gmx.net, da der 
> ver***issene Mailserver
> in unsrer Firma immer noch nicht läut :/
> 1000 dank schonmal,
> grüße Ben
> 
> _______________________________________________
> ActiveServerPages Mailingliste, Postings senden an:
> ActiveServerPages@glengamoi.com
> An-/Abmeldung und Suchfunktion unter:
> http://www.glengamoi.com/mailman/listinfo/activeserverpages
>