|
|
| |
|
<%@LANGUAGE="VBSCRIPT"%>
<%
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 = 3 ' 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 agenda order by fecha desc"
' Creamos la conexion a la base de datos
Set oConn = Server.CreateObject("ADODB.Connection")
'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("FileDB.mdb")
oConn.Open = HD_conexion_STRING
' 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..."
control=1
Else
control=0
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
' Espacios
'iniciamos la tabla donde mostraremos todo
Response.Write "" & vbCrLf
' Mostramos los titulos de las columnas... (pueden sacar ese FOR para eliminar eso)
'For I = 0 To RS.Fields.Count - 1
'Response.Write vbTab & vbTab & "| "
'Response.Write RS.Fields(I).Name
'Response.Write " | " & vbCrLf
'Next 'I
'Response.Write vbTab & "" & vbCrLf
' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
TEXT = Server.HTMLEncode(rs("texto"))
TEXT = Replace(TEXT , vbCrLf, "
")
TEXT = Replace(TEXT , " ", " ")
TEXT = Replace(TEXT , "[", "")
TEXT = Replace(TEXT , "]", "")
TEXT = Replace(TEXT , "{", "")
TEXT = Replace(TEXT , "}", "")
'divido la descripcion en una matriz para controlar los cambios de linea
matriz=split(text,"
",-1,1)
'guardo el limite de la matriz por arriba para saber de cuantas se compone
limite= ubound(matriz,1)
'guardo la longitud del texto
largo=len(text)
'si hay mas de 8 lineas...
if limite > 8 then
composicion= matriz(0)&"
"&matriz(1)&"
"&matriz(2)&"
"&matriz(3)&"
"&matriz(4)&"
"&matriz(5)&"
"&matriz(6)&"
"&matriz(7)&"..."
longit=len(composicion)
'comprobamos la longitud de esas 8 lineas
if longit > 400 then
'si es mayor de 512 caracteres, cortamos el texto en esa longitud
Txt=LEFT(TEXT,400)
'miramos la cadena desde el final buscando el primer cambio de linea para cortar ahi
Txtc=InStrRev(Txt,"
",400,1)
'SI TXTC DA CERO ES KE NO ENCUENTRA NINGUN BR, POR TANTO cortamos en el primer espacio en blanco
if Txtc=0 then
Txtc2=InStrRev(Txt," ",400,1)
TEXT=left(TEXT,(Txtc2))&" ..."
ELSE
'si no da cero cortamos la cadena en esa posicion
TEXT=left(TEXT,(Txtc-1))&"..."
END IF
else
TEXT=composicion
end if
' si no hay mas de 8 lineas... comprobamos longitud de texto
elseif largo >400 then
'si es mayor de 512 caracteres, cortamos el texto en esa longitud
Txt=LEFT(TEXT,400)
'miramos la cadena desde el final buscando el primer cambio de linea para cortar ahi
Txtc=InStrRev(Txt,"
",400,1)
'SI TXTC DA CERO ES KE NO ENCUENTRA NINGUN BR, POR TANTO CORTAMOS en el primer espacio en blanco
if Txtc=0 then
Txtc2=InStrRev(Txt," ",400,1)
TEXT=left(TEXT,(Txtc2))&" ..."
ELSE
'si no da cero cortamos la cadena en esa posicion
TEXT=left(TEXT,(Txtc-1))&"..."
END IF
END IF
if rs("file_name")="0" then %>
|
|
<%else%>
|
|
<%end if
'Response.Write "| | "
' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
RS.MoveNext
Loop
'listo...
'Response.Write " " & vbCrLf
End If
' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
response.write ""
' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%>
<%
End If
If pagina_actual < cant_paginas Then
%>
<%
End If
'Fin...
if control=0 then
response.write " | |
"
end if
%>
|
|
