Recargar página

Martin 30

Hola a todos:

Tengo una página aspx

<%@ Page EnableSessionState="false" EnableViewState="false" CodeFile="default.aspx.vb" Inherits="codigo" %>
<!DOCTYPE html>
<html>
    <head>
        <title>Vidaalegre</title>
    </head>
    <body ID="bdcuerpo" style="background-color:#F8F361" runat="server">
        <center><img src="Imagenes/Banner_Vidaalegre.gif" alt="Banner Vidaalegre" title="Banner Vidaalegre" height="68" width="468"/>
     <br /><asp:Label ID="lblvidaalegre" runat="server" />
            <p><a id="aespanol" runat="server" ><img id="imgespanol" src="Imagenes/espanol.gif" height="32" width="32" border="0" runat="server"/></a>
                <a id="aingles" runat="server"><img id="imgingles" src="Imagenes/ingles.gif" height="32" width="32" runat="server"/></a>
                <a id="afrances" runat="server" ><img id="imgfrances" src="Imagenes/frances.gif" height="32" width="32" runat="server"/></a>
                <a id="aportugues" runat="server" ><img id="imgportugues" src="Imagenes/portugues.gif" height="32" width="32" runat="server"/></a></p></center>
                    <center><asp:HyperLink id="hlnkvidasolidaria" runat="server" />&nbsp;&nbsp;&nbsp;<asp:HyperLink id="hlnktiempolibre" runat="server" />
            <br /><asp:HyperLink id="hlnklibrecomercio" runat="server" />&nbsp;&nbsp;&nbsp;<asp:HyperLink id="hlnkseccionagradecimiento" runat="server" />
        </center>
    </body>
</html>

