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

27/12

Ny leverandør har netop underskrevet kontrakt med Kombit om kæmpe dansk bibliotekssystem

27/12

Test: Endelig en videodørklokke i smart indpakning og performance, der matcher

27/12

Nørgaard: Her er vinderen af Mogens-prisen 2024 - tak for elendig service

27/12

Apple i gang med at udvikle en smart dørklokke – som kan låse din dør op med FaceID

27/12

M365 Copilot kan blive hurtigere og billigere: Microsoft åbner for alternativer til OpenAI

27/12

Stort flyselskab lammet af jule-cyberangreb: 40 procent af afgangene blev ramt

27/12

Ny europæiske supercomputer med 14.000 GPU’er sætter danske Gefion til vægs: Skal bruges til at udvinde kulsort energi

27/12

Nye skatteregler for kryptovaluta udskydes: Vil påvirke 300.000 danskere

27/12

Sådan bekæmper ledere digital stress

27/12

Den danske ungdom ser intet formål i at arbejde med it

27/12

Amazon må udskyde plan om at få de ansatte tilbage på kontoret: Har ikke plads til dem

Vis flere artikler

IT-JOB

Rohde & Schwarz Technology Center A/S

FPGA-udvikler

Statens IT

It-konsulenter med indgående Microsoft 365- og Azure-erfaring

MAN Energy Solutions

SAP supporter for projects in our Logistics Center

ATP

Service Integration Manager til at sikre optimal og stabil drift af samfundskritiske it-løsninger

Arbejdernes Landsbank

Lead Data Analyst til Dataindsigt

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 07:53	Kan jeg lave en "søg og erstat" i databasen Af a3-seo.dk i MySQL
27/1211:30	Ændre det aller første billed, man ser ? Før man skriver koden (Windows 11) ... Af Ikke-ekspert i Windows
27/1210:47	NUM. tastatur og pc indbygget mus virker ikke. Af arnepedersen i Excel
27/1204:32	Korrupt CF kort Af Mozcan i Foto & video
26/1221:34	install.esd og boot.wim Af sjass i Windows