Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   ASP Clásico (http://www.forosdelweb.com/f15/)
-   -   FAQ's del foro de ASP (http://www.forosdelweb.com/f15/faqs-del-foro-asp-89836/)

urjose 13/07/2002 22:49

FAQs de ASP
 
Bueno pues en el foro de PHP ya lo hicieron, así que por aquí; también debemos hacerlo, si ya alguien lo estaba preparando pues este post puede ser de ayuda:

0.- (jeje) Tutoriales sobre ASP
http://asp.programacion.net
http://www.desarrolloweb.com/asp/
http://www.devguru.com/

1.- ¿Como subo ficheros al servidor sin usar componentes?
R: Dirigete a http://www.aspfacil.com/ y baja el XelUpload, el cual te permite subir archivos sin componentes.

2.- ¿Como pongo Un WhoIS con ASP?
R: http://www.forosdelweb.com/showthrea...threadid=65324

3.- ¿Como borro registros al estilo hotmail?
R: http://www.forosdelweb.com/showthrea...threadid=89704

4.- ¿Donde consigo un buen foro?
R: http://forums.snitz.com/ o http://www.webwizguide.com/

5.- ¿Como me conecto a una base de datos con/sin DSN?
R: http://www.asptutor.com/asp/vart.asp?id=51

6.- El servidor me regresa la fecha en formato mm/dd/aa como lo muestro dd/mm/aa
R:
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
Fecha=Dia & "/" & Mes & "/" & Anio

7.- ¿Como hago un libro de visitas?
http://www.asptutor.com/asp/vart.asp?id=57

8.- ¿Como agrego dí;as/horas a una fecha/tiempo?
R: http://www.maestrosdelweb.com/tutori...fecha_hora.asp

9.- ¿Como puedo saber los usuarios activos?
R: http://www.maestrosdelweb.com/tutori...os_activos.asp

10.- Algun servidor que soporte ASPEmail, CDONTD o cualquiera que se le aparezca y aparte gratis.
http://www.domaindlx.com/

11.- Tengo 1000 registros, como los muestro de 10 en 10
R:
http://www.forosdelweb.com/showthrea...threadid=78884
http://www.forosdelweb.com/showthrea...threadid=78876
http://www.forosdelweb.com/showthrea...threadid=78886

12.- ¿El Ad Rotator sive para banners en flash?
http://www.forosdelweb.com/showthrea...threadid=65206

13.- ¿Como hago un buscador para mi sitio?
http://www.forosdelweb.com/showthrea...threadid=73294

Continua...

urjose 13/07/2002 22:55

Re: Las FAQ's del foro de ASP
 

14.- No se cual es mi error, me ayudan?
Pos si nos posteas el error mejor.


15.- Cdonts no funciona en XP
http://www.forosdelweb.com/showthrea...threadid=74823


16.- File manager por Dazuaga
http://www14.brinkster.com/editonser...erver_beta.zip


17.- Como obtengo la IP de un cliente.
IP=Request.ServerVariables("Remote_Addr")


18.- Como puedo redirigir a otro marco?.
El Response.Redirect acepta target.. No se puede y No


19.- Como muestro las primeras 20 palabras deuna cadena y despues le pongo puntos suspensivos:

Cadena="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
Cadena=Split(cadena," ")
For i =0 to 20
Response.Write Cadena(i)& " "
Next



En fin ya me dio hueva seguirle...

(y a dazuaga le está dando "hueva" modificar los post para adaptarlos al nuevo foro xDDD)
(y a g_susdaniel le está dando "hueva" modificar los post para corregirle pequeños y se vean en un buen orden detalles "xDDD")

urjose 14/07/2002 01:40

Re: Las FAQ's del foro de ASP
 
Ahi va otra que será una FAQ en el futuro...
FAQ Edición Especial:
Por que nadie me responde?
R: Por que seguramente lo que preguntas es una FAQ que se encuentra en el mensaje de las FAQ's. A parte de existir otras decenas de mensajes que hablan de lo mismo. Y nos da hueva responderte.

Sir Matrix 14/07/2002 08:54

Re: Las FAQ's del foro de ASP
 
están muy buenas las facks :risa: digo las faqs, pero cómo??? falta la pregunta más repetida de todas:



Cómo subo un archivo al servidor con ASP??

R: visita esta maravillosa web:

http://www.webmagic.cl/rupload.php


saludos


(Nota del editor: Sir, no vale hacer SPAM :-D)
(Nota del Sir: ya me di cuenta que esta pregunta estaba más arriba, pero en la maravillosa web está más completa XDD)
(Nota del otro editor: vayan a charlar a un messenger cualquiera, XDD)

ElAprendiz 14/07/2002 10:28

Re: Las FAQ's del foro de ASP
 
Mas que una FAQ un tip de seguridad:

20.- Como evitar que nos ingresen Sentencias SQL en un textbox

usuario=replace(request.form("usuario"),"'","")
password=replace(request.form("password"),"'","")


Bueno este me lo enseñó Urjose hace mucho tiempo, cuando queremos mostrar la tabla mensajes, pero cambiar la tabla id por el nombre del usuario:

21.- Como mostrar datos relacionados.

si tenemos las siguientes tablas:
Usuarios:Nombre, IdUsuario
Mensajes:Id, Mensajes, Fecha

Sql="select B.nombre, A.Fecha, A.Id, A.Mensajes from Usuarios B, Mensajes A Where A.Fecha='"&Hoy&"' and A.ID=B.IdUsuario"



22.- Como crear una lista Desplegable desde una BDD
siguendo con el ejemplo anterior:

Sql="select IdUsuario, Nombre from Usuarios"
'ejecutamos la consulta
<select name="Lista">
<%do while not RsLista.eof%>
<option value="<%=RsLista("IdUsuario")%>"><%=RsRamos("Nomb re")%></option>
<%
RsRamos.movenext
loop
%>
</select>

ElAprendiz 14/07/2002 11:21

Re: Las FAQ's del foro de ASP
 
Ooops!. el ultimo es solo un listbox desde una Bdd...

Listas desplegables aca:
http://www.aspfacil.com/codigo/listasdependientes.asp

mamon 16/07/2002 21:49

Re: Las FAQ's del foro de ASP
 
Quiero ver páginas ASP en mi computadora pero no encuentro el PWS.
http://www.soloasp.com.ar/vertexto.asp?txt=2


Cómo hago para poner el mismo código en todas mis páginas sin tener q escribirlo a cada rato??
http://www.soloasp.com.ar/vertexto.asp?txt=12

cvander 16/07/2002 22:06

Re: Las FAQ's del foro de ASP
 
Excelentes colaboraciones..

Otra más..

26.- Cómo muestro los usuarios activos?
http://www.maestrosdelweb.com/editor...o.php?aspcount

bakanzipp 17/07/2002 10:30

Re: Las FAQ's del foro de ASP
 
¿como puedo generar listas dependientes...a partir de una opcion generada me refresque la segunda lista?...se puede realizar esto con 3 listas?

http://www.forosdelweb.com/showthrea...threadid=75056

urjose 17/07/2002 15:41

Re: Las FAQ's del foro de ASP
 
Otro sistema de usuario y contraseñas con sesiones:

http://www.brinkster.com/articles/as.../password1.asp
http://www.brinkster.com/Articles/AS.../Password2.asp

Solo que esta en Inglés

Owen-Bonilla 17/07/2002 15:45

Re: Las FAQ's del foro de ASP
 
Cómo despliego Registros de mi BD en un COMBO?


...
Tu Conexión
...
...
<select size="1" name="Directorio>
<option>Seleccionar</option>
<%
while (NOT Rs.EOF)
%>
<option value=<%=Rs.fields.item("categoria_URL").value%>><%=Rs.fields.item("categoria").value%></option>
<%
Rs.movenext()
wend
%>

</select>


Sigamos colaborando
Saludos

bakanzipp 17/07/2002 17:37

Re: Las FAQ's del foro de ASP
 
como puedo manejador envio de correo con ASP?

http://www.forosdelweb.com/showthrea...threadid=90572

urjose 17/07/2002 21:50

Re: Las FAQ's del foro de ASP
 
Otra:

A que se debe el siguiente error?

Response object error 'ASP 0156 : 80004005'
Header Error
/foro/cookies.asp, line UN_NUMERO
The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.


Lo más seguro es que estes intentando redireccionar (response.redirect "algo.asp") cuando ya mandaste información al cliente.

Para decirle al servidor que no mande info hasta que se termine de procesar la página colocamos la siguiente línea al principio de todo nuestro código, es decir, como la primer línea, es decir, antes de cualquier cosa ok?

<% Response.Buffer=true %>

Saludos

urjose 18/07/2002 09:36

Re: Las FAQ's del foro de ASP
 
Otro manualillo:

http://www.forosdelweb.com/showthrea...threadid=59439

Cain 19/07/2002 03:29

Re: Las FAQ's del foro de ASP
 
Cita:

18.- Como puedo redirigir a otro marco?. El Response.Redirect no acepta target
No se puede y No

En este mundo, casi todo es posible ;)

