asp - Pageing - Udvikleren.dk - Programmering, webdesign og grafik

Tags: asp

<< < 1 2 > >>

Bruger #7095 @ 15.01.05 23:32

Hejsa. Jeg har rigtig længe prøvet at lave paging på min side.
Desværre har jeg gjort det forkert, hver eneste lille gang, hvilket jeg er ved at være godt træt af.
Derfor vil jeg høre, om der er en der vil lave noget simpelt pageing på en default.asp som jeg har.
Den skal:
Være i dropdown hvor der står:
1
2
3
4
5
6
Og så videre.
På forhånd mange tak.

Vedlægger min default.asp:



<title><% =Navn %></title>
<link rel="stylesheet" href="../indhold/style/stil.css">
<body oncontextmenu="return false"
ondragstart="return false"
onselectstart="return false">



Artikler:<hr class="input">



<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../database/database.mdb")
strSQL = "select * from artikler ORDER BY id DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "Databasen er tom eller der er sket en fejl."
else
Do Until rs.EOF
%>



<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
<tr>
<td width="52" valign="top">
<img border="0" src="billeder/<%=RS("billede")%>"></td>
<td valign="top"><%=RS("overskrift")%>: 
Skrevet af: <%=RS("forfatter")%> den <%=RS("dato")%>. 
<% Response.Write KlipIndhold(RS("indhold"), 100, "...") %> <a href="vis_artikel.asp?id=<%=RS("id")%>">Læs hele artiklen</a>.</td>
</tr>
</table> 



<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>


/Jobbe \\"JolleR\\" Hansen

15 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 8 karma

Sorter efter stemmer Sorter efter dato

Bruger #3287 @ 18.01.05 21:26

317

Bedre!

Fejl her:

69: ' Hent den aktuelle side
70: set rs = HentSide(Conn, antal_per_side, side)
71:
72: If rs.EOF Then
73: Response.write "Databasen er tom eller der er sket en fejl."
74: Else
75: Do Until (rs.EOF) OR (rs.BOF)
76: %>

Fejl:

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'EOF'
Default.asp, line 72

Hej,

Hmmm, jeg burde nok se min kode lidt grundigere igennem inden jeg poster :0S

Skift den sidste linie ud i funktionen HentSide med denne linie:
Set HentSide = Conn.execute(strSQL)

Så burde det virke...eller!!!!! :0)

/Michael.

Bruger #7095 @ 18.01.05 22:06

Eller så burde jeg gennemgå fejlen selv, men har jeg desværre ikke tid til.

Er 200 point egentlig en god nok pris, eller hvad?

Der kommer ingen fejl nu, men den viser til gengæld heller ingen sider!
Jeg har ændret i min kode, hvis du vil være så venlig at gå ud fra den istedet for den gamle... tak.

Husk nu, at der skal stå:
1
2
3
4

Og hvis den er sat til 10 artikler for en ny side, og der kun er 9, skal der bare stå:
1.

Altså, for at uddybe lidt, når jeg klikker på den der dropdownmenu, så er den bare en lang hvid tingest...

På forhånd tak

Bruger #7095 @ 18.01.05 22:08

Og forresten, er det muligt at dropdownmenuen kan komme op under dette:


HH-artikler:<hr class="input">

Bruger #3287 @ 20.01.05 22:46

317

Og forresten, er det muligt at dropdownmenuen kan komme op under dette:


HH-artikler:<hr class="input">

Hej,

Jeg mangler så at få din nye asp side så jeg kan lave ændringerne.

/Michael.

Bruger #7095 @ 22.01.05 13:17

Og forresten, er det muligt at dropdownmenuen kan komme op under dette:


HH-artikler:<hr class="input">


Hej,

Jeg mangler så at få din nye asp side så jeg kan lave ændringerne.

/Michael.

Okay, beklager...

Kode

