Foro Vida Una : Códigos ASP y ASP.NET https://www.vidauna.com/ Mon, 20 Apr 2026 07:43:40 +0000 Fri, 07 Oct 2011 14:37:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 120 https://www.vidauna.com/RSS_topic_feed.asp?FID=16 <![CDATA[Foro Vida Una]]> https://www.vidauna.com/images/vidauna_logo.gif https://www.vidauna.com/ <![CDATA[Códigos ASP y ASP.NET : Contador de Visitas]]> https://www.vidauna.com/contador-de-visitas_topic794_post5155.html#5155 Author: vickyvictoria
Subject: Contador de Visitas
Posted: 07 Octubre 2011 at 2:37pm

gracias, muy util]]> Fri, 07 Oct 2011 14:37:25 +0000 https://www.vidauna.com/contador-de-visitas_topic794_post5155.html#5155 <![CDATA[Códigos ASP y ASP.NET : Publicar un pdf en asp.net]]> https://www.vidauna.com/publicar-un-pdf-en-asp-net_topic883_post3236.html#3236 Author: molder
Subject: Publicar un pdf en asp.net
Posted: 12 Abril 2010 at 6:21pm

Hola amigos quisiera saber si alguien me pude ayudar de como pueso hacer para colgar pdf en mi pagina aspx de visual web developer achivos pdf para que luego los usuarios los puedan descargar cuando hagan un clic sobre el archivo.
 
Desde ya les agradeceria mucho el que me pueda dar una mano.
 
saludos.
 
]]> Mon, 12 Apr 2010 18:21:51 +0000 https://www.vidauna.com/publicar-un-pdf-en-asp-net_topic883_post3236.html#3236 <![CDATA[Códigos ASP y ASP.NET : Contador de Visitas]]> https://www.vidauna.com/contador-de-visitas_topic794_post2955.html#2955 Author: Programador
Subject: Contador de Visitas
Posted: 01 Marzo 2010 at 1:21pm

La base de datos del ejemplo se llama mibd y la tabla se llama visitas. El campo es hits.


<%
'Hacemos la conexión a la BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\trabajo\db\mibd.mdb"
sql = "SELECT * FROM visitas"
RS.Open sql, oConn, 1,3
'Ahora nos fijamos si existe ya un registro.
'Si no existe lo creamos.
If RS.EOF then
  oConn.Execute"INSERT INTO cuenta (hits) VALUES (1)"
'Si existe el registro se aumenta en 1 el valor.
Else
  oConn.Execute"UPDATE cuenta SET hits="&(rs("hits")+1)&""
End IF
'La siguiente linea imprime la cantidad de hits.
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("hits")&"</B>"
'cerramos y limpiamos los objetos.
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>

]]> Mon, 01 Mar 2010 13:21:29 +0000 https://www.vidauna.com/contador-de-visitas_topic794_post2955.html#2955 <![CDATA[Códigos ASP y ASP.NET : Insertar un Flash Chat]]> https://www.vidauna.com/insertar-un-flash-chat_topic592_post2224.html#2224 Author: Programador
Subject: Insertar un Flash Chat
Posted: 02 Noviembre 2009 at 12:53pm

Para insertar en tu web un Flash Chat copia el siguiente código y colocalo en el lugar de tu página que prefieras:
 
Para insertar un Chat en tu Página Web sólo tienes que copiar el código del formulario de entrada al chat y el código de la sala de Chat que prefieras.
 
Código del Formulario:
 
<form id="pass" name="pass" method="post" action="chat.asp">
  <label>  Si estás registrado/a introduce tu usuario y tu contraseña. Si no estás registrado elige un nombre de usuario e introducelo. Si el nombre de usuario elegido estuviese registrado se te creará uno parecido automáticamente. Una vez que accedas al chat puedes registrarte y para ello solo tienes que salir de la sala, cerrar la sesión y pulsar sobre "Regístrate".<br />
  <br />
  Usuario:
  <input type="text" name="user" id="user" />
  </label>
  <p>Contraseña:
    <input type="password" name="pass" id="pass" />
  <p></p>
  <p>
    <input type="submit" name="button" id="button" value="Enviar" />
  <p></p>
</form>
 
 
Código del Flash Chat:
Sala de San Pedro Alcántara:
 
 
<%
  user=Request.Form("user")
  pass=Request.Form("pass")
  If user="" Then
  user="Invitad@"
  End If
  %>
  <embed src='http://host71200.123flashchat.com/vidauna/123flashchat.swf?init_host=host71200.123flashchat.com&init_port=21127&init_group=vidauna&init_room=537&init_user=<%=user%>&init_password=<%=pass%>' type='application/x-shockwave-flash'  width='100%' height='100%' allowScriptAccess='always'></embed>
 
Sala de Marbella:
 
<%
  user=Request.Form("user")
  pass=Request.Form("pass")
  If user="" Then
  user="Invitad@"
  End If
  %>
  <embed src='http://host71200.123flashchat.com/vidauna/123flashchat.swf?init_host=host71200.123flashchat.com&init_port=21127&init_group=vidauna&init_room=540&init_user=<%=user%>&init_password=<%=pass%>' type='application/x-shockwave-flash'  width='100%' height='100%' allowScriptAccess='always'></embed>
 
Sala de Estepona:
 
<%
  user=Request.Form("user")
  pass=Request.Form("pass")
  If user="" Then
  user="Invitad@"
  End If
  %>
  <embed src='http://host71200.123flashchat.com/vidauna/123flashchat.swf?init_host=host71200.123flashchat.com&init_port=21127&init_group=vidauna&init_room=542&init_user=<%=user%>&init_password=<%=pass%>' type='application/x-shockwave-flash'  width='100%' height='100%' allowScriptAccess='always'></embed>
 
Sala Amigos:
 
<%
  user=Request.Form("user")
  pass=Request.Form("pass")
  If user="" Then
  user="Invitad@"
  End If
  %>
  <embed src='http://host71200.123flashchat.com/vidauna/123flashchat.swf?init_host=host71200.123flashchat.com&init_port=21127&init_group=vidauna&init_room=541&init_user=<%=user%>&init_password=<%=pass%>' type='application/x-shockwave-flash'  width='100%' height='100%' allowScriptAccess='always'></embed>
 
Sala Ligar:
 
<%
  user=Request.Form("user")
  pass=Request.Form("pass")
  If user="" Then
  user="Invitad@"
  End If
  %>
  <embed src='http://host71200.123flashchat.com/vidauna/123flashchat.swf?init_host=host71200.123flashchat.com&init_port=21127&init_group=vidauna&init_room=610&init_user=<%=user%>&init_password=<%=pass%>' type='application/x-shockwave-flash'  width='100%' height='100%' allowScriptAccess='always'></embed>
 
Sala Mujer:
 
<%
  user=Request.Form("user")
  pass=Request.Form("pass")
  If user="" Then
  user="Invitad@"
  End If
  %>
  <embed src='http://host71200.123flashchat.com/vidauna/123flashchat.swf?init_host=host71200.123flashchat.com&init_port=21127&init_group=vidauna&init_room=611&init_user=<%=user%>&init_password=<%=pass%>' type='application/x-shockwave-flash'  width='100%' height='100%' allowScriptAccess='always'></embed>
 
Sala Deportes:
 
<%
  user=Request.Form("user")
  pass=Request.Form("pass")
  If user="" Then
  user="Invitad@"
  End If
  %>
  <embed src='http://host71200.123flashchat.com/vidauna/123flashchat.swf?init_host=host71200.123flashchat.com&init_port=21127&init_group=vidauna&init_room=612&init_user=<%=user%>&init_password=<%=pass%>' type='application/x-shockwave-flash'  width='100%' height='100%' allowScriptAccess='always'></embed>
 
Sala Juegos, Pistas y Trucos:
 
<%
  user=Request.Form("user")
  pass=Request.Form("pass")
  If user="" Then
  user="Invitad@"
  End If
  %>
  <embed src='http://host71200.123flashchat.com/vidauna/123flashchat.swf?init_host=host71200.123flashchat.com&init_port=21127&init_group=vidauna&init_room=613&init_user=<%=user%>&init_password=<%=pass%>' type='application/x-shockwave-flash'  width='100%' height='100%' allowScriptAccess='always'></embed>
 
 
- Si quieres cambiar el nombre de la página del chat (chat.asp) recuerda de cambiar en el código del formulario el nuevo destino de tu Página Web.
 


Edited by Programador - 24 Noviembre 2009 at 9:17am]]> Mon, 02 Nov 2009 12:53:52 +0000 https://www.vidauna.com/insertar-un-flash-chat_topic592_post2224.html#2224 <![CDATA[Códigos ASP y ASP.NET : Formulario para enviar un email a través ASP.NET]]> https://www.vidauna.com/formulario-para-enviar-un-email-a-travs-asp-net_topic477_post1723.html#1723 Author: Programador
Subject: Formulario para enviar un email a través ASP.NET
Posted: 06 Septiempbre 2009 at 12:01am