Y codebehind

    Sub Page_load(ByVal s As Object, ByVal e As EventArgs) Handles Me.Load
        Dim intidioma As Integer = Request.QueryString("idioma")
        If intidioma = 0 Then intidioma = 1
        If Not IsPostBack Then
            Dim fi As New FileInfo(Server.MapPath("Comun/Varios/default1.aspx"))

            If fi.Exists Then Server.Transfer("Comun/errores.aspx?error=modomantenimiento&idioma=" & intidioma)
            hlnkvidasolidaria.NavigateUrl = "Cresolia/default.aspx?idioma=" & intidioma
            hlnktiempolibre.NavigateUrl = "Blog/default.aspx?idioma=" & intidioma
            hlnklibrecomercio.NavigateUrl = "Productos/default.aspx?idioma=" & intidioma
            hlnkseccionagradecimiento.NavigateUrl = "Agradecimiento/default.aspx?idioma=" & intidioma
            aespanol.HRef = "default.aspx?idioma=1"
            aingles.HRef = "default.aspx?idioma=2"
            afrances.HRef = "default.aspx?idioma=3"
            aportugues.HRef = "default.aspx?idioma=4"
            'Response.Write("intidioma11=" & intidioma)
            If intidioma = 1 Then
                lblvidaalegre.Text = "Vidaalegre en español"
                hlnkvidasolidaria.Text = "Proyectos de vida solidaria"
                hlnkvidasolidaria.ToolTip = "Ver 3 proyectos de vida solidaria"
                hlnktiempolibre.Text = "Proyectos de tiempo libre"
                hlnktiempolibre.ToolTip = "Ver 2 proyectos de tiempo libre"
                hlnklibrecomercio.Text = "Proyectos de libre comercio"
                hlnklibrecomercio.ToolTip = "Ver 2 proyectos de libre comercio"
                hlnkseccionagradecimiento.Text = "Sección de agradecimiento"
                hlnkseccionagradecimiento.ToolTip = "Ver 1 sección de agradecimiento"
                imgespanol.Alt = "Español"
                imgingles.Alt = "Inglés"
                imgfrances.Alt = "Francés"
                imgportugues.Alt = "Portugués"
                Response.Write("pasaespanol")
                'aespanol.Title = imgespanol.Alt
                aingles.Title = imgingles.Alt
                afrances.Title = imgfrances.Alt
                aportugues.Title = imgportugues.Alt
                aespanol.HRef = ""
                aespanol.Title = ""
                'If intidioma = 0 Then intidioma = 1
            ElseIf intidioma = 2 Then
                lblvidaalegre.Text = "Vidaalegre in english"
                hlnkvidasolidaria.Text = "Solidarity life projects"
                hlnkvidasolidaria.ToolTip = "See 3 solidarity life projects"
                hlnktiempolibre.Text = "Spare time projects"
                hlnktiempolibre.ToolTip = "See 2 spare time projects"
                hlnklibrecomercio.Text = "Free trade projects"
                hlnklibrecomercio.ToolTip = "See  2 free trade projects"
                hlnkseccionagradecimiento.Text = "Thanks section"
                hlnkseccionagradecimiento.ToolTip = "See 1 thanks section"
                imgespanol.Alt = "Spanish"
                imgingles.Alt = "English"
                imgfrances.Alt = "French"
                imgportugues.Alt = "Portuguese"
                aespanol.Title = imgespanol.Alt
                'aingles.Title = imgingles.Alt
                afrances.Title = imgfrances.Alt
                aportugues.Title = imgportugues.Alt
                aingles.HRef = ""
                aingles.Title = ""
            ElseIf intidioma = 3 Then
                lblvidaalegre.Text = "Vidaalegre en français"
                hlnkvidasolidaria.Text = "Projets de vie solidaires"
                hlnkvidasolidaria.ToolTip = "Voir 3 projets de vie solidaires"
                hlnktiempolibre.Text = "Projets de temps libre"
                hlnktiempolibre.ToolTip = "Voir projets de temps libre"
                hlnklibrecomercio.Text = "Projets de libre affaire"
                hlnklibrecomercio.ToolTip = "Voir 2 projets de libre affaire"
                hlnkseccionagradecimiento.Text = "Rubrique de merci"
                hlnkseccionagradecimiento.ToolTip = "Voir 1 rubrique de merci"
                imgespanol.Alt = "Espagnol"
                imgingles.Alt = "Anglais"
                imgfrances.Alt = "Français"
                imgportugues.Alt = "Portugais"
                aespanol.Title = imgespanol.Alt
                aingles.Title = imgingles.Alt
                'afrances.Title = imgfrances.Alt
                aportugues.Title = imgportugues.Alt
                afrances.HRef = ""
                afrances.Title = ""
            Else
                lblvidaalegre.Text = "Vidaalegre em português"
                hlnkvidasolidaria.Text = "Projetos de vida solidária"
                hlnkvidasolidaria.ToolTip = "Ver 3 projetos de vida solidária"
                hlnktiempolibre.Text = "Projetos de tempo livre"
                hlnktiempolibre.ToolTip = "Ver projetos de tempo livre"
                hlnklibrecomercio.Text = "Projetos de livre comerço"
                hlnklibrecomercio.ToolTip = "Ver 2 projetos de livre comerço"
                hlnkseccionagradecimiento.Text = "Seção de agradecimento"
                hlnkseccionagradecimiento.ToolTip = "Ver 1 seção de agradecimento"
                imgespanol.Alt = "Espanhol"
                imgingles.Alt = "Inglês"
                imgfrances.Alt = "Francês"
                imgportugues.Alt = "Português"
                aespanol.Title = imgespanol.Alt
                aingles.Title = imgingles.Alt
                afrances.Title = imgfrances.Alt
                'aportugues.Title = imgportugues.Alt
                aportugues.HRef = ""
                aportugues.Title = ""
            End If
            'Response.Write("proyectos=" & hlnkproyectos.Text)
            'Response.Write("idioma=" & Request.QueryString("idioma"))
            'Response.End()
            'Server.Transfer("cresolia/portada.aspx&idioma=" & Request.QueryString("idioma"))
            ''aespanol.Attributes.Add("onkeydown", "document.getElementById('lblvidaalegre').value='Vidaalegre en español'")
            'imgespanol.Attributes.Add("onclick", "document.getElementById('lblvidaalegre').value='Vidaalegre en español'")
            'lblvidaalegre.Text = "Vidaalegre en español"
            hlnklibrecomercio.Visible = False
        End If

        Response.Write("Idiomas=" & intidioma)

    End Sub

Cuando ejecuto default.aspx me pone idiomas=1 siempre. No me recarga la página cuando pulso aingles, por ejemplo. Estoy en el localhost, y la página está en c:\inetpub\wwwroot.

Tampoco me pone las imágenes sino el alt. No sé si es cuestión de permisos. Me he comprado un portátil nuevo, y me falla eso. Le di todos los permisos a wwwroot menos los permisos especiales.

Muchísimas gracias si podéis ayudarme.

Respuesta aceptada

Jonathan Pereira Castillo 13,115 Puntos de reputación Proveedor de Microsoft

2025-01-30T19:28:26.0066667+00:00
Gracias por tu paciencia Martin. Vamos a intentar resolver el problema de los permisos en la carpeta wwwroot.

Problemas con los Permisos de CREATOR OWNER

El usuario CREATOR OWNER es un usuario especial que representa al creador del archivo o carpeta. Este usuario debería tener permisos adecuados para modificar los archivos que ha creado. Si al aplicar los permisos se deshabilitan, puede ser un problema de configuración o de herencia de permisos.

Pasos para Solucionar el Problema

Verificar Herencia de Permisos:

Abre las propiedades de la carpeta wwwroot.

Ve a la pestaña Seguridad y haz clic en Opciones avanzadas.

Asegúrate de que la opción Incluir permisos heredables del objeto primario de este objeto esté marcada.

Agregar Permisos Manualmente:

En la pestaña Seguridad, haz clic en Editar.

Selecciona CREATOR OWNER y asegúrate de que tenga permisos de Control total.

Si CREATOR OWNER no aparece, haz clic en Agregar, escribe CREATOR OWNER y asigna los permisos necesarios.

Verificar Permisos de Otras Cuentas:

Asegúrate de que las cuentas Administradores, IUSR, Usuarios, y SYSTEM tengan Control total.

Si falta alguna cuenta, agrégala y asigna los permisos necesarios.

Añadir o Quitar Cuentas en la Pestaña de Seguridad

Si necesitas añadir una cuenta específica, sigue estos pasos:

Abrir Propiedades de la Carpeta:

Haz clic derecho en la carpeta wwwroot y selecciona Propiedades.

Ve a la pestaña Seguridad y haz clic en Editar.

Agregar una Cuenta:

Haz clic en Agregar.

Escribe el nombre de la cuenta que deseas añadir (por ejemplo, IUSR o SYSTEM).

Asigna los permisos necesarios (por ejemplo, Control total).

Quitar una Cuenta:

Selecciona la cuenta que deseas quitar.

Haz clic en Quitar.

Consideraciones Adicionales

Permisos de Carpeta y Subcarpetas: Asegúrate de que los permisos se apliquen a todas las subcarpetas y archivos dentro de wwwroot.

Reiniciar el Servidor: A veces, reiniciar el servidor web puede ayudar a aplicar correctamente los cambios de permisos.

Agradecemos tu comprensión y estamos aquí para ayudar en lo que sea necesario.

Estaré atento a tu respuesta.,

Jonathan

----------*

Tu opinión es muy importante para nosotros! Si esta respuesta resolvió tu consulta, por favor haz clic en 'SÍ'. Esto nos ayuda a mejorar continuamente la calidad y relevancia de nuestras soluciones.
Inicie sesión para calificar esta respuesta.

0 comentarios No hay comentarios
Inicie sesión para comentar

Use comentarios para pedir alguna aclaración, más información o mejoras de la pregunta.

5 respuestas adicionales

Martin 30 Puntos de reputación

2025-01-31T11:58:45.3933333+00:00

Hola:

Hice eso, habilité permisos heredados en wwwroot. Ahora funciona bien todo.

Muchísimas gracias por todo, especialmente a Jhonathan.
Inicie sesión para calificar esta respuesta.

0 comentarios No hay comentarios
Inicie sesión para comentar

Use comentarios para pedir alguna aclaración, más información o mejoras de la pregunta.

Compartir a través de

Recargar página

5 respuestas adicionales

Su respuesta