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
