also ich habe nun mal folgendes zum testen gemacht.
ich habe eine datei tom.txt in mein root-verzeichnis kopiert.
die funktion sieht so aus:
function EmbedFileSimple(sFilename)
Dim fso, f, s, iWriteFlag
Set fso = CreateObject("Scripting.FileSystemObject")
pfad = Session("Pfad")&sFilename
Set f = fso.OpenTextFile(Server.Mappath("tom.txt"), CFORREADING)
EmbedFileSimple = f.ReadAll
f.close
End function
wenn ich nun
ausgabe = EmbedFileSimple(xy)
und
response.write(ausgabe)
aufrufe, gibt er mit einfach nicht aus, obwohl der inhalt der datei:
"nur mal so ein versuch" ist...
habe ich was �bersehen???
----- Original Message -----
From: Hubert Daubmeier <[EMAIL PROTECTED]>
To: AspGerman Kaffeehaus <[EMAIL PROTECTED]>
Sent: Tuesday, October 01, 2002 1:15 PM
Subject: [aspdecoffeehouse] Re: textdatei einbinden...
Hier mal ein Beispiel aus meiner Sammlung. Gedacht um fertige HTML
Dateien in anderen ASP-Scripten einzubinden. F�r reinen Text w�re es
noch einfacher (siehe zweite Function). �bergabe des Dateinamens in
Querystring (per Einzeiler programmiert), aus Cookies, und div. anderen
Quellen ...
Wie man den aufruft muss ich nicht demonstrieren - oder ;-)
Sub EmbedFile(sFilename)
Dim fso, f, s, iWriteFlag
Const CFORREADING = 1
Const CVBTEXTCOMPARE = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(sFilename), CFORREADING)
Do While Not f.AtEndOfStream
s = f.ReadLine
if instr(1, s, "<body", CVBTEXTCOMPARE) > 0 then
iWriteFlag = true
elseif instr(1, s, "</body", CVBTEXTCOMPARE) > 0 then
iWriteFlag = false
else
if iWriteFlag Then
response.write s & vbcrlf
End If
End If
Loop
f.close
End Sub
Sub EmbedFileSimple(sFilename)
Dim fso, f, s, iWriteFlag
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(sFilename), CFORREADING)
EmbedFileSimple = f.ReadAll
f.close
End Sub
--
Viele Gr��e
Hubert Daubmeier
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