<%@ Page Language="VB" %>

<!DOCTYPE "-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        '
        Dim correo As New System.Net.Mail.MailMessage()
        correo.From = New System.Net.Mail.MailAddress(txtDe.Text)
        correo.To.Add(txtPara.Text)
        correo.Subject = txtAsunto.Text
        correo.Body = txtTexto.Text
        correo.IsBodyHtml = True
        correo.Priority = System.Net.Mail.MailPriority.Normal

        Dim smtp As New System.Net.Mail.SmtpClient
       
  smtp.Host = "servidor SMTP"
  smtp.Port = 25 ' 464 si la cuenta es de Gmail
        smtp.Credentials = New System.Net.NetworkCredential("usuario", "contraseña")
        smtp.EnableSsl = False ' True si la cuenta es de Gmail
       
        Try
            smtp.Send(correo)
            LabelError.Text = "Mensaje enviado satisfactoriamente"
        Catch ex As Exception
            LabelError.Text = "ERROR: " & ex.Message
        End Try
       
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        ' Esto (en ASP.NET 2.0) no se ejecuta... si AutoEventWireup="false"
        If Not IsPostBack Then
            txtTexto.Text = "Hola," & vbCrLf & _
                        "Esto es una prueba de envio de correo usando ASP.NET 2.0 con Visual Basic" & vbCrLf & _
                        "Saludos!!!"
            LabelError.Text = ""
        End If
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Prueba para enviar correo usando ASP.NET 2.0 (Visual Basic)</title>
    <meta name="robots" content="noindex" />
</head>
<body>
    <form id="form1" runat="server">
        <table style="width: 550px">
            <tr>
                <td valign="top">
                    <asp:Label ID="Label1" runat="server" Text="De:"></asp:Label></td>
                <td><asp:TextBox ID="txtDe" runat="server" Width="95%">la cuenta a quien envías el mensaje</asp:TextBox></td>
            </tr>
            <tr>
                <td valign="top">
                    <asp:Label ID="Label2" runat="server" Text="Para:"></asp:Label></td>
                <td>
                    <asp:TextBox ID="txtPara" runat="server" Width="95%">la cuenta a quien envías el mensaje</asp:TextBox>
                    <asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" ControlToValidate="txtPara" ErrorMessage="El formato del correo no es válido" ValidationExpression="\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"></asp:RegularExpressionValidator></td>
            </tr>
            <tr>
                <td valign="top">
                    <asp:Label ID="Label3" runat="server" Text="Asunto:"></asp:Label></td>
                <td>
                    <asp:TextBox ID="txtAsunto" runat="server" Width="95%">Prueba de envio de correo con ASP.NET 2.0 (C#)</asp:TextBox>
                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtAsunto" ErrorMessage="Debes escribir el asunto"></asp:RequiredFieldValidator></td>
            </tr>
            <tr>
                <td valign="top">
                    <asp:Label ID="Label4" runat="server" Text="Texto:"></asp:Label></td>
                <td>
                    <asp:TextBox ID="txtTexto" runat="server" Columns="50" Rows="10" TextMode="MultiLine"></asp:TextBox>
                    <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="txtTexto" ErrorMessage="Debes escribir algo en el texto"></asp:RequiredFieldValidator></td>
            </tr>
            <tr>
                <td>&nbsp;</td>
                <td><asp:Button ID="btnEnviar" runat="server" Text="Enviar" OnClick="btnEnviar_Click" /></td>
            </tr>
            <tr>
                <td>&nbsp;</td>
                <td><asp:Label ID="LabelError" runat="server" Text=""></asp:Label></td>
            </tr>
        </table>
    </form>
</body>
</html>

]]> Sun, 06 Sep 2009 00:01:00 +0000 https://www.vidauna.com/formulario-para-enviar-un-email-a-travs-asp-net_topic477_post1723.html#1723 <![CDATA[Códigos ASP y ASP.NET : Un contador de palabras y caracteres]]> https://www.vidauna.com/un-contador-de-palabras-y-caracteres_topic213_post672.html#672 Author: Programador
Subject: Un contador de palabras y caracteres
Posted: 09 Mayo 2009 at 4:56pm

Este ejemplo muestra un script que cuenta las palabras y caracteres que son introducidos en un textbox:
 
Contador.asp
 
<%
Dim nombrescript
Dim textodeentrada
nombrescript = Request.ServerVariables("URL")
textodeentrada = Request.Form("txtWordCount")
' Si no han escrito nada emitimos un mensaje de error
If textodeentrada = "" Then
textodeentrada = "Debes escribir algo en la cadena a contar"
Else
Response.Write "El texto introducido es::<br />" & vbCrLf
Response.Write "<pre>"
Response.Write Server.HTMLEncode(textodeentrada)
Response.Write "</pre>" & vbCrLf
' Mostramos los resultados del conteo:
Response.Write "<p>El texto introducido contiene <b>" _
& GetWordCount(textodeentrada) _
& "</b> palabras y <b>" _
& GetCharCount(textodeentrada) _
& "</b> caracteres.</p><br />" & vbCrLf
End If
'**** Funciones Usadas ***********************************
Function GetWordCount(strInput)
Dim strTemp
' reeplazamos los tabuladores y los saltos de linea por espacios
strTemp = Replace(strInput, vbTab, " ")
strTemp = Replace(strTemp, vbCr, " ")
strTemp = Replace(strTemp, vbLf, " ")
' Quitamos los espacios delante y detras de la cadena
strTemp = Trim(strTemp)
' transformamos multiple espacios en uno solo
Do While InStr(1, strTemp, " ", 1) <> 0
strTemp = Replace(strTemp, " ", " ")
Loop
' Pasamos la cadena strTemp a un array unidimensional
'con la función Split
GetWordCount = UBound(Split(strTemp, " ", -1, 1)) + 1
End Function ' GetWordCount
Function GetCharCount(strInput)
GetCharCount = Len(textodeentrada)
End Function ' GetCharCount
'**** Fin de funciones *************************************
%>
<p>Introduce el texto a contar:</p>
<form action="<%= nombrescript %>" method="post">
<textarea name="txtWordCount" cols="40" rows="5"
><%= Server.HTMLEncode(textodeentrada) %></textarea>
<br />
<input type="submit">
</form>
]]> Sat, 09 May 2009 16:56:32 +0000 https://www.vidauna.com/un-contador-de-palabras-y-caracteres_topic213_post672.html#672 <![CDATA[Códigos ASP y ASP.NET : Haciendo un "Recomendar a un amigo" en ASP]]> https://www.vidauna.com/haciendo-un-recomendar-a-un-amigo-en-asp_topic212_post671.html#671 Author: Programador
Subject: Haciendo un "Recomendar a un amigo" en ASP
Posted: 09 Mayo 2009 at 4:49pm

El formulario contiene 4 campos, los cuales se completarán con los datos (nombre y email) de las dos personas:
 
formulario.htm:
 
<form method="POST"
action="recomendar.asp"
target="_blank">
<p><strong><font face="Verdana" size="1">Tu nombre:<br>
<input type="text" name="tunombre" size="20"><br>
Tu Email:<br>
<input type="text" name="tuemail" size="20"><br>
Nombre de tu amigo:<br>
<input type="text" name="sunombre" size="20"><br>
Email de tu amigo:<br>
<input type="text" name="suemail" size="20"><br>
</font></strong><input type="submit" value="Recomendar" name="B1"></p>
</form>
 
Recomendar.asp:
 
<%
'Recojemos los datos del formulario
tunombre=Request.Form("tunombre")
tuemail=Request.Form("tuemail")
sunombre=Request.Form("sunombre")
suemail=Request.Form("suemail")
'Especificamos el servidor SMPT del correo y creamos el objeto
strHost = "servmail.tusitio.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "no-reply@webexperto.com"
Mail.FromName = "WebExperto.com"
Mail.AddAddress suemail
'Asunto del mensaje
Mail.Subject = "Un amigo te recomienda WebExperto.com"
'Cuerpo del mensaje en HTML
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>Hola! Tu amigo "&tunombre&" ("&tuemail&") recomienda que ingreses a <a href='http://www.webexperto.com'>www.webexperto.com</a>, un sitio que posee contenido de utilidad para webmasters.<br><br>Te esperamos!</p></font></BODY></HTML>"
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
%>
<html>
<head>
<title>Recomendar a un amigo</title>
</head>
<body>
<p><font face=arial size=2><%=tunombre%>: tu amigo <%=sunombre%> recibirá en su email <%=suemail%> tu recomendación.</font></p>
<p><font face=arial size=2>Puedes cerrar esta ventana.</font></p>
</body>
</html>
 
