Ver Mensaje Individual
  #5 (permalink)  
Antiguo 05/08/2005, 16:45
Avatar de mamon
mamon
 
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 23 años, 4 meses
Puntos: 3
YA! TE TENGO LA SOLUCION E PAGINAR TU TEXTO=)

mira la variable que se llama variable tiene el texto... luego, la variable mostrar son la cantidad de palabras que quieres mostrar.... ya está paginado=) espero te sirva.. me dices qué te parecio

<%
variable = "Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est"
variable = Replace(variable,vbcrlf,"<br>")
V = Split(variable," ")
palabras = Ubound(V)
mostrar = 10
If Request.QueryString("pag") = "" Then
pagina_actual = 0
Else
pagina_actual = CInt(Request.QueryString("pag"))
End If
cant_paginas = Int(palabras/mostrar)
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 0 Then pagina_actual = 0
if pagina_actual < cant_paginas then
for i = pagina_actual*mostrar to pagina_actual*mostrar+mostrar-1
response.Write(V(i)&" ")
next
else
for i = pagina_actual*mostrar to palabras
response.Write(V(i)&" ")
next
end if
response.Write("<br>")
if pagina_actual > 0 then
response.Write("<a href='mid.asp?pag="&pagina_actual-1&"'><<</a> ")
end if

if pagina_actual < cant_paginas then
response.Write(" <a href='mid.asp?pag="&pagina_actual+1&"'>>></a>")
end if
%>

es más.. podemos hacer una función con ésto... voa ponerla en las biblioteca de ASP
__________________
Yo si sé lo que es trabajar duro, porque lo he visto.