31 svar · 336 visningar · startad av Erik Juhlin · sida 2 av 2
Jag använder den här koden på några sidor för att inkludera filer: <% kategori = Request.QueryString("kategori") & "/" If Request.QueryString("kategori") = "" Then kategori = "" End If sida = Request.QueryString("sida") If Request.QueryString("sida") = "" Then sida = "default" End If Path = Server.MapPath(kategori & sida & ".inc") Set FilSys = Server.CreateObject("Scripting.FileSystemObject")
Läs frågan i sin helhet →Det senare låter bättre. Att man kollar om filen finns och om den gör det så körs server.execute och om inte så kommer texten..
Någon som kan hjälpa mig med det? :)
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
[Redigerat av Erik Juhlin den 16 feb 2001]
Kolla här: <A HREF="http://www.devguru.com/Technologies/vbscript/quickref/filesystemobject_fileexists.html" TARGET=_blank>http://www.devguru.com/Technologies/vbscript/quickref/filesystemobject_fileexists.html\[/ URL]
------------------
Nu har du sjungit på sista refrängen
[Jourhavande Vide</A>
[Redigerat av Vide den 16 feb 2001]](http://www.webeye.nu)
vide, där har du fel. det är erik nordell som är mannen, myten, konceptet du tänker på. :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
Såg det... redigerade mitt inlägg illa kvickt... :e
------------------
Nu har du sjungit på sista refrängen
Jourhavande Vide
Så detta skulle funka då?
<%
kategori = Request.QueryString("kategori") & "/"
If Request.QueryString("kategori") = "" Then
kategori = ""
End If
sida = Request.QueryString("sida")
If Request.QueryString("sida") = "" Then
sida = "default"
End If
Set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists(kategori & sida & ".asp") Then
server.execute(kategori & sida & ".asp")
Else
%>Filen finns inte..:(<%
End If
%>
Inga problem som skulle kunna uppstå?
Redigering: Såg en rolig sak i den här tråden. Alla använder Win2k och IE5.5! :)
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
[Redigerat av Erik Juhlin den 16 feb 2001]
det borde det göra.
men stäng objekten efter dig bara...
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
Hur stänger man det? Ser inte det på den där sidan..
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
jag hade nog gett mig på en 'set myfileobj=nothing' typ.
mvh,
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
I mitt fall blir det så här då?
Set filesys=nothing
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
jupps, eftersom det är vad ditt objekt heter! :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
Tack, då var allt klart! :)
Redigering: Blev så här nu.. :)
<%
kategori = Request.QueryString("kategori") & "/"
If Request.QueryString("kategori") = "" Then
kategori = ""
End If
sida = Request.QueryString("sida")
If Request.QueryString("sida") = "" Then
sida = "index"
End If
Set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\clients\juhlin.nu\wwwroot\xhtml\" & kategori & sida & ".asp") Then
server.execute(kategori & sida & ".asp")
Else
%>Filen finns inte..:(<%
End If
Set filesys=nothing
%>
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
[Redigerat av Erik Juhlin den 16 feb 2001]
[Redigerat av Erik Juhlin den 16 feb 2001]
gravey! :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>