klik here Κλικ εδώ Support 5' για οποιαδήποτε σχετική απορία σου.

ASP

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!

  1. Alex
    6/2/2002

    Όσον αφορά το επόμενη, προηγούμενη σελίδα κλπ.
    Θα πρέπει να φτιάξεις ένα 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



Σχολίασε


   Πίσω στην προηγούμενη σελίδα