CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

tk Nybegynder

22. april 1999 - 00:00 Der er 11 kommentarer og
1 løsning

Vise 50 pr side?

Hej,

Jeg har lige et script her, men problemet er at jeg har over 300 numre i min database, så det tager en helvedes masse tid at hente. Hvad og hvor skal jeg skrive funktion, der gør at den kun viser de 50 første, og så et link til de 50 næste osv osv.

if request("mode") = "slet" then
SQL = "DELETE FROM scoretricks where id ="& request("id")
conn.execute (SQL)
end if %>
<TABLE>
<TR>
<TD>
 
</TD>
<TD>


ID


</TD>
<TD>


Scoretrick


</TD>

</TR>

<%
SQL = "SELECT * from scoretricks"
set slet = conn.execute( SQL )
do while not slet.eof
on error resume next %>
<TR>
<TD>

<A HREF="admin.asp?id=<% = slet("id") %>&mode=slet">Slet</A>
</TD>
<TD>

<% = slet("id") %>

</TD>

<TD>

<% = slet("scoretrick") %>
 
</TD>

</TR>
<%
slet.movenext
loop %>
</TABLE>
<% conn.close
end if
%>

Synes godt om

Dan Nim Seniormester

22. april 1999 - 01:09 #1

Prøv at kigge lidt på dette script :
...

<HTML>
<HEAD>
<TITLE>pageDB.asp</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#FFFFFF" LINK="#FFFFFF" ALINK="#FFFFFF" VLINK="#FFFFFF" LEFTMARGIN="0" TOPMARGIN="0">
<%
'hvilken side er vi paa
intSide = Request("side")
If intSide = "" Then
intSide = 1
End If

'antal records der skal vises
intAntal = Request("antal")
If intAntal = "" Then
intAntal = 10
End If

'lav recordset objekt
Set rsData = Server.CreateObject("ADODB.Recordset")

'aduseclient = 3
rsData.CursorLocation = 3
rsData.CacheSize = 5
rsData.Open "SELECT * FROM OK_SHOPS WHERE CountryID = '01'", "DSN=ECCO-SS99"
rsData.movefirst
rsData.pagesize = intAntal
intMaxAntal = CInt( rsData.PageCount )
rsData.AbsolutePage = intSide
intAntalRecords = 0
intAntalFelter = rsData.Fields.Count - 1

Response.Write "Side " & intSide & " af " & intMaxAntal & " "

%>
<TABLE CELLPADDING="2" CELLSPACING="1" BORDER="0" WIDTH="100%">
<TR>
<% 'Put Headings On The Table of Field Names %>
<% For i = 0 To intAntalFelter %>
<TD BGCOLOR="#000000"><%=Server.HTMLEncode(rsData(i).name) %></TD>
<% Next %>
</TR>

<% 'udfyld med data %>
<% Do While Not rsData.EOF AND intAntalRecords < rsData.PageSize %>
<TR VALIGN="TOP">
<% For i = 0 To intAntalFelter %>
<% If IsNull(rsData(i)) Then %>
<TD BGCOLOR="#000000"> </TD>
<% Else %>
<TD BGCOLOR="#000000"><%=Server.HTMLEncode(CStr(rsData(i)))%></TD>
<% End If %>
<% Next %>
</TR>
<%
rsData.movenext
intAntalRecords = intAntalRecords + 1
Loop
rsData.close
set rsData = nothing
%>
</TABLE>
 
<TABLE CELLPADDING="2" CELLSPACING="1" BORDER="0" WIDTH="100%">
<TR ALIGN="CENTER">
<% If intSide <= 1 Then %>
<TD BGCOLOR="#000000"> </TD>
<% Else %>
<TD BGCOLOR="#000000"><A HREF="<%=Request.ServerVariables("SCRIPT_NAME")%>?side=<%= CInt(intSide) - 1 %>&antal=<%=intAntal%>"><<<</A></TD>
<% End If %>
<% If CInt(intSide) < CInt(intMaxAntal) Then %>
<TD BGCOLOR="#000000"><A HREF="<%=Request.ServerVariables("SCRIPT_NAME")%>?side=<%= CInt(intSide) + 1 %>&antal=<%=intAntal%>">>>></A></TD>
<% Else %>
<TD BGCOLOR="#000000"> </TD>
<% End If %>
</TR>
</TABLE>
 
<TABLE CELLPADDING="2" CELLSPACING="1" BORDER="0" WIDTH="100%">
<TR BGCOLOR="#000000" ALIGN="CENTER" VALIGN="TOP">
<%
For counter = 1 To intMaxAntal
%>
<% If CInt(counter) = CInt(intSide) Then %>
<TD><A HREF="<%= Request.ServerVariables("SCRIPT_NAME") %>?side=<%=counter%>&antal=<%=intAntal%>"><%=counter%></A></TD>
<% Else %>
<TD><A HREF="<%= Request.ServerVariables("SCRIPT_NAME") %>?side=<%=counter%>&antal=<%=intAntal%>"><%=counter%></A></TD>
<% End If %>
<%
'If counter mod 10 = 0 Then
'Response.Write "</TR>" & VbCrLf
'Response.Write "<TR>" & VbCrLf
'End If
Next
%>
</TR>
</TABLE>
</BODY>
</HTML>
...

Synes godt om

asp Nybegynder

22. april 1999 - 08:45 #2

Du finder et godt eksempel (incl. sourcecode) der omhandler paging af recordsets på følgende adresse

http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Synes godt om

rdj Nybegynder

22. april 1999 - 08:47 #3

Gi' ham lige en chance Chatstuff.

Her er en lille forklaring

RS = Recordset

RS.pagesize = (Antal pr side)
MaxAntalsider = CInt(RS.PageCount )
RS.AbsolutePage = Den side du gerne vil være på

Synes godt om

tk Nybegynder

22. april 1999 - 14:44 #4

ohhhh shiiitt......er der nogen der gider at lave det for mig. Jeg er ikke den vildeste haj til det (endnu) :)
Hvis en eller anden sender en mail til mig, så sender jeg mit asp dokument til vedkommende.
Så kan man jo prøve sig frem, jeg fatter nada af det der chatstuff. :)

Mvh.
Tk

Synes godt om

fehaar Nybegynder

22. april 1999 - 16:35 #5

Probelemt ved at benytte AbsolutePage og de andre Pagede funktioner ikke fungerer når du kun har en ForwardOnly cursor i dit RecordSet. Det betyder ikke så meget når man ikke har ret mange poster i din database, men det kan tage en helvedes tid hvis du har en masse poster.

Jeg har lavet en "omvej" så man kan få flere sider effektivt uden at bruge andet end en forward only cursor. Den ligger her :

http://www.infopaq.dk/fehaar/asp_sideopdeling.txt

Synes godt om

rdj Nybegynder

23. april 1999 - 08:27 #6

Jeg kan godt lave dit script, men giv' mig lige lidt tid.

Synes godt om

rdj Nybegynder

23. april 1999 - 08:47 #7

Denne kode burde virke

if request("mode") = "slet" then
SQL = "DELETE FROM scoretricks where id ="& request("id")
conn.execute (SQL)
end if %>
<TABLE>
<TR>
<TD>
 
</TD>
<TD>

ID

</TD>
<TD>

Scoretrick

</TD>
</TR>
<%
SQL = "SELECT * from scoretricks"
RSslet.CursorLocation = 3
RSslet.CacheSize = 5
set RSslet = conn.execute( SQL )
RSslet.pagesize = 50
iMaxAntalSider = CInt( RSslet.PageCount )

'hvilken side er vi paa
iDenneSide = Request("side")
If iDenneSide = "" Then iDenneSide = 1
RSslet.AbsolutePage = iDenneSide

Response.Write "Side " & iDenneSide & " af " & iMaxAntalSider & " "

do while not RSslet.eof
on error resume next
%>
<TR>
<TD>

<A HREF="admin.asp?id=<% =RSslet("id") %>&mode=slet">Slet</A>
</TD>
<TD>

<% = RSslet("id") %>

</TD>
<TD>

<% = RSslet("scoretrick") %>
 
</TD>
</TR>
<%
RSslet.movenext
loop %>
</TABLE>
<%
If iDenneSide > 1 then
%><A HREF="\Resultat.asp<%
Response.write("?Side="& iDenneSide-1 )
%>"><IMG SRC="images/tilbage-pile.gif" WIDTH=40 HEIGHT=24 BORDER=0><% End If%></A>
<%
If iDenneSide < RSslet.PageCount then
%><A HREF="\Resultat.asp<%
Response.write("?Side="& iDenneSide+1 )
%>"><IMG SRC="images/frem_pile.gif" WIDTH=40 HEIGHT=24 BORDER=0><% End If%></A>
<% conn.close
end if
%>

Synes godt om

tk Nybegynder