Solo resta modificar el mensaje que se enviará en email y realizar una página de confirmación dentro de recomendar.asp.
]]> Sat, 09 May 2009 16:49:45 +0000 https://www.vidauna.com/haciendo-un-recomendar-a-un-amigo-en-asp_topic212_post671.html#671 <![CDATA[Códigos ASP y ASP.NET : Paginar resultados cada X registros]]> https://www.vidauna.com/paginar-resultados-cada-x-registros_topic211_post670.html#670 Author: Programador
Subject: Paginar resultados cada X registros
Posted: 09 Mayo 2009 at 4:44pm

El siguiente ejemplo sirve para realizar una paginación de resultados extraídos de una base de datos a través de una consulta. La paginación brinda un aspecto diferente al mostrar un listado, mucho más profesional y cómodo para el usuario, seguramente les ha pasado de tener muchos registros y al mostrarlos tenian una página demasiado larga y lenta en cargar. Pueden observar un ejemplo en la sección de artículos de este sitio, o en los foros de SoloASP.

El código fuente se encuentra comentado para su mejor aprendizaje:

paginar.asp

<%
Dim mostrar       'cantidad de registros a mostrar por página
Dim cant_paginas      'cantidad de páginas que recibimos
Dim pagina_actual      'La página que mostramos
Dim registro_mostrado      'Contador utilizado para mostrar las páginas
Dim I        'Variable Loop

mostrar = 10 ' Pueden modificar este número para cambiar la cantidad de registros por página

' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

strsql = "SELECT * FROM tabla"

' Creamos la conexion a la base de datos
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open StrConn

' Creamos el RecordSet y definimos la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar

' Abrimos la tabla...
RS.Open strSQL, oConn,3,1
'contamos las páginas que se formaron con la variable mostrar.
cant_paginas = RS.PageCount

' Si el pedido de página cae afuera del rango,
' lo modificamos para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1

' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
%>
<FONT SIZE="+1">Page <B><%= pagina_actual %></B> of <B><%= cant_paginas %></B></FONT>
<%
' Espacios
Response.Write "<BR><BR>" & vbCrLf
'iniciamos la tabla donde mostraremos todo
Response.Write "<TABLE BORDER=""1"">" & vbCrLf
' Mostramos los titulos de las columnas... (pueden sacar ese FOR para eliminar eso)
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD><B>"
Response.Write RS.Fields(I).Name
Response.Write "<B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD>"
Response.Write RS.Fields(I)
Response.Write "</TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
RS.MoveNext
Loop

'listo...
Response.Write "</TABLE>" & vbCrLf
End If

' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%>
<a href="./paginar.asp?eje=30&page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
End If

' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
%>
<a href="./paginar.asp?eje=30&page=<%= I %>"><%= I %></a>
<%
End If
Next 'I

If pagina_actual < cant_paginas Then
%>
<a href="./paginar.asp?eje=30&page=<%= pagina_actual + 1 %>">[Próximo >>]</a>
<%
End If
'Fin...
%>

]]> Sat, 09 May 2009 16:44:21 +0000 https://www.vidauna.com/paginar-resultados-cada-x-registros_topic211_post670.html#670 <![CDATA[Códigos ASP y ASP.NET : Permitir solo el acceso desde pagina determinada]]> https://www.vidauna.com/permitir-solo-el-acceso-desde-pagina-determinada_topic210_post669.html#669 Author: Programador
Subject: Permitir solo el acceso desde pagina determinada
Posted: 09 Mayo 2009 at 4:40pm

Este sencillo script o codigo consigue o mejor dicho evita que un visitante o usuario acceda a nuestras paginas si no es directemte desde una pagina que hayamos definido en el codigo:
 
<%
If request.servervariables("http_referer") = "http://www.tutores.org/mi_mipagina.asp" Then
response.write"SI has accedido al sistema"
Else
Response.Write "No has accedido desde la pagina que yo queria"
End If
%>
]]> Sat, 09 May 2009 16:40:36 +0000 https://www.vidauna.com/permitir-solo-el-acceso-desde-pagina-determinada_topic210_post669.html#669 <![CDATA[Códigos ASP y ASP.NET : No Cache en el navegador del cliente]]> https://www.vidauna.com/no-cache-en-el-navegador-del-cliente_topic209_post668.html#668 Author: Programador
Subject: No Cache en el navegador del cliente
Posted: 09 Mayo 2009 at 4:39pm

<% Function NoCache()
Response.Expires = 0
Response.Expiresabsolute = Now() -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control", "private"
cache
Response.CacheControl = "no-cache"
End Function %>]]> Sat, 09 May 2009 16:39:14 +0000 https://www.vidauna.com/no-cache-en-el-navegador-del-cliente_topic209_post668.html#668