23. juni 2005 - 13:28Der er
18 kommentarer og 1 løsning
Load af side afhængig af dagen - med mere
Hej
Nogen der hurtigt kan vise mig et script som opfylder følgende betingelser:
1. Hvis der i "roden" af serveren (der hvor index.html er placeret normalt) findes en fil med navnet "kampagne.html", så loades denne som den første.
2. Findes denne fil - kampagne.html - ikke i roden, så kigges der efter en fil som passer til ugedagen - altså enten mandag.html, tirsdag.htm, onsdag.html, tors..osv. Findes en sådan fil så loades filen som passer til den pågældende dag.
3. Findes ingen at de nævnte filer fra punkt 1 og punkt 2, så loades filen "index1.html".
Jeg må lige gøre opmærksom på at jeg på ingen måde selv forstår nogen former for programmering, og derfor ikke selv har mulighed for at "lige gøre sådan og sådan"... Jeg forstår mig ganske enkelt ikke på den slags...
<% Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(server.mappath("kampagne.html")))=true Then Response.redirect("kampagne.html") Else filnavn = WeekdayName(weekday(date)) & ".html" If (fs.FileExists(server.mappath("filnavn)))=true Then Response.redirect (filnavn) else response.redirect("index1.html") end if End If
Det virker ikke - får en intern HTTP-500 Server-fejl.
Jeg har lavet en fil med navnet index.asp, hvori der er følgende kode (og ikke andet):
<% session.lcid = 1030 Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(server.mappath("kampagne.html")))=true Then Response.redirect("kampagne.html") Else filnavn = WeekdayName(weekday(date)) & ".html" If (fs.FileExists(server.mappath("filnavn)))=true Then Response.redirect (filnavn) else response.redirect("index1.html") end if End If
set fs=nothing %>
Desuden har jeg uploadet filer med navnene mandag.html, tirsdag.html osv, samt index1.html og kampagne.html.
thomaskramer >> for at få en ordentlig fejlmeddelelse så i IE skal du op i menuen under funktioner og under internetinstillinger og vælge fanen avanceret. Der skal du så fjerne flue benet i "vis uskadelige http fejl" mener jeg den hedder Så slipper man for kun at få fejl 500, men får noget man rent faktisk kan bruge :o)
<% session.lcid = 1030 Set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(server.mappath("kampagne.html")) Then Response.redirect("kampagne.html") Else filnavn = WeekdayName(weekday(date)) & ".html" If fs.FileExists(server.mappath(filnavn)) Then Response.redirect (filnavn) else response.redirect("index1.html") end if End If
Jeg har iøvrigt et nyt spørgsmål - hvis du er lun på det?
Kan man uden alt for mange problemer lave en søgeside, som søger på indholdet på alle hmtl-sider, men ikke i html-tags'ne - altså kun på det skrevne indhold på de forskellige sider.... og kan man ekskludere bestemte sider fra denne søgning??
Jeg opretter glædelig et spørgsmål til 200 point hvis du har lyst.. :-)
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.
