det kan godt være der er flere hundrede filer, men eftersom includes bliver eksekveret før scripts, er det ikke muligt at bruge en variabel i din include, så select case er den bedste løsning.
en anden ting er at sikkerhedsmæssigt er det en dum ide at kalde dem .inc eftersom hvis man skriver filnavnet i adressen vil den blive downloadet. du bør i stedet kalde dem .asp
Glem alt om at include direkte - det kan ikke lade sig gøre. Det man i stedet kan gøre er at lave en fil som indeholder include tags, det giver lidt mere diskaktivitet men det virker.
Denne kode opretter en fil der includer tre filer:
Og her er funktionen virtualInclude som opretter filen med include tags etc.
<% Function virtualInclude(theFiles) Dim fso, f, fList, i Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateTextFile(Server.MapPath("temp.asp"),True) fList = Split(theFiles," ") For i = 0 to UBound(fList) f.WriteLine "<!--#include file='" & fList(i) & "'-->" Next f.Close End Function %>
Husk at scriptet skal slette temp.asp når du har includet den.
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.