webForumDet fria alternativet

script_name

ASP

14 svar · 395 visningar · startad av jboy_87

Medlem sedan aug. 20011 099 inlägg
Frågan#1

går det inte och göra det här på nått annat sätt istället för att skriva or or hela tiden?

<%if request.Servervariables("script_name") = "/default.asp" or request.Servervariables("script_name") = "/nyheter.asp" then%>
Medlem sedan mars 20007 896 inlägg
#2
Select Case Request.ServerVariables( "SCRIPT_NAME" )
     Case "/default.asp"
          ' Gör det här
     Case "/annan_sida.asp"
          ' Gör det här
     Case Else
          ' Gör det här, om inget alternativ matchade
End Select
Medlem sedan aug. 20011 099 inlägg
#3

fa* tänkte inte på case men tack :)

Medlem sedan aug. 20011 099 inlägg
#4

men om jag gör sådär måste jag kopiera html mellan alla case??

Medlem sedan mars 20007 896 inlägg
#5

Använd sub:ar eller funktioner! Mycket mer strukturerad kod. :)

Medlem sedan aug. 20011 099 inlägg
#6

kan du visa lite kod?

Medlem sedan mars 20007 896 inlägg
#7
<%
Sub Printer( ByVal str )
     Response.Write str
End Sub

Function Checker( ByVal str )
     If str = "SPiN"
          Checker = True
     Else
          Checker = False
End Function

Dim myString
myString = "SPiN"

If Checker( myString ) Then
     Printer myString
Else
     Printer "Inte SPiN!"
End If

Printer "<br />"

myString = "jboy"

If Checker( myString ) Then
     Printer "SPiN!"
Else
     Printer "Inte SPiN, utan: " & myString
End If
%>

En sub är en sorts funktion som inte returnerar något, och som man inte anropar med parenteser, kan man säga. En funktion returnerar något, och kan ta emot information mellan parenteser. Nu är jag rätt trött, så jag orkar inte gå in längre i förklaringen. ;)

Medlem sedan aug. 20011 099 inlägg
#8

okej men hur kopplar jag in script_name med det där?

Medlem sedan mars 20015 287 inlägg
#9

Typ:

Select Case Request.ServerVariables( "SCRIPT_NAME" )
     Case "/default.asp"
          Call Nisse
     Case "/annan_sida.asp"
          Call Kalle
     Case Else
          Call Pelle
End Select

Sub Nisse()
'I detta kodblock finns all kod som körs vid val av Nisse
' bumelibum
End Sub

Sub Kalle()
'I detta kodblock finns all kod som körs vid val av Kalle
End Sub

Sub Pelle()
'I detta kodblock finns all kod som körs vid val av Pelle
End Sub
Medlem sedan aug. 20011 099 inlägg
#10

thanks nu fattar jag :)

Medlem sedan aug. 20011 099 inlägg
#11

kan man inte göra så här

Case "/meddelanden.asp" and case "/meddelande.asp"
Call kompislista
Call snabbsok

Medlem sedan juni 200032 967 inlägg
#12

Nej.

Request.ServerVariables("SCRIPT_NAME") kan ju inte vara "/meddelanden.asp" och "/meddelande.asp" samtidigt.

Medlem sedan dec. 20003 563 inlägg
#13

Detta funkar annars.

case "/sida1", "/sida2", "/sida3"
call subfor1och2och3
case "/sida4", "/sida5"
call subfor4och5

Medlem sedan aug. 20011 099 inlägg
#14

hur ska jag göra då eheheh

Medlem sedan aug. 20011 099 inlägg
#15

ska testa :-) tackar

268 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
129 ms — deklarationer (db)
0 ms — hämta statistik (cache)
136 ms — hämta tråd, inlägg och bilagor (db)
129 ms — ändringar (db)