Forum

ASP - Από {Fevgatos}

Exo mia DB se Access kai se ena arxeio .asp diavazo tis grames kai tis stiles tis se tables. Thelo na kano:
1)Ta tables pou tha emfanizonte sto .asp na einai mexri 10.Dld na exi ena "[epomeni] [proigoumeni]" selida kai stin kathe selida na exi 10 table...
(kati paromio me sto tip.gr sto forum alla to exi ana 5 erotisis).
2)Se ena allo .asp arxeio na dixnei ta tables pou graftikan tin teleftea evdomada.Dld molis perasi mia evdomada (7 meres) na min emfanizonte ta tables pou graftikan prin 8 meres.

Otidipote gnorizete i kai nomizete pos mporei na me voithisei as to grapsete.Thanks!

Απάντηση από:Alex

Όσον αφορά το επόμενη, προηγούμενη σελίδα κλπ.
Θα πρέπει να φτιάξεις ένα navigation bar για το αρχείο σου.
Αμέσως μετά το ερώτημα στην database τοποθέτησε τα παρακάτω:


rs.PageSize = 10
iPageCount = rs.PageCount
lRecs = rs.RecordCount

iPage = request("page")
if isNumeric(iPage) then iPage = CLng(iPage)
if iPage < 1 then iPage = 1
if lRecs > 0 then rs.AbsolutePage = iPage

if not (lRecs > 0) then response.write "<p class=""smallertext"">Δεν υπάρχουν θεματα.</p>"

sNavBar = "<p class=""smallertext"" align=right>"

'Εδώ το navigation bar
if iPage <> 1 then sNavBar = sNavBar & "<a href=""file.asp?page=1"">Πρώτη</a> " else sNavBar = sNavBar & "Πρώτη "
if iPage > 1 then sNavBar = sNavBar & " <a href=""file.asp?page=" & iPage - 1 & """>Προηγούμενη</a> " else sNavBar = sNavBar & " Προηγούμενη "
if iPage < iPageCount then sNavBar = sNavBar & " <a href=""file.asp?page=" & iPage + 1 & """>Επόμενη</a> " else sNavBar = sNavBar & " Επόμενη "
if iPage <> iPageCount then sNavBar = sNavBar & " <a href=""file.asp?&page=" & iPageCount & """>Τελευταία</a>" else sNavBar = sNavBar & " Τελευταία"

sNavBar = sNavBar & "Σελίδα " & iPage & " από " & iPageCount & "</p>"

if lRecs > 0 then response.write sNavBar
%>


Πριν την παρουσίαση των αποτελεσμάτων θα πρέπει να τοποθετήσεις το:

do while not (rs.eof or (rs.AbsolutePage <> iPage))
Δηλαδή εκεί που αρχίζεις τα
spedio= rs("pedio") κλπ θα πρέπει να:
do while not (rs.eof or (rs.AbsolutePage <> iPage))¨
spedio= rs("pedio")



Τώρα για να τοποθετήσεις nav bar και στο κάτω μέρος των σελίδων σου θα πρέπει να δώσεις μετά το κλείσιμο τις σύνδεσης τα παρακάτω:
CloseDB

response.write "</table>"
if lRecs > 0 then response.write sNavBar