<!-- Top START -->
<!--#include file="../indhold/include/spottekst.asp"-->
<!--#include file="../indhold/style/indstillinger.asp"-->
<!--#include file="../indhold/tjek.asp"-->
<%
Function HentSide(Conn, antal_per_side, side)
  Dim strSQL

  strSQL = "SELECT TOP "  & CStr(antal_per_side) & " * "
  strSQL = strSQL & "FROM artikler WHERE id IN ("
  strSQL = strSQL & "SELECT TOP " & CStr(antal_per_side) & " Id "
  strSQL = strSQL & "FROM artikler WHERE id IN ("
  strSQL = strSQL & "SELECT TOP " & CStr(CLng(antal_per_side)*CLng(side))
  strSQL = strSQL & " Id FROM artikler ORDER BY id ASC) "
  strSQL = strSQL & "ORDER BY id DESC)"
  strSQL = strSQL & " ORDER BY id"
  Set HentSide = Conn.execute(strSQL) 
End Function

Function HentAntalSider(Conn, antal_per_side)
  Dim strSQL
  Dim rstData
  Dim result

  result = 1
  strSQL = "SELECT COUNT(*) AS Antal FROM artikler"
  Set rstData = Conn.execute(strSQL)
  If (Not rstData.EOF) AND (Not rstData.BOF) Then
    result = (CLng(rstData("Antal")) / CLng(antal_per_side))+1
    If result <= 0 Then
      result = 1
    End If
  End If
  HentAntalSide = result
End Function
%>
<title><% =Navn %></title>
<link rel="stylesheet" href="../indhold/style/stil.css">
<body oncontextmenu="return false"
ondragstart="return false"
onselectstart="return false">
<!-- Top SLUT -->

<!-- Start START -->
<b>HH-artikler:</b><hr class="input">
<!-- Start SLUT -->

<!-- Database START -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../database/database.mdb")

' Hent antal (5 artiker per side) pagings som skal vises
Dim side
Dim antal_per_side
Dim antal_sider

' Angiv et andet tal hvis du vil ha' mere end 5 artikler per side.
antal_per_side = 2 

' Hent antallet af sider som man kan vælge i mellem.
antal_sider = HentAntalSider(Conn, antal_per_side)

' Hent den aktuelle side vi er på (hvis intet er angiver bruger vi 0).
side = CLng("0" & Request.QueryString("side"))
If side=0 Then
  side = 1
End If

' Hent den aktuelle side 
set rs = HentSide(Conn, antal_per_side, side)

If rs.EOF Then
  Response.write "Databasen er tom eller der er sket en fejl."
Else
  Do Until (rs.EOF) OR (rs.BOF)
%>
<!-- Database SLUT -->

<!-- Indhold START -->
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
  <tr>
    <td width="52" valign="top">
    <img border="0" src="../indhold/gfx/artikler/<%=RS("billede")%>"></td>
    <td valign="top"><b><%=RS("overskrift")%>:</b><br><b>Skrevet af:</b> <%=RS("forfatter")%> 
	<b>den</b> <%=RS("dato")%>.<br>
<% Response.Write KlipIndhold(RS("indhold"), 100, "...") %> <b> <a href="vis_artikel.asp?id=<%=RS("id")%>">Læs hele artiklen</a></b>.</td>
  </tr>
</table><br>
<!-- Indhold SLUT -->

<!-- Databaselukning START -->
<%
    rs.MoveNext
  Loop

' Opbyg dropdown listen med de sider som der skal kunne vælges
%>
<table border="0" width="100%" id="t2" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center">Side 
      <select name="page_sel" onchange="javascript:document.location = '?side='+this.options[this.selectIndex].value;">
<%
  Dim i 
  
  For i = 1 To CLng(antal_side)
    Response.Write "<option value=""" & CStr(i) & """"
    If side = i Then
      Response.Write " selected"
    End If
    Response.Write ">" & CStr(i) & "</option>" & vbCrLf
  Next
%>
    </td>
  </tr>
</table>
<%
End If
Conn.Close
Set Conn = Nothing%><!-- Databaselukning SLUT -->

/Jobbe JolleR Hansen

<< < 1 2 > >>

Pageing

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler