Avatar billede food4u.dk Nybegynder
30. september 2001 - 22:17 Der er 3 kommentarer og
1 løsning

Lav paging på dette...

Hejsa

Kan du lave paging på denne kode:

<center>
      <table border=\"0\" cellspacing=\"0\" cellpadding=\"10\" bgcolor=\"<% = color2 %>\" bordercolor=\"<% = color2 %>\" width=\"95%\">
        <tr bordercolor=\"<% = color1 %>\">
          <td><font face=\"Arial\" size=\"+1\" color=\"<% = color1 %>\"><b>Liste over
            alle opskrifter:<br>
            <br>
            </b></font>
            <table width=\"99%\" border=\"1\" cellspacing=\"0\" cellpadding=\"3\" bordercolorlight=\"#990000\" bordercolordark=\"#990000\">
  <tr valign=\"top\" bgcolor=\"#CC0000\">
    <td><i><b>Opskrift</b></i></td>
    <td><i><b>Land</b></i></td>
    <td><i><b>Karakter</b></i></td>
    <td><i><b>Læst</b></i></td>
    <td><i><b>Udskrevet</b></i></td>
  </tr>
<%
SQL = \"SELECT * FROM food4u where godkendt = \'ja\' order by opnavn\"
set top = conn.execute ( SQL )
do while not top.eof
on error resume next %>
  <tr valign=\"top\">
    <td><a href=\"/vis.asp?mode=vis&id=<% = top(\"id\") %>\"><% = top(\"opnavn\") %></a>
<%
SQL1 = \"SELECT * FROM kommentar where op_id = \" & top(\"id\")
set kom = conn.execute( SQL1 )
if kom.eof then
else
response.write \"<b> (Kommenteret)</b>\"
end if
%>
</td>
    <td><i><b><% = top(\"land\") %></b></i></td>
    <td><i><b><center><% = round(top(\"kar_point\")/top(\"kar_antal\"), 2) %></center></b></i></td>
    <td><i><b><center><% = top(\"anset\") %></center></b></i></td>
    <td><i><b><center><% = top(\"print\") %></center></b></i></td>
  </tr>
<% top.movenext
loop %>
</table>
          </td>
        </tr>
      </table>
    </center>
  <font face=\"Arial\"><% conn.close
  %></font></font>

Det skal være så der er \"Næste\", \"Forrige\" samt sådan en liste over sider \"1 2 3 4 5 6 7 8 8 10 11\"

Disse link, skal bare være næsten på siden, så sættet jeg selv ind.

PS: Det er kun på SQL der skal laves paging, SQL1 er bare til noget opdatering.

MVH
Christoffer
www.food4u.dk
Avatar billede prof2 Nybegynder
30. september 2001 - 22:24 #1
Kig på dette...


vis = 0
s = Request.QueryString(\"s\")
if s = \"\" then s = 0

rs.open \"Select count(id) as Antal from [forum] where (qid=0)\",dataconn
antal = rs(\"antal\")
rs.close

if antal <= 20 then
vis = 0
else
vis = 1
if s > 0 then
  tilbage = \"<a href=\'forum.asp?s=\" & s - 20 & \"\'>&lt;<u>Tilbage</u>&gt;</a>\"
else
  tilbage = \"&lt;Tilbage&gt;\"
end if

if antal > s+20 then
  frem = \"<a href=\'forum.asp?s=\" & s + 20 & \"\'>&lt;<u>Frem</u>&gt;</a>\"
else
  frem = \"&lt;Frem&gt;\"
end if

if s = 0 then fed = \"<b>1</b>\" else fed = \"1\"
tal = \"<a href=\'forum.asp\'><u>\" & fed & \"</u></a>\"
fed = \"\"
end if


%>
<%
        if vis = 1 then
       
       
        visdet = \"<p align=\'center\'><font face=\'Tahoma\' size=\'2\'>\" & tilbage & \"&nbsp;\" & tal & \"&nbsp;\"
       
        for i = 1 to 20
       
        if s/20 = i then fed = \"<b>\" else fed = \"\"
        if antal > 20*i then alletal = alletal & \"<a href=\'forum.asp?s=\" & i*20 & \"\'><u>\" & fed & i+1 & \"</b></u></a>&nbsp;\"
        next
               
        visdet = visdet & alletal & frem & \"</font></p>\"
        Response.Write (visdet)
       
        end if
        %>
       
        <div align=\"center\">
          <center>
          <table cellspacing=\"0\" style=\"border-collapse: collapse; \" bordercolor=\"#111111\" width=\"85%\" id=\"AutoNumber1\">
            <tr>
              <td width=\"53%\" style=\"border-bottom: 1px solid #000000\"><b>
              <font face=\"Tahoma\" size=\"2\">Titel:</font></b></td>
              <td width=\"8%\" style=\"border-bottom: 1px solid #000000\"><b>
              <font face=\"Tahoma\" size=\"2\">Svar:</font></b></td>
              <td width=\"18%\" style=\"border-bottom: 1px solid #000000\"><b>
              <font face=\"Tahoma\" size=\"2\">Bruger:</font></b></td>
              <td width=\"21%\" style=\"border-bottom: 1px solid #000000\"><b>
              <font face=\"Tahoma\" size=\"2\">Dato:</font></b></td>
            </tr>
            <%
            color = \"#FFFFFF\"
           
            rs.Open \"Select * from [forum] where (qid=0) order by id desc\",dataconn
            if s <> 0 then rs.Move (s)
           
            for i = 1 to 20
            if not rs.EOF then
           

            %>
            <tr>
              <td bgcolor=\"<%=color%>\" width=\"53%\"><font face=\"Tahoma\" size=\"2\"><a href=\"forumshow.asp?id=<%=RS(\"id\")%>\"><%=RS(\"titel\")%></a></font></td>
              <td bgcolor=\"<%=color%>\" width=\"8%\" align=\"center\"><p align=\"center\"><font face=\"Tahoma\" size=\"2\"><%=RS(\"svar\")%></font></td>
              <td bgcolor=\"<%=color%>\" width=\"18%\"><font face=\"Tahoma\" size=\"2\"><a href=\"mailto:<%=RS(\"email\")%>\"><%=RS(\"bruger\")%></a></font></td>
              <td bgcolor=\"<%=color%>\" width=\"21%\"><font face=\"Tahoma\" size=\"2\"><%=RS(\"dato\")%></font></td>
            </tr>
            <%
              rs.MoveNext

         
           
            end if
            next
           
            rs.Close
            %>
          </table>
          </center>
        </div>  <%
        if vis <> 0 then
        Response.Write (visdet)
        end if
        %>
Avatar billede prof2 Nybegynder
30. september 2001 - 22:25 #2
Ved ikke hvor meget det kan bruges... Men det er da lidt hjælp... Har ikke lyst (zzzzZ) til at lave det ASP lige nu :)
Avatar billede food4u.dk Nybegynder
30. september 2001 - 22:31 #3
Det så sq meget godt ud, men jeg kan ikke helt følge med, slet ikke på denne tid af dagen :o)
Avatar billede food4u.dk Nybegynder
12. oktober 2001 - 21:14 #4
ja har selv laver noget, det kan ses her:
opskrifter.food4u.dk
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester