ciao a tutti,
come faccio ad evidenziare la pagina in cui sono?
codice:<%@LANGUAGE=VBScript%> <% ' Define variables dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter ' DB connection dim Conn Set Conn = Server.CreateObject("ADODB.Connection") sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("cddatabase.mdb") & ";" & _ "Persist Security Info=True" Conn.Open(sConnection) ' records per page recordsonpage = 10 ' count all records allrecords = 0 set rs = conn.Execute("SELECT * FROM cds") do until rs.EOF allrecords = allrecords + 1 rs.movenext loop ' if offset is zero then the first page will be loaded offset = request.querystring("offset") if offset = 0 OR offset = "" then requestrecords = 0 else requestrecords = requestrecords + offset end if ' opens database set rs = conn.Execute("SELECT * FROM cds ORDER BY cdid") ' reads first records (offset) without showing them (can't find another solution!) hiddenrecords = requestrecords do until hiddenrecords = 0 OR rs.EOF hiddenrecords = hiddenrecords - 1 rs.movenext if rs.EOF then lastrecord = 1 end if loop %> <html> <head> <title>CD Database</title> <meta http-equiv="author" content="Tranzity"> </head> <body> <table cellspacing="2" cellpadding="2" border="1" width="400"> <% ' prints records in the table showrecords = recordsonpage recordcounter = requestrecords do until showrecords = 0 OR rs.EOF recordcounter = recordcounter + 1 %> <tr> <td><% = recordcounter %></td> <td><% = rs("cdid") %></td> <td><% = rs("title") %></td> </tr> <% showrecords = showrecords - 1 rs.movenext if rs.EOF then lastrecord = 1 end if loop %> </table> <table cellspacing="2" cellpadding="2" border="1" width="400"> <tr> <td><% if requestrecords <> 0 then %>Prev Page<% else %>Prev Page<% end if %></td> <td><% if lastrecord <> 1 then %> Next Page<% else %>Next Page<% end if %></td> </tr> <tr> <td colspan="2">pagelist: <% pagelist = 0 pagelistcounter = 0 do until pagelist > allrecords pagelistcounter = pagelistcounter + 1 %> <% = pagelistcounter %> <% pagelist = pagelist + recordsonpage loop %> </td> </tr> </table> <% ' Closes connection rs.close Conn.close %> </body> </html>
Rispondi quotando