<script>window.FRAME.document.location.href='pagin a.asp';</script>

Ya sé que es javascript, pero puede integrarse perfectamente con ASP, ¿no creen?


Owen-Bonilla 19/07/2002 11:38

Re: Las FAQ's del foro de ASP
 
Cambiar BackGround usando Cokkies ( Ejemplo Sencillos )


<%
IF Request.Form("Fondo")<>"" THEN
Response.Cookies("ColorFondo") = Request.Form("Fondo")
END IF
%>

<HTML>

<HEAD>
<TITLE> Color de Fondo Para tus Páginas </TITLE>
</HEAD>

<% IF Request.Form="" THEN %>

<BODY>

Escoge color de fondo para tus páginas: <BR>
<FORM ACTION="color_fondo.asp" METHOD="POST">
<TR> <TD> <INPUT TYPE="RADIO" NAME="Fondo" VALUE="AA0000"> Rojo </TD> </TR> <BR>
<TR> <TD> <INPUT TYPE="RADIO" NAME="Fondo" VALUE="00AA00"> Verde </TD> </TR> <BR>
<TR> <TD> <INPUT TYPE="RADIO" NAME="Fondo" VALUE="0000FF"> Azul </TD> </TR> <BR>
<TR> <TD> <INPUT TYPE="RADIO" NAME="Fondo" VALUE="FFFF00"> Amarillo </TD> </TR> <BR>
<TR> <TD> <INPUT TYPE="RADIO" NAME="Fondo" VALUE="FF00FF"> Morado </TD> </TR> <BR>
<TR> <TD> <INPUT TYPE="RADIO" NAME="Fondo" VALUE="00FFFF"> Cyan </TD> </TR> <BR>
<TR> <TD> <INPUT TYPE="RADIO" NAME="Fondo" VALUE="FFFFFF" CHECKED> Blanco </TD> </TR> <BR><BR>
<TR> <TD> <INPUT TYPE=SUBMIT VALUE="Actualizar fondo"> </TD> </TR>
</FORM>

