ASP Easy-News paginazione

Luca13

Nuovo Utente
27 Mar 2015
11
0
1
Salve,
Sono nuovo del fourm (e poco esperto di ASP), vorrei usare lo script Easy News ASP con DB MS Access (scaricato da MrWebmaster),
Ho caricato lo script (file .zip allegato) sul seguente link: http://www.newtechno.it/NEWSINDEX.asp con relative cartelle : Admin, Database, Includes (e relativi contenuti)

Funziona abbastanza bene ma chiedo umilmente: come posso aggiungere una paginazione articoli ?
ad esempio vorrei far apparire i primi 10 Articoli (tramite setting Admin/Page/PageSize.asp) e poi avere una paginazione per Tutti gli Articoli tipo : Indietro (1) (2) (3) (etc...) Avanti
servono altri dettagli ?
Grazie in anticipo,
Luca13
 

Allegati

  • asp_easy-news.zip
    32,6 KB · Visite: 351

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
Utilizza il seguente codice:
Codice:
<%

	PortalConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("Database/News.mdb")&";Persist Security Info=False"


Select Case Request.QueryString("dir")
  Case ""
    v_pagina_corrente = 1
  Case "next"
    v_pagina_corrente= cdbl(Request.QueryString("pag")) + 1
  Case "prev"
    v_pagina_corrente= cdbl(Request.QueryString("pag")) - 1
End Select 

   		adOpenKeyset = 1
		v_record_pagina = 4 'Numero di record da visualizzare su ogni pagina

' query di ricerca
		strsql = "SELECT * FROM news_t_newsdetails WHERE active='Y' ORDER BY newsdate DESC"

	Set conn = Server.CreateObject("ADODB.Connection")
	Set rst = Server.CreateObject("ADODB.Recordset")
		conn.open  PortalConnectString
		criterio = strsql
		rst.Open criterio, conn, adOpenKeyset

'Se la query ritorna dati, visualizzo la pagina
	If Not (rst.bof and rst.eof) then 

		rst.PageSize = cint(v_record_pagina)
		rst.AbsolutePage = Cdbl(v_pagina_corrente)

'Ciclo sui record della pagina
	For x = 1 To rst.PageSize

'Esco alla fine della pagina, se è l'ultima e contiene meno record delle altre
	If rst.Eof then exit for 

		id = (rst.Fields.Item("ID").Value)
		titolo = (rst.Fields.Item("title").Value)
		data = (rst.Fields.Item("newsdate").Value)
	
%>
<table width="500" cellpadding="2" cellspacing="2" border="0" align="center">
	<tr>
    <td width="25%" align="right"><%=data%></td>
    <td width="75%"><a href="NewsDetails.asp?ID=<%=id%>"><%=titolo%></a></td>
    </tr>
</table>
<% 

    rst.MoveNext 

    Next 

' barra di navigazione

%>
    <p align="center">
    <strong>Pagina <%=v_pagina_corrente%> di <%=rst.PageCount%></strong><br /><br />
    <%
              'Qui semplicemente creo la barra di navigazione.
        If rst.EOF and rst.BOF then
        
        %>
        <font color='#C0C0C0' size='2' face='Verdana'>Inizio</font>
        <font color='#C0C0C0' size='2' face='Verdana'>Indietro></font>
        <font color='#C0C0C0' size='2' face='Verdana'>>Avanti</font>
        <font color='#C0C0C0' size='2' face='Verdana'>Fine</font>
        <%
        
        Else
                If Cdbl(v_pagina_corrente) > 1 Then
                
                %>
                <a href="default.asp"><font size="2" face='Verdana'>Inizio</font></a>
                <a href="default.asp?dir=prev&pag=<%=v_pagina_corrente%>"><font size="2" face='Verdana'>Indietro</font></a>
                <%
                
                Else
                
                %>
                <font color='#C0C0C0' size='2' face='Verdana'>Inizio</font>
                <font color='#C0C0C0' size='2' face='Verdana'>Indietro</font>
                <%
                
                End If
        
                If Cdbl(v_pagina_corrente) < rst.PageCount Then
                
                %>
                <a href='default.asp?dir=next&pag=<%= v_pagina_corrente %>'><font size='2' face='Verdana'>Avanti</font></a>
                <a href='default.asp?dir=next&pag=<%= rst.pagecount - 1 %>'><font size='2' face='Verdana'>Fine</font></a>
                <%
                
                Else
                
                %>
                <font color='#C0C0C0' size='2' face='Verdana'>Avanti</font>
                <font color='#C0C0C0' size='2' face='Verdana'>Fine</font>
                <%
                
                End If	
        
        End If
        
        %>
        </p>
