<%=title%> - powered by vPanel

--- title: "Flera include gör det något?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/118638-flera-include-gör-det-något" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "voigtann1" published: "2004-12-24T10:54:20.000Z" updated: "2004-12-26T08:15:55.000Z" replies: 12 views: 399 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/118638-flera-include-gör-det-något" --- # Flera include gör det något? ## #1 — voigtann1, 2004-12-24T10:54Z I tråden: försöker jag få {mainpage} att fungera genom att mainpage är en funktion. Problemet är att jag har en include längst upp på sidan med alla funktioner. Om man nu skulle lägga in i reg.exp att include filen ska läggas in också.. kommer sidan gå mycket segare. Fast kommer man då om man har tex en funktion för menyn och mainpage i samma include fil laddas 2 gånger såsom den gör nu? Permalänk: https://www.webforum.nu/p/118638 ## #2 — @nders, 2004-12-24T11:00Z Jag förstår inte vad du menar, men varför ska du inkludera filen med funktionerna två gånger? Permalänk: https://www.webforum.nu/p/1513790 ## #3 — voigtann1, 2004-12-24T11:05Z Om du kollar in så när jag kör 1 st include fil melland \ & \ taggen så tycker jag iallafall inte den funktionen ska köras.. men med resten av koden som finns i tråden ovan. Så laddas funktionen i include filen... vilket är konstigt tycker jag. Permalänk: https://www.webforum.nu/p/1513791 ## #4 — @nders, 2004-12-24T11:30Z Du har alltså en funktion i en includefil. Så långt är jag med. Varför kör du funktionen mer än en gång då? Det verkar inte som att ditt språk är kompatibelt med mitt, för jag förstår aldrig vad du skriver. :) En god jul får du ha i alla fall! :bire Permalänk: https://www.webforum.nu/p/1513796 ## #5 — voigtann1, 2004-12-24T11:33Z Okej... då försöker vi på nytt: ``` <%=title%> - powered by vPanel <% Set strconn = CreateObject("Scripting.FileSystemObject") Function Free(f2) Set objRegExp = New regexp : objRegExp.Global = true : objRegExp.IgnoreCase = true objRegExp.Pattern = "mainpage}" f2 = objRegExp.Replace(f2,mainpage()) free = f2 End Function Set RecSet = strconn.OpenTextFile(server.mappath(DIRECTORY & "default.tpl")) f1 = recset.readall recset.close : set recset = nothing arrtext = split(f1,"{") for i = 0 to ubound(arrtext) response.write free(arrtext(i)) next ' Close down the connection set strconn = nothing %> ``` Inte den bästa koden men ändå i vpanel_scripts/functions.asp har jag alla funktioner som används till sidan. men med den kod som är ovan så gör sidan så att koden körs i även den fil jag har inkluderat i filen. dvs mainpage() funktionen körs på 2 ställen.. vilket jag inte vill. frågan är hur man ska placera all kod för att den ska bara köras en gång.. Har nog aldrig varit bra på att förklara till dig @nders :e god jul får du iallafall ha :bire :birp Permalänk: https://www.webforum.nu/p/1513798 ## #6 — @nders, 2004-12-24T11:43Z Om mainpage() körs på två ställen så beror det på att du kallar på den på två ställen. Kan du inte bara ta bort den ena? :) Permalänk: https://www.webforum.nu/p/1513801 ## #7 — voigtann1, 2004-12-24T11:46Z Det är det det roliga är... jag använder bara mainpage() en gång i functions.asp: ``` function mainpage() Set Obj = CreateObject("Scripting.FileSystemObject") If Obj.FileExists(Server.MapPath("pages/" & Trim(LCase(Request.QueryString("goto"))) & ".asp")) Then Server.Execute "pages/" & Trim(LCase(Request.QueryString("goto"))) & ".asp" Elseif Obj.FileExists(Server.MapPath("browser/htmlfiles/" & Trim(LCase(Request.QueryString("location"))))) Then Server.Execute "browser/htmlfiles/" & Trim(LCase(Request.QueryString("location"))) else Server.execute "pages/news.asp" End if Set Obj = Nothing end function ``` och sen i tpl filen: ``` <%server.execute("vpanel_scripts/banner.asp")%>

Huvudsidan · Nyheter · Plutonen · Befattningsbeskrivning · Bilder · Admin

{mainpage}

Servern genererade sidan på <%Response.Write FormatNumber((Timer() - strStartTimer), 3)%> sekunder.

``` Sen har du default.asp filen redan... sökt i functions.asp då jag kanske har lagt in mainpage() på fler ställen men det finns inte. Permalänk: https://www.webforum.nu/p/1513804 ## #8 — voigtann1, 2004-12-24T21:41Z @nders: ``` objRegExp.Pattern = "mainpage}" f2 = objRegExp.Replace(f2,mainpage()) ``` Har en fråga ang den raden... eller hur så körs inte funktionen där utan den kallas som den ska. tycker det är konstigt att en funktion kör sig själv utan att ha blivit kallad på rätt ställe. Permalänk: https://www.webforum.nu/p/1513876 ## #9 — @nders, 2004-12-25T07:50Z Körs den inte där? Jag kan ingenting om regexp, men jag hade gissat på att den körs där. Varför använder du regexp för att replacea i den funktionen? Jag hade använt "vanliga" replace, och satt citationstecken runt *mainpage()*. mvh Permalänk: https://www.webforum.nu/p/1513961 ## #10 — voigtann1, 2004-12-25T13:47Z kör nu: ``` Function Free(f2) f2 = replace(f2,"mainpage}",mainpage()) free = f2 End Function ``` Samma problem. Permalänk: https://www.webforum.nu/p/1514046 ## #11 — @nders, 2004-12-25T16:04Z Jag förstår inte riktigt vad du håller på med, så det ska nog vara som du gjort. Jag får nog ta och lämna över till någon annan är jag rädd... Permalänk: https://www.webforum.nu/p/1514072 ## #12 — voigtann1, 2004-12-25T16:38Z Om inte du kan det så kan ingen :P om du själv testar koden så ser du resultatet... vilket är extremt konstigt... tror det kan hjälpas med en sub istället? Permalänk: https://www.webforum.nu/p/1514077 ## #13 — @nders, 2004-12-26T08:15Z > **voigtann1 skrev:** > > tror det kan hjälpas med en sub istället? Den enda skillnaden på en sub och en funktion är att suben inte kan returnera något, i övrigt är det samma sak. Så; funkar det inte när du har det i en funktion, då funkar det inte i en sub heller. Permalänk: https://www.webforum.nu/p/1514263 --- Tråden på webben: https://www.webforum.nu/amne/asp/118638-flera-include-gör-det-något