Avatar billede bbe1379 Nybegynder
06. maj 2001 - 11:32 Der er 7 kommentarer og
1 løsning

Include absolut sti?

Kan det lade sig gøre at include en fil i et ASP-doc med en absolut sti?

A\'lá

<!-- #include file=\"c:/databaser/include.inc\" -->

Hvis ikke...hvem har så en god idé til at includere en tekststreng fra en fil, der ikke ligger i en web-tilgængelig folder
Avatar billede theartist Nybegynder
06. maj 2001 - 11:36 #1
<!-- #include virtual=\"bla/bla/bla/bla.asp\" --> så starter den i roden af din webfolder og så arbejder du dig frem derfra.
Avatar billede bjarke-b Nybegynder
06. maj 2001 - 11:36 #2
<!-- #include virtual=\"c:/databaser/include.inc\" -->
Avatar billede bjarke-b Nybegynder
06. maj 2001 - 11:37 #3
Daaamn
Avatar billede theartist Nybegynder
06. maj 2001 - 11:37 #4
sorry det var vist ikke helt det svar du ledte efter..
Avatar billede dudal Nybegynder
06. maj 2001 - 12:02 #5
Prøv at bruge denne funktion:

Function GetFile(path)
    Set FS = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set F = FS.OpenTextFile(path)
    If F.AtEndOfStream = False Then
        GetFile = F.ReadAll
    End If
    F.Close
    Set FS = Nothing
End Function

Kald den med GetFile(\"d:\\www\\site\\fil.ext\") så returnerer den indholdet af filen.

/dudal
Avatar billede no_doubt Nybegynder
06. maj 2001 - 13:54 #6
Jeg bruger bare denne : <!--#include Virtual=\"/banner/banner.asp\" -->
Avatar billede bbe1379 Nybegynder
06. maj 2001 - 15:17 #7
theartist>..som skrevet: \"..fil, der ikke ligger i en web-tilgængelig folder\"

bjarke-b> virker ikke

dudal> Der er ASP-kode i filen som skal eksekveres. Filen indeholder en tekststren, som skal bruges i et Array...måske har du et bud til dette. Evt. finde første linie i filen, og fylde array\'et med den - ku\' du lave lidt kode til det?

no_doubt>..som skrevet: \"..fil, der ikke ligger i en web-tilgængelig folder\"
Avatar billede bbe1379 Nybegynder
06. maj 2001 - 16:55 #8
jeg løste den med:

Dim filesys,txtfile,line,skip,ThisFile

ThisFile = \"e:\\file.inc\"

Set filesys = CreateObject(\"Scripting.FileSystemObject\")
Set txtfile = _
filesys.OpenTextFile(ThisFile,1, 0)
txtfile.SkipLine
var0= txtfile.ReadLine
var0= Right(var0,Len(var0)-10)
var0= Left(var0,Len(var0)-1)
txtfile.SkipLine
txtfile.SkipLine
var1= txtfile.ReadLine
var1= Right(var1,Len(var1)-10)
var1= Left(var1,Len(var1)-1)
var2= txtfile.ReadLine
var2= Right(var2,Len(var2)-10)
var2= Left(var2,Len(var2)-1)
var3= txtfile.ReadLine
var3= Right(var3,Len(var3)-10)
var3= Left(var3,Len(var3)-1)
txtfile.close
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester