ASP - ayuda con paginacion

   
Vista:

ayuda con paginacion

Publicado por gerardo (1 intervención) el 11/04/2008 10:11:27
hola tengo un problema, he hecho una paginacion pero me exigen que la url y en enlace en la barra de estado no se vea lo k envio un ej:

http://prueba.hola.asp?page=2

pues quiero que salga asi

http://prueba.hola.asp#

que no se va lo de page=2

os paso el codigo para que lo veais, haber si me podeis poner lo que falta, me han dixo que lo haga con un formulario y que me lo envie a la misma pagina

____________________________________________________________________________

este codigo es sin formulario y funciona la paginacion:

<HTML>

<head>
<style type="text/css">
<!--
.Estilo15 {color:#0000FF; font-weight: bold; font-size: large; }

.Estilo1 {color:#000000;font-weight: bold;}
.Estilo4 {color:#000000;font-weight: bold;}

a:visited{color:#FF0066;text-decoration:none;}
a:hover{color:#FF8282;}
a:link{color:#FAFED8;text-decoration:none;}
-->
</style>
</head>
<BODY bgcolor="#FFFF66">

<%
Dim mostrar 'cantidad de registros a mostrar por pgina
Dim cant_paginas 'cantidad de pginas que recibimos
Dim pagina_actual 'La pgina que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las pginas
Dim I 'Variable Loop

mostrar = 3
control2=0


if InStr(Request.querystring("page"), "'")<> 0 then
control2=1
end if
if control2=1 then response.Redirect("http://gerardo3e.brinkster.net/trabajo_ejercicio3/principal_error.html")

If Request.querystring("page") = "" Then
pagina_actual = 1
Else

pagina_actual = CInt(Request.QueryString("page"))
End If

strSQL = "SELECT * FROM periodicos"

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bbdd.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar

RS.Open strSQL, oConn,3,1

cant_paginas = RS.PageCount

If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1

If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else

RS.AbsolutePage = pagina_actual

%>

<%
Response.Write "<BR><BR>" & vbCrLf

Response.Write "<TABLE BORDER='4' width='50%' height='20%' bordercolor='#0000FF'>" & vbCrLf
' Mostramos los titulos de las columnas... (pueden sacar ese FOR para eliminar eso)
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD align='center'><span class='Estilo15'><B>"
Response.Write RS.Fields(I).Name
Response.Write "</B></span></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD>"
Response.Write RS.Fields(I)
Response.Write "</TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al prximo registro...
RS.MoveNext
Loop

'listo...
Response.Write "</TABLE>" & vbCrLf
End If

' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

' Ahora mostramos los enlaces a las otras pginas con el resto de los registros...
If pagina_actual > 1 Then
%>

<a href="./paginacion_periodicos.asp?eje=30&page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
End If

' mostramos la paginacion por numeros de pgina
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
%>
<a href="./paginacion_periodicos.asp?eje=30&page=<%= I %>"><%= I %></a>
<%
End If
Next 'I

If pagina_actual < cant_paginas Then
%>
<a href="./paginacion_periodicos.asp?eje=30&page=<%= pagina_actual + 1 %>">[Proximo >>]</a>
<%
End If

%>
<br>
<br>
<span class='Estilo4'><A HREF='http://gerardo3e.brinkster.net/trabajo_ejercicio3/principal.html'>IR A LA PAGINA PRINCIPAL</A></span>

</body>
</html>

______________________________________________________________________--

y tengo 2 funciones javascript k me han dado las escribo tambien:

<script language="JavaScript" type="text/javascript">
<!--
function enviar()
{
alert('vble: '+document.form1.cont.value);
document.form1.cont.value = document.form1.cont.value + 1
//co=document.form1.cont.value
//co=co+1
document.form1.submit()
}

function ir_a(x)
{
alert('vble: ' + x);
document.form1.cont.value = x;
document.form1.submit();
}
//-->
</script>

_________________________________________________________

se que hay que enviar algo con un hidden pero estoy perdido.

muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de ASP
- Código fuente de ASP
- Cursos de ASP
- Temas de ASP
información
Códigos de ASP
- Muestra la fecha
- Grafico
- Tiempo en pulsar un enlace

RE:ayuda con paginacion

Publicado por Faviel (11 intervenciones) el 17/04/2008 15:46:11
Utiliza el Metodo Post en lugar de Get para tus forms, aqui puedes ver mas opciones para solucionar tu problema,

Link:
http://classicasp.aspfaq.com/general/how-do-i-cloak/hide-url-and-querystring-information.html

Saludos,

Faviel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar