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">



<b>Artikler:</b><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"><b><%=RS("overskrift")%>:</b><br>
<b>Skrevet af:</b> <%=RS("forfatter")%> <b>den</b> <%=RS("dato")%>.<br>
<% Response.Write KlipIndhold(RS("indhold"), 100, "...") %> <a href="vis_artikel.asp?id=<%=RS("id")%>"><b>Læs hele artiklen</b></a>.</td>
</tr>
</table><br>



<%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 #6791 @ 16.01.05 10:56

283

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:

...

Jeg er ikke helt sikker på hvad du mener med pageing, men jeg tror at det du gerne vil have er det her:

Kode

<!-- Lavet af Jan S.! http://www.yourno1web.frac.dk/ -->
<form name="form" method="get">
	<p>
		<select name="dropdown" onchange="javascript:alert(document.form.dropdown.value); location.href=document.form.dropdown.value">
			<option selected value="/index.asp?page=1">1</option>
			<option value="/index.asp?page=2">2</option>
			<option value="/index.asp?page=3">3</option>
			<option value="/index.asp?page=4">4</option>
			<option value="/index.asp?page=5">5</option>
		</select>
	</p>
</form>

Du kan kombinere den med asp, bare få asp til at ændre options value,

Du kan måske også bruge noget her fra: http://html.dk/scripts/asp/00011/

Hilsen
Jan S.

[Redigeret d. 16/01-05 11:13:32 af Jan S]

Bruger #3287 @ 16.01.05 15:48

317

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

Hej,

Her er et eksempel på hvordan du kan lave en paging.
Det hele ligger sådan set i din SQL sætning når du henter data.
Jeg har lavet det sådan at du kan ændre antallet af artikler per side (variablen antal_per_side).
Jeg er ikke 100% sikker på at det vil fungere korrekt da jeg har skrevet det direkte ind her og jeg har heller ikke fået testet det.

Kig på det og sig til hvis der er noget der ikke virker eller hvis du vil ha noget forklaret.

Kode

<!-- Top START -->
<!--#include file="../indhold/include/spottekst.asp"-->
<!--#include file="../indhold/style/indstillinger.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(CLng(antal_per_side)*CLng(side))
  strSQL = strSQL & " * FROM artikler ORDER BY id ASC) "
  strSQL = strSQL & "ORDER BY id DESC"
  HentSide = Conn.execute(strSQL)
End Function

Function HentAntalSider(Conn, antal_per_side)
  Dim strSQL
  Dim rstData

  strSQL = "SELECT COUNT(*) AS Antal "
  Set rstData = Conn.execute(strSQL)
  If (Not rstData.EOF) AND (Not rstData.BOF) Then
    HentAntalSide = CLng(rstData("Antal")) / CLng(antal_per_side)
  Else
    HentAntalSide = 0
  End If
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]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 = 5 
' 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"))

// Hent den aktuelle side 
set rs = HentSide(Conn, antal_per_side, side)
'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
%>
<!-- 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="billeder/<%=RS("billede")%>"></td>
		<td valign="top">[b]<%=RS("overskrift")%>:[/b]
[b]Skrevet af:[/b] <%=RS("forfatter")%> [b]den[/b] <%=RS("dato")%>.
<% Response.Write KlipIndhold(RS("indhold"), 100, "...") %> <a href="vis_artikel.asp?id=<%=RS("id")%>">[b]Læs hele artiklen[/b]</a>.</td>
	</tr>
</table>
<!-- 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];">
<%
  Dim i 
  For i = 1 To antal_side
%>
        <option value="<%=i%>"><%=i%></option>
<%
  Next i
%>
    </td>
  </tr>
</table>
<%
end if
Conn.Close
Set Conn = Nothing%>
<!-- Databaselukning SLUT -->

/Michael.

Bruger #7095 @ 16.01.05 12:56

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:

...

Jeg er ikke helt sikker på hvad du mener med pageing, men jeg tror at det du gerne vil have er det her:
Kode

<form name="form" method="get">
	<p>
		<select name="dropdown" onchange="javascript:alert(document.form.dropdown.value); location.href=document.form.dropdown.value">
			<option selected value="/index.asp?page=1">1</option>
			<option value="/index.asp?page=2">2</option>
			<option value="/index.asp?page=3">3</option>
			<option value="/index.asp?page=4">4</option>
			<option value="/index.asp?page=5">5</option>
		</select>
	</p>
</form>
Du kan kombinere den med asp, bare få asp til at ændre options value,

Du kan måske også bruge noget her fra: http://html.dk/scripts/asp/00011/

Hilsen
Jan S.

[Redigeret d. 16/01-05 11:13:32 af Jan S]

Som du kan se henter jeg noget tekst fra databasen, så det dur ikke helt.
/Jobbe \\"JolleR\\" Hansen

Bruger #7095 @ 16.01.05 16:53

Det ser meget meget godt ud.

Fejl i linie 97.
96: <%
97: Next i
98: %>

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/nythhnewz/hhartikler/Default.asp, line 97

Next i
-----^

Bruger #3287 @ 17.01.05 06:24

317

Det ser meget meget godt ud.

Fejl i linie 97.
96: <%
97: Next i
98: %>

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/nythhnewz/hhartikler/Default.asp, line 97

Next i
-----^

Prøv dette i stedet for.

Kode

<!-- Top START -->
<!--#include file="../indhold/include/spottekst.asp"-->
<!--#include file="../indhold/style/indstillinger.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(CLng(antal_per_side)*CLng(side))
  strSQL = strSQL & " * FROM artikler ORDER BY id ASC) "
  strSQL = strSQL & "ORDER BY id DESC"
  HentSide = Conn.execute(strSQL)
End Function

Function HentAntalSider(Conn, antal_per_side)
  Dim strSQL
  Dim rstData

  strSQL = "SELECT COUNT(*) AS Antal "
  Set rstData = Conn.execute(strSQL)
  If (Not rstData.EOF) AND (Not rstData.BOF) Then
    HentAntalSide = (CLng(rstData("Antal")) / CLng(antal_per_side))+1
  Else
    HentAntalSide = 1
  End If
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]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 = 5 
' 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"))

' Hent den aktuelle side 
set rs = HentSide(Conn, antal_per_side, side)
'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
%>
<!-- 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="billeder/<%=RS("billede")%>"></td>
    <td valign="top">[b]<%=RS("overskrift")%>:[/b]
[b]Skrevet af:[/b] <%=RS("forfatter")%> [b]den[/b] <%=RS("dato")%>.
<% Response.Write KlipIndhold(RS("indhold"), 100, "...") %> <a href="vis_artikel.asp?id=<%=RS("id")%>">[b]Læs hele artiklen[/b]</a>.</td>
  </tr>
</table>
<!-- 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 = 0 To CLng(antal_side)-1
    Response.Write "<option value=""" & CStr(i) & """>" & CStr(i) & "</option>" & vbCrLf
  Next
%>
    </td>
  </tr>
</table>
<%
End If
Conn.Close
Set Conn = Nothing%>
<!-- Databaselukning SLUT -->

/Michael.

Bruger #7095 @ 17.01.05 17:50

Okay!
Når jeg går ind på siden, så henter den simpelthen så utroligt langsomt og ender med at ingenting sker, altså browseren står stille...

Bruger #3287 @ 17.01.05 19:36

317

Okay!
Når jeg går ind på siden, så henter den simpelthen så utroligt langsomt og ender med at ingenting sker, altså browseren står stille...

?

Hmm, det lyder da ikke så godt :o(

Jeg har lavet lidt om i SQL'en så den nu fungere korrekt.
Der ud over har jeg ændret lidt andre steder i koden.
Prøv og se om det ikke virker.

Kode

<!-- Top START -->
<!--#include file="../indhold/include/spottekst.asp"-->
<!--#include file="../indhold/style/indstillinger.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"
  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]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 = 5 

' 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="billeder/<%=RS("billede")%>"></td>
    <td valign="top">[b]<%=RS("overskrift")%>:[/b]
[b]Skrevet af:[/b] <%=RS("forfatter")%> [b]den[/b] <%=RS("dato")%>.
<% Response.Write KlipIndhold(RS("indhold"), 100, "...") %> <a href="vis_artikel.asp?id=<%=RS("id")%>">[b]Læs hele artiklen[/b]</a>.</td>
  </tr>
</table>
<!-- 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 -->

/Michael.

[Redigeret d. 17/01-05 19:43:22 af Michael Skovslund]

Bruger #7095 @ 17.01.05 20:06

Fejl i linie 16.
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.
Default.asp, line 16

Bruger #3287 @ 18.01.05 06:52

317

Fejl i linie 16.
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.
Default.asp, line 16

Hmm, det gik vist lidt for hurtigt!

Prøv at skifte HentSide funktionen ud med denne:

Kode

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"
  HentSide = Conn.execute(strSQL)
End Function

/Michael

Bruger #7095 @ 18.01.05 17:25

Bedre!

<b>Fejl her:</b>

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: %>

<b>Fejl:</b>

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

<< < 1 2 > >>

Pageing

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler