FAQ's del foro de ASP

pepe_e4 · #31 (**permalink**) 19/08/2002, 22:28

Ubicando el siguiente código en una página ASP, se fuerza a que el navegador cargue la página desde el servidor, y no desde la cache del usuario. Es muy útil para utilizar con las páginas dinámicas que se actualizan constantemente, que necesitan ser procesadas en el servidor antes de mostrarse al navegador del cliente.

<%
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0
%>

El código anterior debe ubicarse antes de cualquier otro código ASP o HTML, por arriba del <head>.

El método Response asegura que la página ASP se genere en forma dinámica (procesada por el servidor), evitando mostrar la página almacenada en el cache.

Con la línea CacheControl = Private, se evita el almacenamiento en un proxy.
La instrucción Expires funciona igual que con las cookies, podemos darle una fecha de caducación, ponerla en 0 (nunca caducará) o un valor negativo (nunca caducará).

Owen-Bonilla · #32 (**permalink**) 20/08/2002, 16:49

FORMATO DE FECHAS SENCILLO PERO "AGRADABLE"

<%= formatdatetime((now),vblongdate) %>

pruebenlo, me gusta mucho y lo manejo bastante.

Saludos

splashman · #33 (**permalink**) 26/08/2002, 15:29

sistema de noticia

http://www.webexperto.com/articulos/articulo.asp?cod=93

ATTE SPLASHMAN

MARKWEB · #34 (**permalink**) 07/09/2002, 04:40

Como hago lo que tiene foros del web o algo parecido a eso de http://www.forosdelweb.com/ir.asp?ht...alquierweb.com

la de la frame superior indicando "estas visitando un enlace dentro de foros del web"

Copy and paste:

ir.asp

<%
Dim url
url = Request.Querystring("url")
%><html>
<head>
<title>Un enlace dentro de Webnauta.tk</title>
</head>
<frameset rows="65,*" framespacing="0" frameborder="0" border="0">
<frame src="top.asp?url=<%=url %>" name="top" frameborder="0" scrolling="No" noresize marginwidth="0" marginheight="0" framespacing="0">
<frame src="<%=url %>" name="enlace" frameborder="0" scrolling="Auto" noresize marginwidth="10" marginheight="10" framespacing="0">
</frameset><noframes></noframes>
</html>

=====>>>> SIGUE

MARKWEB · #35 (**permalink**) 07/09/2002, 04:43

top.asp
<%
Dim url
url = Request.Querystring("url")
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Un enlace dentro de Webnauta.tk</title>

<style type="text/css">

</style>

</head>

<body bgcolor="#000066" text="#FFFFFF" link="#FFCC33" vlink="#FFCC33" alink="#3399CC" leftMargin=0 rightMargin=0 topMargin=0>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" height="65">
<TBODY>
<TR bgColor=#3399CC>
<TD height="65" width="166" bgcolor="#000066" align="left" valign="top" rowspan="2">
<div CLASS="para2" align="center" style="width: 206; height: 56">
<p><img src="imagenes/banfram.gif" width="155" height="40"></p>
</div>
</TD>
<TD height="46" bgcolor="#000066" valign="top" align="center" width="506">
<font class="sitio"><img src="imagenes/alerta.gif" width="15" height="15">
</font><font size="2" color="#0066CC"><font class="sitio" face="Verdana" color="#FFFFFF">Estás
visitando el enlace: <%=Replace(URL, "http://", "") %>...<br>
fuera del sitio de La página de Webnauta</font></font></TD>
<TD height="39" width="108" bgcolor="#000066" valign="bottom" align="right" rowspan="2"><span class="sitio"><b><a href="<%=Request.QueryString("URL")%>" target="_top"><u><font class="sitio" face="Arial, Helvetica, sans-serif" size="1">

====>>>> QUEDE CORTO ESTE SCRIPT CONTINUA EN EL OTRO POST

MARKWEB · #36 (**permalink**) 07/09/2002, 04:48

<img src="imagenes/icoClosedTopic.gif" width="15" height="15" border="0">
<font size="2" color="#FFFFFF">Cerrar Marco</font></font></u></a></b></span></TD>
</TR>
<TR bgColor=#3399CC>
<TD height="11" bgcolor="#000066" valign="top" align="left" width="506"><b><font size="2" face="Arial, Helvetica, sans-serif"><%=application("ActiveUsers")%></font></b><font size="2" face="Arial, Helvetica, sans-serif">
Usuarios activos | <font color="#FFFFFF"><%=NOW%></font> Hora y fecha en
Webnauta.tk</font></TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>

Por fin terminé

cvander · #37 (**permalink**) 21/11/2002, 11:16

Ahora que las hemos encontrado sería bueno limpiarlas para que solo queden las preguntas y respuestas, no?

Que dirán los moderadores ;)

AlZuwaga · #38 (**permalink**) 21/11/2002, 15:59

Listo, mensajes innecesarios eliminados, corregidos todos los enlaces y arreglado los problemas de traspaso de HTML en la migración del foro.

De nada!

Por cierto... ya no es necesario enviar un mensaje para subir este post arriba de todo ya que está marcado como importante y por lo tanto siempre está arriba.

haven · #39 (**permalink**) 23/11/2002, 06:24

Pregunta:
¿Como hago un banner rotator alimentado por una Bd?:

Respuesta:

Para refrescar la página he puesto un refresh (esto lo configurais como querais)

Campos de la base de datos banner1:

ID-----------------Autonumérico
Description------Texto
Url-----------------Texto
Filename---------Texto
Clicks-------------Numérico
Shown------------Numérico

Código:

<html>
<head>
<title>Banenr</title>
<meta http-equiv="refresh" content="6;URL=banner1.asp">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
function MM_openBrWindow(theURL,winName,features) { //v1.2
window.open(theURL,winName,features);
}
</script>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" cellspacing="0" cellpadding="0" width="359">
<tr>
<td>
<%
set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("demo.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"

set rs = Server.CreateObject("ADODB.Recordset")

strRS = "SELECT * from Banner1"

rs.Open strRS, Conn, 1, 3

strRS = CInt(rs.RecordCount)
rs.MoveFirst

randomize

linie = int(rnd(1)*rs.RecordCount)

rs.MoveFirst
rs.Move(linie)

rs("Shown") = rs("Shown") + 1
rs.Update

Response.Write("<a href=javascript:MM_openBrWindow('redirect1.asp?id= " & rs("ID") & "','Banner','width=523,height=520,scrollbars=yes') ><img src='" & rs("Filename") & "' alt='" & rs("Description") & "' border='0'></a>") & vbCrLf

rs.Close
set rs = nothing

Conn.Close

set Conn = nothing
%>
</td>
</tr>
</table>
</body>
</html>

Código página redirect1.asp:(te cuenta el número de click por página)

<%@ Language=VBScript %>

<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("demo.mdb")

id = Request.QueryString("id")

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Banner1 WHERE ID=" & id, Conn, 1, 3

rs("Clicks") = rs("Clicks") + 1
rs.Update

url = rs("Url")

rs.Close
set rs = nothing

Conn.Close
set Conn = nothing

Response.Redirect(url)
%>

Y eso es todo

Bueno que tal os ha parecido, por fín he compartido algo, espero que os guste.

Un saludo a todos

Mickel · #40 (**permalink**) 25/11/2002, 22:15

Mostrar los Favoritos:
http://www.brinkster.com/CodeBank/Sh...pet.aspx?n1011

cvander · #41 (**permalink**) 27/11/2002, 14:58

Revisen el Faq de ASP.

Como verán aun buscamos gente que nos ayude a ir incluyendo la información que ha nutrido este post para que quede mejor organizada por alla.

Cualquier interesado en colaborar puede ver más información en este mensaje

Saludos.

mrgubu · #42 (**permalink**) 27/11/2002, 16:27

http://www.webwizguide.info/asp/faq/...e_settings.asp

bakanzipp · #43 (**permalink**) 29/11/2002, 12:00

Como controlar cuando un usuario trate de atachar un archivo sobre una carpeta por la cual no tenga permisos ?

1. ejecutar el atach sobre un archivo sobre el cual no tengas permisos y capturas el error

On error resume next

Mail.AddAttachment path

if err.number<>0 then

response.write number

end if

2. despues que sepas cual es el error que ocurre cuando no tiene acceso...lo controlas asi...(supongamos que el error te dio -272625)

On error resume next

Mail.AddAttachment path

if err.number<>0 then

if err.number= -272625 then

response.write "acceso denegado. No tienes privilegios"
response.end

else

response.end "error inesperado"
response.end
end if

end if

--------------
EN FAQSDELWEB

g_susdaniel · #44 (**permalink**) 06/12/2002, 10:47

http://www.aspfacil.com/articulos/sincdo.asp

FaqsDelWeb

deprabado · #45 (**permalink**) 08/12/2002, 18:55

No es ASP pero siempre lo preguntan

Como deahabilito el autocompletar de los formularios???

facil cuando definas el formulario colocas autocomplete="off" y ya el autocompletar esta desactivado.

para mayor compatibilidad con los diferente browsers tambien se puede definir esta propiedad en cada input del form...