ASP ska köras i fil

ASP

31 svar · 376 visningar · startad av Erik Juhlin · sida 2 av 2

Trådstarten, av Erik Juhlin

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 hela trådstarten →
Medlem sedan maj 200010 687 inlägg
#21

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? :)

Medlem sedan dec. 19998 577 inlägg
Medlem sedan juni 200032 967 inlägg
#23

vide, där har du fel. det är erik nordell som är mannen, myten, konceptet du tänker på. :)

Medlem sedan dec. 19998 577 inlägg
#24

Såg det... redigerade mitt inlägg illa kvickt... :e

Medlem sedan maj 200010 687 inlägg
#25

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! :)

Medlem sedan juni 200032 967 inlägg
#26

det borde det göra.
men stäng objekten efter dig bara...

Medlem sedan maj 200010 687 inlägg
#27

Hur stänger man det? Ser inte det på den där sidan..

Medlem sedan juni 200032 967 inlägg
#28

jag hade nog gett mig på en 'set myfileobj=nothing' typ.

mvh,

Medlem sedan maj 200010 687 inlägg
#29

I mitt fall blir det så här då?

Set filesys=nothing
Medlem sedan juni 200032 967 inlägg
#30

jupps, eftersom det är vad ditt objekt heter! :)

Medlem sedan maj 200010 687 inlägg
#31

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
%>
Medlem sedan juni 200032 967 inlägg
#32

gravey! :)

371 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a
123 ms — deklarationer (db)
119 ms — hämta statistik (db)
125 ms — hämta tråd, inlägg och bilagor (db)
118 ms — ändringar (db)