SoloCodigo

Programación Web y Scripting => JavaScript => Mensaje iniciado por: sony_cari en Miércoles 9 de Marzo de 2005, 13:25

Título: Archivo Global.asa
Publicado por: sony_cari en Miércoles 9 de Marzo de 2005, 13:25
Mi problema es que quiero que el fondo de todas mis pantallas del programa cambie según la estación del año en la que estemos, con 4 fondos diferentes. El mismo fondo para todas mis pantallas. Pero creo un objeto session y no me funciona, no me salen los fondos. Si me puedierais decir si he echo algo mal lo agradecería. Os adjunto mi archivo global.asa y como llamo en la página principal .asp:

GLOBAL.ASA:
<script language="VBScript" RUNAT="server">
   Server.ScriptTimeout=900
   Sub Session_OnStart
      session("MiSesion")=1

      dim mes
      mes=month(now)
      select case mes
         case 1:
            session("fondo")="invierno.jpg"
         case 2:
            session("fondo")="invierno.jpg"            case 3:
            session("fondo")="primavera.jpg"
         case 4:
            session("fondo")="primavera.jpg"
         case 5:
            session("fondo")="primavera.jpg"
         case 6:
            session("fondo")="verano.jpg"
         case 7:
            session("fondo")="verano.jpg"
         case 8:
            session("fondo")="verano.jpg"
         case 9:
            session("fondo")="otoño.jpg"
         case 10:
            session("fondo")="otoño.jpg"
         case 11:
            session("fondo")="otoño.jpg"
         case 12:
            session("fondo")="invierno.jpg"
      end select
   Sub Session_onEnd
   end sub
</script>

PRINCIPAL.ASP:
<html>
   <head>
      <title>
         Restaurante Pizzeria
      </title>
   </head>
  <%
  response.write("<body background="&session("fondo")&">")
   %>
------
------

    </body>
</html>
Título: Re: Archivo Global.asa
Publicado por: Kev en Miércoles 9 de Marzo de 2005, 15:05
Talvez unas pequeñas modificaciones:

Global.asa
Código: Text
  1.  
  2. &#60;script Language=&#34;VBScript&#34; RUNAT=Server&#62;
  3. Sub Session_OnStart()
  4.   session(&#34;MiSesion&#34;)=1
  5.   dim mes
  6.   mes=month(now)
  7.   select case mes
  8.     case 1:
  9.       session(&#34;fondo&#34;)=&#34;invierno.jpg&#34;
  10.     case 2:
  11.       session(&#34;fondo&#34;)=&#34;invierno.jpg&#34;
  12.     case 3:
  13.       session(&#34;fondo&#34;)=&#34;primavera.jpg&#34;
  14.     case 4:
  15.       session(&#34;fondo&#34;)=&#34;primavera.jpg&#34;
  16.     case 5:
  17.       session(&#34;fondo&#34;)=&#34;primavera.jpg&#34;
  18.     case 6:
  19.       session(&#34;fondo&#34;)=&#34;verano.jpg&#34;
  20.     case 7:
  21.       session(&#34;fondo&#34;)=&#34;verano.jpg&#34;
  22.     case 8:
  23.       session(&#34;fondo&#34;)=&#34;verano.jpg&#34;
  24.     case 9:
  25.       session(&#34;fondo&#34;)=&#34;otoño.jpg&#34;
  26.     case 10:
  27.       session(&#34;fondo&#34;)=&#34;otoño.jpg&#34;
  28.     case 11:
  29.       session(&#34;fondo&#34;)=&#34;otoño.jpg&#34;
  30.     case 12:
  31.       session(&#34;fondo&#34;)=&#34;invierno.jpg&#34;
  32.   end select
  33. End Sub
  34. &#60;/script&#62;
  35.  
  36.  

Creo que notaste que que no hay el end sub del Session_OnStart, porque tambien escribiste un Session_onEnd (quizas sin querer)


Otras modificaciones:

Principal.asp
Código: Text
  1.  
  2. &#60;html&#62;
  3. &#60;head&#62;
  4.   &#60;title&#62;Restaurante Pizzeria&#60;/title&#62;
  5. &#60;/head&#62;
  6. &#60;%
  7. Response.Write(&#34;&#60;body background='&#34; & session(&#34;fondo&#34;) & &#34;'&#62;&#34;)
  8. %&#62;
  9. &#60;/body&#62;
  10. &#60;/html&#62;
  11.  
  12.  

Aunque yo preferiria escibirlo de la siguiente manera
Código: Text
  1.  
  2. &#60;html&#62;
  3. &#60;head&#62;
  4.   &#60;title&#62;Restaurante Pizzeria&#60;/title&#62;
  5. &#60;/head&#62;
  6. &#60;body background=&#34;&#60;%=session(&#34;fondo&#34;)%&#62;&#34;&#62;
  7. &#60;/body&#62;
  8. &#60;/html&#62;
  9.  
  10.  

En este ultimo escribiste todo junto &session("fondo")&, cosa que deberia ser
Código: Text
  1. & session(&#34;fondo&#34;) &
  2.  
con espacios, verifica que los paths de las imagenes son validos y las imagenes se encuentran ahi.

Viste que sangrar el codigo y ordenar te ayuda a detectar tus errores, y no solo eso hace que tu codigo sea entendible y facil de manipular, es una buena costumbre, pero tabula con la tecla TAB y no con espacios(los espacios te complican en ves de ayudarte)

NOTA.-  :huh: No que este post deberia ir en la sección ASP......... :blink:

Salu2
 :comp:  :hola:
Título: Re: Archivo Global.asa
Publicado por: sony_cari en Miércoles 9 de Marzo de 2005, 19:07
:gracias:  :gracias:  :gracias:  :gracias:  :gracias:  :gracias:  :gracias:

MIL Y UNA GRACIAS, ME HAS AYUDADO MUCHO, LA VERDAD ES QUE ERA UNA TONTERÍA!

P.D.-> Respecto a lo de estar en el otro foro tienes razón, pero es que soy nueva aquí y no lo encontré  :P