Salve,
dovendo gestire un certo numero di files all'interno di una pagina si corre il rischio di imbattersi in una lista lunghissima nella quale è difficile orientarsi, così sarebbe opportuno limitare la visualizzazione per un numero massimo, ad esempio 10 files con opportuna descrizione, ho provato ad aggiungere la funzione "ipagesize" con la possibilità di passare alle pagine successive, ma non riesco a farla funzionare, pur avendo inserito più di 10 files.
Questo è lo script in questione:
codice:
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/appunti.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from temp", conn
Dim iPageSize 'Numero di record da visualizzare
Dim iPageCount 'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent 'Pagina corrente
Dim strOrderBy 'Parametro in base a cui definire l'ordinamento
Dim strSQL 'Comando da eseguire
Dim iRecordsShown 'Variabile usata per definire i record mostrati
' Imposto il numero di record visualizzati
iPageSize = 10
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
%>
<html>
<head>
<title>Sezione riservata</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style TYPE="text/css"><!--
A:link {text-decoration: none;}
A:visited {text-decoration: none;}
A:active {text-decoration: none;}
A:hover {text-decoration: underline;}
A:hover {color: orange}
.link:hover {color: #000000;}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#666666" link="#000066" vlink="#000066" alink="#000066">
<table border="0" cellspacing="0" cellpadding="0" align="center" style="width: 699px">
<tr>
<td width="200" style="height: 25px"><font face="Courier New, Courier, mono" size="2">
TITOLO</font></td>
<td style="height: 25px; width: 98px">
<div align="center"><font face="Courier New, Courier, mono" size="2">
SCARICA</font></div>
</td>
<td style="height: 25px; width: 481px;">
<div align="center"><font face="Courier New, Courier, mono" size="2">
DESCRIZIONE</font></div>
</td>
</tr>
<% do while not rs.eof %>
<tr>
<td width="200" height="25"><font face="Courier New, Courier, mono"><font size="2"><% response.write ucase(rs("titolo")) %></font></font></td>
<td height="25" style="width: 98px">
<div align="center"><font face="Courier New, Courier, mono" size="2"><a href="public/<% response.write rs("posizione") %>">
[img]modulistica/images/download.gif[/img]</a></font></div>
</td>
<td height="25" style="width: 481px">
<% response.write ucase(rs("descrizione")) %></font></font></td></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</p>
</p>
</p>
</p>
</p>
<table width="440" border="0" cellspacing="5" cellpadding="0" align="center">
<tr>
<td width="123" style="height: 18px"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Pagina
<%= iPageCurrent%> di <%= iPageCount%></font></td>
<td width="194" style="height: 18px">
<div align="right"><%
If iPageCurrent <> 1 Then
%><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<a
href="../pubblico.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>"><
indietro</a></font><% end if %></div>
</td>
<td width="80" style="height: 18px">
<div align="right"><%If iPageCurrent < iPageCount Then
%><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a
href="../pubblico.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">avanti
></a></font><% end if %></div>
</td>
</tr>
</table>
</body>
</html>
Saluti, Gurdjieff
Rispondi quotando