23. april 1999 - 16:26 #8

Det virkede ikke helt:

ID Scoretrick
Microsoft VBScript runtime error '800a01a8'

Object required: 'RSslet'

/scs/tricks/admin.asp, line 52

Og linje 52:

<%
SQL = "SELECT * from scoretricks"
RSslet.CursorLocation = 3
RSslet.CacheSize = 5
set RSslet = conn.execute( SQL )
RSslet.pagesize = 50
iMaxAntalSider = CInt( RSslet.PageCount )

----------
RSslet.CursorLocation = 3 (:linje 52)

Synes godt om

rdj Nybegynder

26. april 1999 - 13:19 #9

Prøve at flytte disse linier til efter
din "set RSslet ....."

RSslet.CursorLocation = 3
RSslet.CacheSize = 5

Synes godt om

tk Nybegynder

26. april 1999 - 17:56 #10

Så siger den:

ADODB.Recordset error '800a0e79'

The operation requested by the application is not allowed if the object is open.

/scs/tricks/admin.asp, line 53

Og koden:

<%
SQL = "SELECT * from scoretricks"
set RSslet = conn.execute( SQL )
RSslet.CursorLocation = 3
RSslet.CacheSize = 5
RSslet.pagesize = 50
iMaxAntalSider = CInt( RSslet.PageCount )

Synes godt om

rdj Nybegynder

28. april 1999 - 10:46 #11

Jeg svar desværre lidt sent på dit svar
men jeg få ikke en email på ændringer.

Jeg åbner min database på denne måde

Set Conn = Server.CreateObject("ADODB.Connection")
Set RSslet = Server.CreateObject("ADODB.Recordset")

' Open connection and run query
Conn.Open "Database", "Brugernavn", "password"
RSslet.Open SQLstr, conn, 3, 1

Og så behøver du ikke

RSslet.CursorLocation = 3
RSslet.CacheSize = 5

Synes godt om

tk Nybegynder

03. maj 1999 - 23:32 #12

Jeg fatter ikke en skid af det, og intet af det virker. Fuck det - jeg er nybegynder og fatter ikke jeres indviklede sprog....endnu. Og jeg har ikke tid eller psykisk overskud til at sætte mig ind i det lige nu.

Men tak for hjælpen dem der hjalp.

Mvh.
Tk

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS

26/07

Test: Endelig kan man få en soundbar der lyder godt - og som ikke behøver nogen klodset subwoofer

26/07

Analyse: ”Det største it-nedbrud i historien” viser hvor sårbare dine it-løsninger er - og det vil ske igen

26/07

Nørgaard: Jeg har jo sagt det gang på gang på gang! VMS er det bedste styresystem EVER! Men lytter folk?! Nej, nej og atter nej!

26/07

Kæmpeleverandør til Pentagon hacket: Interne undersøgelser lækket

26/07

Stor aftale gør Microsofts datacentre hurtigere - investerer i netværksudstyr

26/07

Nordjyske MapsPeople ruster op til opkøb af konkurrenter: "Vi vil vinde det her kapløb"

26/07

Mød den unge version af den mest elskede seriemorder nogensinde

26/07

AMD opdager cpu-fejl i 11. time: Storstilet lancering udskydes

26/07

Microsoft tager til genmæle: Vores licenspraksis skaber ikke unfair konkurrence

26/07

Med SearchGPT har verden fået en spritny søgemaskine: Kan den true Googles dominans?

26/07

Færre unge studerende på landets it-uddannelser: "Vi afviser dem der, hvor de har lyst til at læse"

Vis flere artikler

IT-JOB

Udviklings- og Forenklingsstyrelsen

Testmanager til Partsrepræsentation

Colosseum Tandlægerne

IT-supporter til Colosseum Tandlægerne

TypoConsult A/S

Senior udvikler søges til spændende og varierede webprojekter

Cognizant Technology Solutions Denmark ApS

Test Architect - Projects

Region Midtjylland

Struktureret it-specialist, der vil gøre en forskel i Digitalisering og It i Region Midtjylland

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 18:09	Kan ikke fildele fra PC til PC Af gertLundberg i LAN/WAN
I dag 17:33	Facebook kopier en tråd Af clausito i Sociale medier
I dag 09:49	Indtogs sejlads : OL i Paris : Hvornår kom Danmark ? Af Ikke-ekspert i Fri debat
I dag 03:28	Inkasso som privat? Af lekor adams i Fri debat
I går 23:51	Frossen cursor Af goglov i PC