<% 

'	End If
	
' fine barra di navigazione

	Else
'La query non ritorna dati

%>
    <table width="720" cellpadding="1" cellspacing="1" border="0" align="center">
        <tr>
        <td valign="top"><p><strong>Nessuna record in archivio.</strong></p></td>
      </tr>
    </table>
<%


	End If
' ====================================================

		rst.Close
		conn.Close
	Set rst = nothing
	Set conn = nothing

%>

per il seguente risultato: http://www.caprioli.info/fitness/script/news/default.asp
 
Discussioni simili
Autore Titolo Forum Risposte Data
I asp | includere un file, indirizzo depositato in un db Classic ASP 0
Paolo69 Risolto reCAPTCHA v2 per ASP Classic ASP 0
P lanciare script asp (o php) da jquery Javascript 1
L Modifica file upload in ASP Classic ASP 2
felino ASP.net MVC: Exception e chiamata AJAX ASP.NET 1
W Rinominare Documenti Con Form Asp Classic ASP 9
G Registrazione utente su pagina asp Classic ASP 14
R Sviluppatore ASP.NET Offerte e Richieste di Lavoro e/o Collaborazione 0
seranto [ASP] Controllare il testo inserito in Textarea Classic ASP 6
F classic asp popolare combo box javascript Presentati al Forum 1
P Passagio dati complessi tra una ASP.NET webapi e Angular ASP.NET 1
A [ASP.Net] Gestire il profilo ADMIN in un progetto ASP NET e pattern MVC ASP.NET 0
P [ASP.Net] Problema ERR_INCOMPLETE_CHUNKED_ENCODING 206 (Partial Content) con Font ASP.NET 4
A [ASP] Confronto tra dati Form e DB Classic ASP 2
A Mantenere la validazione reindirizzandoci su un secondo sito WEb. (ASP.NET) ASP.NET 0
StephenSoftware [ASP.Net] Pagina Master ed eventi... ASP.NET 0
K [ASP] Visualizzare nome del file selezionato Classic ASP 3
S [ASP] rubrica telefonica Classic ASP 2
M MySQL e classic ASP Classic ASP 5
D [ASP] Eliminare gli zeri che nn servono Classic ASP 1
G [ASP] Ciclare i valori di 2 array Classic ASP 2
S [RISOLTO] aggiorna tabella da select option asp classic Classic ASP 7
S elimina record sql asp classic Classic ASP 5
D [ASP] Autocomplete cerca su 2 campi del db Classic ASP 1
D [ASP] Leggere Campo decimal MYSQL Classic ASP 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
NuviaSoftware [Retribuito] [Cerco] Programmatore ambienti ASP.NET,. Net Azure web apps, Javascript Offerte e Richieste di Lavoro e/o Collaborazione 0
D [ASP] scaricare articoli Classic ASP 8
D [ASP] Mysql insert e update Classic ASP 2
V [ASP.Net] avento keydown crh13 enter ASP.NET 0
A [ASP.Net] Dropdownlist ASP.NET 0
S [ASP.Net] [ASP] Upload Image ASP.NET 6
V Ricevere messaggi email certificata con CDO o altro oggetto in ASP Classic ASP 0
A [ASP] query wish list Classic ASP 3
riminese77 [ASP.Net] Popup Bootstrap in datagrid ASP.NET 0
D [ASP] si può fare? Classic ASP 29
D [ASP] ordinamento query Classic ASP 2
M [ASP] Upload file da form controllo Classic ASP 5
S SQL, ACCESS & ASP CLASSIC - QUERY Classic ASP 3
G [ASP] Incrementare un valore on the fly su selezione select Classic ASP 3
K [ASP.Net] Realizzazione menu a tendina dipendenti ASP.NET 1
Tommy03 Aprire un file .asp nel browser Classic ASP 5
E [ASP.Net] Access 2016 ? Non si usa Microsoft Jet 4.0 ma Engine 2016 o 2010. Non va ! ASP.NET 2
D csrf : Cross Site Request Forgery in classic asp Classic ASP 0
D [ASP] Motore di ricerca interno su 2 tabelle Classic ASP 3
M [ASP.Net] [ASP] geoblocking e web.config ASP.NET 3
N Cerco sviluppatore ASP per aggiornamento sito e-commerce esistente Offerte e Richieste di Lavoro e/o Collaborazione 0
D prima prova con ASP... dove sbaglio? Classic ASP 13
L [ASP.Net] Realizzare modulo contatti PopUp ! ASP.NET 1
P Da ASP a PHP... movenext? do while not? PHP 5

Discussioni simili