05/08/2005, 16:42
|
 | | | Fecha de Ingreso: junio-2005
Mensajes: 315
Antigüedad: 19 años, 11 meses Puntos: 0 | |
| defaul.asp
<%@ Language=VBScript %>
<%
Dim conexion, registros, basedatos
basedatos = Server.MapPath("biblioteca.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
SET RSregistros=Server.CreateObject("ADODB.Recordset")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
%>
<HTML>
<HEAD><TITLE>Archivos de Biblioteca</TITLE></head>
<BODY>
<TABLE>
<TD> título del Documento</TD>
<TD>Leido</TD>
<TD>Ver</TD>
<%
SQL="SELECT * FROM archivos "
rsregistros.Open sql,conexion
While Not registros.EOF
%>
<TR>
<TD><a target="_blank" href="pop.asp?id=<%=registros.fields("id").value%> "><%= registros.Fields("titulo").Value %></a></TD>
<TD><%=registros.Fields("visto").Value %></TD>
<TD><a target="_blank" href="pop.asp?id=<%=registros.Fields("id").value%> "></a> <img src="<%= registros.Fields("tipo").Value %>"></span></TD>
</TR>
<%
registros.MoveNext
Loop
registros.Close()
Set registros = Nothing
conexion.Close()
Set conexion = Nothing
%>
</TABLE>
</BODY>
</HTML>
pop.asp
<%@ Language=VBScript %>
<%
Dim conexion, registros, basedatos
basedatos = Server.MapPath("biblioteca.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
SET RSregistros=Server.CreateObject("ADODB.Recordset")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
id=Request.QueryString ("id")
if id<>"" then
sql="update archibos set visto=visto+1 where id ='" & id & "'"
conexion.Execute sql
sql="select * from archivos where id='"& id & "'"
RSregistros.Open sql,conexion
if not RSregistros.EOF then
Response.Redirect RSregistros.Fields("ruta")
end if
RSregistros.Close()
Response.End()
end if
%>
proba con esto, espero que te sirva de guia, usando un poco de javascritp podes hacer que se abra en un popup real, que se cierre automaticamente o un monton de cosas mas, saludos
__________________
Sigue al indio desnudo... Pero con precaución, atendiendo las señales de transito y comentando todo lo que haces.
REM Hay que encontrar el camino de regreso y no siempre es facil.... |