<% ELSE %>

<BODY BGCOLOR= <%=Request.Cookies("ColorFondo")%> >


Color de fondo cambiado. El valor del Color Actual es:&<b><%=Request.Form("Fondo")%></b>
<p> Regresar para seleccionar otro color ---> <a href="color_fondo.asp"> Click Aqui </a>

<% End If %>
</BODY>
</HTML>



Solo copielo, guardenlo y corranlo !!

Saludos a todos :arriba: !!!
Y no estaria mal que Foros del Web Creara una sección especial de FAQ's con todos estos ejemplos

urjose 21/07/2002 14:28

Re: Las FAQ's del foro de ASP
 
Otro sistema de usuarios:

http://www.aspfacil.com/articulos/verarticulo.asp?id=44

Saludos

urjose 26/07/2002 14:20

Re: Las FAQ's del foro de ASP
 
Ahi van otras.

Como conecto ASP con MySQL

<%

Conexion = "Driver={MySQL};SERVER=localhost;DATABASE=nombreBa seDatos;UID=nombreUsuario;PASSWORD=password"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open Conexion
%>


Por que cuando despliego algo que guarde por medio de un textarea me sale todo corrido y no respeta los saltos de línea?

Cadena=Replace(Rs("Campo"),chr(13),"<br>")
Response.Write Cadena



Saludos

urjose 27/07/2002 13:04

Re: Las FAQ's del foro de ASP
 
y aquí otra, que hace tiempo que no salía pero también es una FAQ...

Tengo un foro, mis usuarios pueden poner http://www.comunidadguru.com, esto lo ingreso a una BD, como lo despliego pero ya convertido en link?

http://www.forosdelweb.com/showthrea...threadid=92336



Saludos

bakanzipp 29/07/2002 12:38

Re: Las FAQ's del foro de ASP
 
es posible encriptar en asp?

http://www.forosdelweb.com/showthrea...threadid=77655
http://www.innerhost.com/es/Default....components.asp

bakanzipp 29/07/2002 17:10

Re: Las FAQ's del foro de ASP
 
un buen tip de encriptacion dee ash

http://www.forosdelweb.com/showthrea...threadid=92822

urjose 29/07/2002 17:22

Re: Las FAQ's del foro de ASP
 
Otra clasica:

Que significan los dos numeros al abrir un Recordset?

Rs.Open SQL, Conexion, ? , ?

http://www.aspfacil.com/articulos/verarticulo.asp?id=65

bakanzipp 30/07/2002 19:30

Re: Las FAQ's del foro de ASP
 
como paso datos de una base de datos a una planilla excel?

http://www.forosdelweb.com/showthrea...threadid=93047

ashketchum 31/07/2002 11:58

Re: Las FAQ's del foro de ASP
 
Hola, tambien quiero aportar esto, si quieren encriptar las contraseñas (algo muy básico) en una base de datos, cookies o lo que se les ocurra pueden usar este Script que yo diseñe esta en este link

http://www.forosdelweb.com/showthrea...threadid=92822

espero que les sirva

saludos y suerte

bakanzipp 31/07/2002 17:31

Re: Las FAQ's del foro de ASP
 
como respeto los saltos de linea al ingresar los datos en un textarea y luego visualizarlos?

http://www.forosdelweb.com/showthrea...threadid=80259

CABEZOTA 31/07/2002 17:41

Re: Las FAQ's del foro de ASP
 
como evitar que cuando ingresen una cadena demasiado larga se deformen las tablas (a lo largo)

http://www.forosdelweb.com/showthrea...threadid=93279

Saludos

bakanzipp 02/08/2002 17:11

Re: Las FAQ's del foro de ASP
 
necesito servidores gratuitos de ASP.

http://www.forosdelweb.com/showthrea...threadid=93694

Owen-Bonilla 15/08/2002 15:00

Re: Las FAQ's del foro de ASP
 
Cómo Muestro un Archivo Excel en una Hoja ASP?

Esto ya lo habian mencionado, pero por si tienen problemas aqui dejo el código completo que funciona bien.
Articulo de ASPFACIL (http://www.aspfacil.com/articulos/190301.asp)


<% @language=vbscript %>
<html>
<head>
<title>Inventario de Excel</title>
</head>

<%

Path=Server.MapPath("Archivo_Excel.xls")
Set ConexionBD = Server.CreateObject("ADODB.Connection")
ConexionBD.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Path
Set rsVac = Server.CreateObject("ADODB.Recordset")
rsVac.Open "Select * From Nombre_De_Rango" ,ConexionBD,3,3
%>
<body>
<h2><b><center>Inventarios</center></b></h2>
<hr>
<table border=1 align="center">

<%

' Aqui mencionamos las columnas que quiero mostrar ( nota: la columa "A"
' seria rsVac.Fields.Item(0).Name ) osea que este ejemplo te muestra las 3 primelas columas ( A, B y C )


Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(2).Name & "</th>" & vbCrLf

'Y por último, el cuerpo de los datos
Do While Not rsVac.EOF
Response.Write "<tr>" & vbCrLf
Response.write "<td>" & rsVac(0) & "</td>"
Response.write "<td>" & rsVac(1) & "</td>"
Response.write "<td>" & rsVac(2) & "</td>"

Response.Write "</tr>" & vbCrLf
rsVac.MoveNext
Loop
Response.Write "</table>"

'Se cierra y se destruye el objeto recordset
rsVac.Close
Set rsVac = Nothing

'Se cierra y se destruye el objeto connection
ConexionBD.Close
Set ConexionBD = Nothing
%>
</body>
</html>



NOMBRE DE RANGO: En el archivo Excel ( abierto ) defines el nombre de rango, osea, el rango de las celdas que estes usando.

1) Seleccionas todos los datos que tengas.
2) Menu INSERTAR
3) Seleccionas NOMBRE, Luego DEFINIR
4) Escribes el nombre que quieras
5) Picas en AGREGAR
6 ) Guardas el archivo

Owen-Bonilla 15/08/2002 15:20

Re: Las FAQ's del foro de ASP
 
DE EXCEL Y ASP. Porque me sale este error?:


Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Excel]Error general No se puede abrir la clave 'Temporary (volatile) Jet DSN for process 0x950 Thread 0x654 DBC 0x1210064 Excel' del Registro.


Tienes que cerrar la BD, que en este caso es el archivo Excel ;)

Saludos

GSMDN 19/08/2002 07:09

Re: Las FAQ's del foro de ASP
 
compactar bases de datos Access via Explorer

Es simplemente genial, pase mi BD de 92 MB a 39:

http://www.forosdelweb.com/showthrea...threadid=49143

pepe_e4 19/08/2002 22:28

Re: Las FAQ's del foro de ASP
 
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 20/08/2002 16:49

Re: Las FAQ's del foro de ASP
 
FORMATO DE FECHAS SENCILLO PERO "AGRADABLE"

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

pruebenlo, me gusta mucho y lo manejo bastante.

Saludos

splashman 26/08/2002 15:29

Re: Las FAQ's del foro de ASP
 
sistema de noticia

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


ATTE SPLASHMAN

MARKWEB 07/09/2002 04:40

Re: Las FAQ's del foro de ASP
 
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 07/09/2002 04:43

Re: Las FAQ's del foro de ASP
 
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">
<!--
A:link, A:visited { text-decoration: none }
.link2:hover {color: #3399cc}
.para1 { margin-top: -40px; margin-left: 75px; font-family: "Arial, Helvetica"; font-size: 25px; line-height: 28px; text-align: left; color: #E1E1E1; }
.para2 { margin-top: 5px; margin-left: 15px; font-family: "Arial Black, Arial, Helvetica"; font-size: 40px; line-height: 35px; text-align: left; color: #004080;}
-->
</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 07/09/2002 04:48

Re: Las FAQ's del foro de ASP
 
<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é :borracho: :borracho:

cvander 21/11/2002 11:16

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

Que dirán los moderadores ;)

AlZuwaga 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 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 :cool:

Mickel 25/11/2002 22:15

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

cvander 27/11/2002 14:58

Ayuda para incluir información en Faqsdelweb.com
 
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 27/11/2002 16:27

Solución sencilla para los problemas con formato de fecha mediante Session.LCID
 
http://www.webwizguide.info/asp/faq/...e_settings.asp

bakanzipp 29/11/2002 12:00

atachar archivos en directorios validos
 
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 06/12/2002 10:47

Enviar Emails Sin CDO
 
http://www.aspfacil.com/articulos/sincdo.asp

FaqsDelWeb

deprabado 08/12/2002 18:55

Tips
 
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...

Artepop 21/12/2002 18:28

Cita:

4.- ¿Donde consigo un buen foro?
Yo uso este: http://www.youngpip.com/

Por fin me voy enterando sobre ASP

Gracias

korev 27/12/2002 14:26

P: ¿Cómo puedo saber la ip del usuario? ¿De dónde viene? ¿Canta por las mañanas en la ducha?

R: Con este sencillo script se recorre la colección. Recomendable para usar la más adecuada cuando hay dudas, y el ejemplo es uno mismo si se quiere.

Código:

<TABLE>
      <TR>
          <TD>
                <B>Server Varriable</B>
          </TD>
          <TD>
                <B>Value</B>
          </TD>
      </TR>

      <% For Each name In Request.ServerVariables %>
      <TR>
          <TD>
                <%= name %>
          </TD>
          <TD>
                <%= Request.ServerVariables(name) %>
          </TD>
      </TR>
      <% Next %>
</TABLE>


lexus 02/01/2003 17:00

INTERBASE CON ASP
 
P: ¿Como manipular Bases de datos de INTERBASE con ASP?

R:
1) hay que bajar el controlador ODBC para interbase de aqui (es gratuito)
http://www.xtgsystems.com/download/ib6odbc.zip

2) haces la conexion y el sql para consultar los datos

set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={XTG Systems InterBase6 ODBC driver};" & _
"DB=localhost:C:\prueba\DBSMS.GDB;" & _
"Uid=SYSDBA;" & _
"Pwd=masterkey"
set rs = con.Execute("select CAMPO1, CAMPO2 from TABLA Where CAMPO1 = 5 Order by CAMPO2 DESC")


espero les sirva. suerte

ElAprendiz 04/02/2003 20:25

Sabido es que las busquedas por fechas son complicadas y a veces no nos dan los resultados que esperamos. Una buena manera de hacer una busqueda por fechas es: al grabar la fecha, tambien grabar su equivalente numericoa traves de una formula, un ejemplo:

<%
'**** conexion ****
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open= "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="&server.mappath("mibdd.mdb")

fecha= date()
dia= day(fecha)
mes= month(fecha)
anio=year(fecha)

'*** con esta formula obtenemos la fecha en formato numerico ***
fecha_numero = dia + mes*31+ anio*365 + 365

'******** Mi Sentencia SQL de insercion ********
SQl="insert into fechas(fecha, fecha_num) values ("&fecha&", "&fecha_numero&")"
set inserta =conn.execute(sql)

'*** luego al buscar lo hacemos por el campo numerico de la fecha (fecha_num)**
SQL="select * from campo where fecha_numero>="&fecha1&" and fecha_numero <= "&fecha2&" "

%>
Creditos:Bakanzipp

TurKa 21/02/2003 14:49

CDONTS - Enviar un e-mail con formato HTML
 
Para enviar un e-mail con formato HTML mediante CDONTS se debe indicar "0" (cero) a:

.BodyFormat = 0
.MailFormat = 0


Si en cambio ponemos "1" (uno) se enviará en formato solo texto.
Luego bastará escribir el mensaje con código HTML.

Ejemplo:

<%
Set Mail = Server.CreateObject ("CDONTS.Newmail")

Mail.BodyFormat = 0
Mail.MailFormat = 0


Mensaje = <b><font face='Arial' size='2'>Texto aquí</b>"
Mensaje = Mensaje & "<br>Más texto"

Mail.From = "Tu Nombre<[email protected]>"
Mail.To = "[email protected]"
Mail.Subject = "Asunto del mensaje"
Mail.Body = Mensaje

Mail.Send
Set Mail = Nothing
%>


La zona horaria es GMT -6. Ahora son las 12:15.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.