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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
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

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

12:00

Ugen i tech: El-kolos kan fragte syv personer over 620 kilometer / Sony er klar med ny kamera-konge: Alpha 1 mk II

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

Vis flere artikler

IT-JOB

Jyske Bank

Er du klar til at optimere processerne med RPA hos Jyske Finans?

DEIF A/S

Senior Project Manager, Software & Product Development

Statens IT

Knowledge Process Manager

Udviklings- og Forenklingsstyrelsen

Relationsskabende stærk porteføljepartner til Skatteministeriets it-organisation

KMD A/S

Product Owner til KMD Nexus

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 11:40	Fjerne mappe i stifinder Af Peter Olsen i Andet software
I dag 11:27	renteberegning Af Pil i Excel
I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker