| ||||
bueno, apache no soporta por default asp. Tienes que instalarle los componentes de chilisoft (http://www.ortizmania.com/online/articulo.asp?art=2) Prueba y nos comentas, ......(o combierte tu sitio a PHP, jejeje) Saludos |
| ||||
![]() |
| ||||
y la ultima, que ya te pregunte? como cresta pagino resultados? no se supone que esto es lenguaje estructurado? cualquier estructura debiera servir para todos (o casi todos), me enviaste unas paginas esta: (http://asp.com-e.net/codigo/paginacion.asp) y averigue pero no llego muy lejos(logro que liste solo la cantidad pero la demonio con la barra de navegacion, tienes algo, yo soy nuevo en esto y ya me di cuenta que tu eres el Dios aqui. ayudame si puedes. que cambios le harias? |
| ||||
Cita: ¿De donde sacas que VBScript es un lenguaje estructurado?
Iniciado por ccca001 ¿no se supone que esto es lenguaje estructurado? Es interpretado, no obliga a definir tipos de datos, puedes colocar las funciones donde te pegue en gana ni siquiera te obliga a seguir una estructura al poder mezclar lenguajes. Ahora, por lo de la paginación, te reitero mi comentario, usa el de las FAQ's (ahorita busco la liga y te la paso), solo debes de copiarlo, pegarlo, modificar el origen de datos, la consulta y listo. |
| ||||
Listo, el ejemplo esta en: http://www.forosdelweb.com/showthrea...6&page=4&pp=15, es el sexto comentario y lo posteó lubetpic |
| ||||
no po, no me estai entendiendo... es guea es una mezcla de chino,arameo y aleman para mi, soy nuevo en esto de asp, vbscript y cuanto lenguaje internet existe... pero programo en otras gueas... entonces si esta es mi consulta: while Not rs.EOF if (cont < 3) then Response.Write "<tr><td align=center width=""7%"">" response.Write "</td> <td width=""25%"" ><font color=""#996600"" face=""Impact"">" response.write rs("tema") & " " response.Write "</td><td></td></tr>" response.Write "<tr><td align=center valign=top >" response.Write "<img src=""file.asp?ID=" & rs("ID") & """width=""100"" height=""75""" response.Write "</td><td valign=top> <font color=""#003399"" face=""Georgia"">" Response.Write "<a href=""noticia.asp?ID=" & rs("ID") & """>" response.write rs("titulo") & "<font color=""#003399"" face=""Georgia""><br></a> " response.write rs("resumen") & "<font color=""#003399"" face=""Bookman Old Style""><br>" Response.Write rs("dia") & " " Response.Write rs("mes") & "" response.write "</td><td></td></tr>" response.write "<tr><td></td></tr>" else Response.Write "<tr><td align=center width=""7%"">" response.Write "</td> <td width=""25%"" ><font size=2 color=""#996600"" face=""Georgia"">" response.Write "</td><td></td></tr>" response.Write "<tr><td></td><td valign=top> <font size=2 color=""#003399"" face=""Georgia"">" Response.Write "<a href=""noticia.asp?ID=" & rs("ID") & """>" response.write rs("titulo") & "<font color=""#003399"" face=""Georgia""><br></a> " Response.Write rs("dia") & " " Response.Write rs("mes") & "" response.write "</td><td></td></tr>" response.write "<tr><td></td></tr>" end if cont = cont + 1 rs.MoveNext wend como no va a haber una forma simple de paginar los resultados, y si no la hay hazmelo saber y me tendre que romper la cabeza con ese codigo. |
| ||||
A ver, la paginación consta basicamente de ir obteniendo N registros cada vez, esto se hace con el método RS.PageSize, una vez sabiendo cuantos registros vas a mostrar debes obtener el número de páginas, esto lo haces con el rs.pagecount, hecho esto, una vez que obtienes el recordset, debes posicionarte en la página que deseas, esto es con rs.absolutepage, ¡¡¡y listoooo!!! (diría Eugenio Dervez), lo demás solo es tu lógica para presentarlos (la capa de presentación en el modelo 3 tiers, dirian por ahí algunos). Este otro es un código mas sencillo que saque de las respuestas anteriores:
Código:
<% response.write session(pagina)&"<br>" xx=request.form("direccion") if xx = "Atras" then session("pagina")=session("pagina")-1 if session("pagina")< 1 then session("pagina")=1 end if else if xx="Adelante" then session("pagina")=session("pagina")+1 else session("pagina")=1 end if end if Set cnn = Server.CreateObject("ADODB.Connection") sConn = "Driver={SQL Server};SERVER=10.1.1.1; DATABASE=Catalogos;"&_ "UID=yyy;PWD=xx" cnn.Open sConn response.write "0"&"<br>" Set Ob_RS=Server.CreateObject("ADODB.Recordset") 'ob_RS.CursorLocation =adUseClient response.write "1"&"<br>" sql="Execute sListaArticulos 5,2,1" Ob_RS.Open sql,cnn,3,1 response.write "2"&"<br>" Ob_RS.PageSize=5 '10 if ob_rs.pagecount=0 then Response.Redirect "novalores.asp" end if if session("pagina")>ob_rs.pagecount then session("pagina")=ob_rs.pagecount end if ob_rs.absolutepage=session("pagina") inicio=1+(session("pagina")-1)*ob_rs.pagesize 'fin=inicio+9 fin=inicio+5 if fin > ob_rs.recordcount then fin =ob_rs.recordcount end if %> <center><h3>LISTA DE PATENTES SOLICITADAS</h3></center> <table border="0" width="100%" bgcolor="khaki"> <tr> <td width="50%" align="center">Registros <font color="#FF0000"><%=inicio%> </font> al <font color="#FF0000"><%=fin%></font> de un total de <font color="#FF0000"><%=ob_rs.recordcount%></font></td> <td width="50%" align="center">Página <font color="#FF0000"><%=session("pagina")%> </font> de <font color="#FF0000"><%=ob_rs.pagecount%></font></td> </tr> </table> <br> <%IF NOT Ob_RS.Eof THEN%> <TABLE BORDER=1> <center> <table border="2" bgcolor="white"> <TR> <TH>Autor</TH> <TH>Numero</TH> <%Registro=0 'DO WHILE Registro<10 AND NOT Ob_RS.Eof DO WHILE Registro<5 AND NOT Ob_RS.Eof %> <TR> <TD><%=Ob_RS(0)%></TD> <TD><%=Ob_RS(1)%></TD> <%Registro=Registro+1 Ob_RS.MoveNext LOOP Response.Write "</TABLE>" %> <table border="0" width="38%" height="5"> <tr><%if session("pagina")<> 1 then %> <td width="50%" height="1" align="center"> <form method="POST" action="Prueb2.asp"> <p><input type="submit" value="Atras" name="direccion"></p> </form> </td><%end if%> <%if session("pagina")< ob_rs.pagecount then%> <td width="50%" height="1" align="center"> <form method="POST" name="Prueb2.asp"> <p><input type="submit" value="Adelante" name="direccion"></p> </form> </td><%end if%> </tr> </table> </center> </div> <%END IF%> <% Ob_RS.Close Ob_Conn.Close%> |
| ||||
Cita:
Iniciado por ccca001 es guea es una mezcla de chino,arameo y aleman para mi ![]() Cita: ¿En que programas?, tal vez pueda ayudarnos al hacer analogías de como se haría "x" o "y" cosas en el lenguaje que manejas. pero programo en otras gueas... Cita: vamos, es simple, si lo observas es lo mismo que te comenté arriba, pero usando una "clase". Lo que posteaste y que veo te confundió es la parte de presentación de las ligas para que el usuario elija a la que desea ir.como no va a haber una forma simple de paginar los resultados, y si no la hay hazmelo saber y me tendre que romper la cabeza con ese odigo. ![]() Saludos ![]() |
| ||||
esto esta mas facil, se nota... yo programo desde pascal a c, pasando vbasic, y otras tonteras. a todo esto quien es eugenio? de donde eres?
__________________ "How do you define Real?" Última edición por ccca001; 03/09/2004 a las 13:17 |