Palleman meny

16 svar · 449 visningar · startad av Xer0 10 juni 2003

Xer0Medlem sedan feb. 200345 inlägg

Frågan10 juni 2003 01:36#1

Surfade in på http://www.aspsidan.nu innan och såg i artikelarkivet hur man gjorde ett liknande menysystem som palleman.nu använder men det värkar inte funka som det ska, någon som skulle kunna hjälpa mig med att göra ett som funkar eller ändra det som är fel?

Default.asp

<table border="1" width="61%" height="65">

  <tr>

    <td width="15%" height="60" valign="top">

 

      <font face="Verdana, Arial, Helvetica, sans-serif" size="1">

        <a href ="default.asp?link=">Startsidan:<br>

        <a href ="default.asp?link=Link1">länk1<br>

        <a href ="default.asp?link=Link2">länk2

      </font>

    </td>

    <td width="86%" height="59" valign="top">

      <%

           Set Obj = CreateObject("Scripting.FileSystemObject")

                If Obj.FileExists(Trim(LCase(Request.QueryString("link"))) & ".asp") Then

                     Server.Execute Request.QueryString("link") & ".asp" 

                Else

                     Server.execute "start.asp"

                End if

           Set Obj = Nothing

      %>

    </td>

  </tr>

</table>

Start.asp

<table border="0" width="100%" height="100%">

  <tr>

    <td width="100%" height="100%" valign="top">

      <font face="Verdana, Arial, Helvetica, sans-serif" size="1">

        Här visas Start.asp

      </font>

    </td>

  </tr>

</table>

Koden är hämtad från http://www.aspsidan.nu/default.asp?page=readArticle&menu=2&aId=45

Mvh Joseph Labou

StevePMedlem sedan mars 2003772 inlägg

10 juni 2003 02:12#2

Vad är det som inte fungerar?
Och har du skapat sidorna link1.asp och link2.asp ?

solbulleMedlem sedan mars 20015 287 inlägg

10 juni 2003 06:17#3

Varför svarar jag när jag inte vaknat... :r

m_soderlundMedlem sedan sep. 20026 425 inlägg

10 juni 2003 06:51#4

Koden fungerar nog, troligtvis så använder du ASP 2.0 eller nåt och då stöds inte Server.Execute. Testa denna (mer ineffektiva) kod i stället:

<a href="default.asp?cat=links">Länkar</a>
<br><a href="default.asp?cat=about">Om sajten</a>

<%
Dim Req
Req = Request.Querystring("cat")

Select Case Req
Case "links" %><!--#include file="links/links.asp"-->
<% Case "about" %><!--#include file="about/about.asp"-->
<% Case Else
Response.Redirect "default.asp"

End Select
%>

Det är ganska enkelt att bygga på fler kategorier. Jag använder SSI i stället, vilket inte är att rekommendera. :(
Ju fler inkluderingar man gör desto segare blir sidan. Så var försiktig med det! Rekommenderar att du använder Server.Execute enligt min kod ovan, i stället för SSI.

voigtann1Medlem sedan juni 20019 519 inlägg

10 juni 2003 07:45#5

enklare att installera upp din ASP :e om detta är möjligt.

Xer0Medlem sedan feb. 200345 inlägg

10 juni 2003 09:59#6

Just nu kör IIS från win xp skivan finns det något nyare en det?

@ndersMedlem sedan juni 200032 967 inlägg

10 juni 2003 10:02#7

Xer0 skrev:

Just nu kör IIS från win xp skivan finns det något nyare en det?

Det ska fungera alldeles utmärkt, men du måste berätta vad det är som inte fungerar, och du måste posta ev. felmeddelanden.

Vi kan inte gissa.

Xer0Medlem sedan feb. 200345 inlägg

10 juni 2003 10:06#8

Det blir inga fel medelanden, om jag klickar på link1 så kommer jag inte till någon annan sida utan jag är fortfarande kvar. Jag har skapat link.asp så jag brode ju komma till en annan sida eller?

voigtann1Medlem sedan juni 20019 519 inlägg

10 juni 2003 10:08#9

den heter ju link1.asp isåfall.. :e

mattiasjarnhallMedlem sedan apr. 2001126 inlägg

10 juni 2003 10:10#10

Hur skriver du din url?

http://dinSida.com/default.asp?link=link
Eller:
http://dinSida.com/default.asp?link=link.asp

@ndersMedlem sedan juni 200032 967 inlägg

10 juni 2003 10:10#11

Jag har för mig att filsystemsobjektet alltid vill ha absoluta och inte relativa filsökvägar?

If Obj.FileExists(Server.Mappath(Trim(LCase(Request.QueryString("link"))) & ".asp")) Then

Men det är bara en gissning.

Mvh

mattiasjarnhallMedlem sedan apr. 2001126 inlägg

10 juni 2003 10:12#12

Stämmer bra.. lyssna på @nders! :)

Xer0Medlem sedan feb. 200345 inlägg

10 juni 2003 10:14#13

jag skriver ut länkarna såhär
<a href ="default.asp?link=Link1">länk1</a><br>
alltså så som det är gjort i exemplet.

Btw Mattias version 3.0 är skit snygg kollade på den bilden igår ;)

Xer0Medlem sedan feb. 200345 inlägg

10 juni 2003 10:18#14

Ni hade rätt det var

If Obj.FileExists(Server.Mappath(Trim(LCase(Request.QueryString("link"))) & ".asp")) Then

Som var fel :P, inte för att jag är så bra på asp men jag tyckte att Server.Mappath borde funnits någonstans, men som sakt jag är inte så bra på asp (inte ennu i alla fall :P).. hehe.. men tack så jätte mycket killar :D

mattiasjarnhallMedlem sedan apr. 2001126 inlägg

10 juni 2003 10:18#15

Det är som anders säger.. du måste byta ut:
If Obj.FileExists(Trim(LCase(Request.QueryString("link"))) & ".asp") Then
Mot:
If Obj.FileExists(Server.Mappath(Trim(LCase(Request.QueryString("link"))) & ".asp")) Then

Sen har du väl en fil som heter link1.asp?

Angående version 3.. så Tackar.. kul att du kikat :)
Det är Silvio och FinalWorld som ansvarar för detta .. jag är bara åskådare jag med.. :)

mattiasjarnhallMedlem sedan apr. 2001126 inlägg

10 juni 2003 10:19#16

Jaha där ser man.. du löste det :)

Xer0Medlem sedan feb. 200345 inlägg

10 juni 2003 10:21#17

Nope snarare ni :P hehe @nders skrev ju vad som han trode va fel och det funkae när jag bytte ut det :D
Men återigen vill jag tacka er :D

Mattias, oki men då har dom gjort ett bra jobb :D