Notifikationer

Markér alle som læst Log ud

bronsholt Nybegynder

23. august 2001 - 12:06 Der er 23 kommentarer og
1 løsning

Tabel-størrelse/mængde

Har <TABEL> en probertie, som kan styre antallet af poster i en tabel? Dvs. hvis jeg har en indlæsning af et recordset på eks. 30 poster, at tabellen så viser de 5, hvorefter man kan scrolle ned, for at få vist resten? Eller skal jeg lave et script (Java/???)

Synes godt om

nordclc Nybegynder

23. august 2001 - 12:22 #1

Nej <TABEL> har ikke en sådan funktion, men prøv at læse lidt her, det kan være det kan give lidt inspiration til hvordan du så vil gøre:

http://www.html.dk/tutorials/asp/lektion19.asp

//Claus

Synes godt om

nordclc Nybegynder

23. august 2001 - 12:24 #2

Du kan jo f.eks. oprette et <textarea> (tekstbox med rullepanel) som du laver 5 linier høj, og udfylder med værdien fra dit recordset.

// Claus

Synes godt om

bronsholt Nybegynder

23. august 2001 - 12:43 #3

Det er ikke den måde, som jeg er ude efter! Kan man så ikke lave noget lign. vha. Java eller sådan noget?

Synes godt om

nordclc Nybegynder

23. august 2001 - 12:47 #4

Jeg er helt \"blank\" når det kommer til Java - beklager.

Synes godt om

bronsholt Nybegynder

23. august 2001 - 13:09 #5

Jeg siger i hvert fald tak for forslaget :-)

Synes godt om

burningice Nybegynder

23. august 2001 - 13:26 #6

prøv at kig på www.aspadmin.dk, de har vist det du søger. Det er lavet i js

Synes godt om

webbe Nybegynder

23. august 2001 - 13:47 #7

Ellers skal du til at bruge noget med paging!

Har et script der kan bruges!

Synes godt om

bronsholt Nybegynder

23. august 2001 - 13:58 #8

cyberfessor> www.aspadmin.dk virker ikke!
webbe > forklar lige lidt mere omkring paging!

Synes godt om

webbe Nybegynder

23. august 2001 - 14:00 #9

Med paging kan du angive hvor mange poster der skal vises ad gangen på din side (fx. 10) - derefter (hvis der er mere end fx. 10 poster i din tabel) laver du et link til \"Næste side\" (paging) og får vist de næste fx. 10 poster i din tabel!

Med \"Næste side\" skal ikke forståes en ny asp-fil, men blot at de næste x-antal resultater vises.

En okay måde at styre det på!

Synes godt om

bronsholt Nybegynder

24. august 2001 - 08:51 #10

Webbe> Lad mig prøve dit script ang. paging! Gider du at sende det til mig? bronsholt@12move.dk (ICQ: 58003090)

Synes godt om

webbe Nybegynder

24. august 2001 - 09:23 #11

Poster det her (ex. viser 10 poster ad gangen:

<%@language=\"VBSCRIPT\"%>
<%
Option Explicit
%>
<%
Dim Connect, rs, rs1, intPage, intRecCount, intPageCount

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"dsn_name\"

Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM table_name\", Connect, 1, 3

Set rs1 = Server.CreateObject(\"ADODB.Recordset\")
rs1.Open \"SELECT * FROM table_name\", Connect, 1, 3

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End if

If Not (rs1.BOF Or rs1.EOF) Then
rs1.PageSize = 1
rs1.AbsolutePage = intPage
intRecCount = rs1.PageSize
intPageCount = rs1.PageCount
Do While Not rs1.EOF AND intRecCount < 0
intRecCount = intRecCount - 1
rs1.MoveNext
loop
End if
%>
<html>
<head>
<title>Paging af recordset</title>
</head>
<body background=\"images/structure/popup_bg.jpg\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"5\" width=\"600\" align=\"center\">
<tr>
<td align=\"center\"><img src=\"images/galleri/<%=rs1(\"felt_navn\")%>\" border=\"1\"> 
<%
If Clng(intPage) > 1 Then
Response.Write(\"<a href=\"\"galleri_popup.asp?page=\"&intPage - 1&\"&dato=\"&request(\"dato\")&\"\"\"><< Forrige</a>\")
Else
Response.Write(\"<< Forrige\")
End if
%>
 - 
<%
If Clng(intPage) <Clng(intPageCount) Then
Response.Write(\"<a href=\"\"galleri_popup.asp?page=\"&intPage + 1&\"&dato=\"&request(\"dato\")&\"\"\">Næste >></a>\")
Else
Response.Write(\"Næste >>\")
End if
%></td>
</tr>
</table>
</body>
</html>
%>

Synes godt om

bronsholt Nybegynder

24. august 2001 - 10:36 #12

Hvorfor har du 2 recordset?

Synes godt om

webbe Nybegynder

24. august 2001 - 10:37 #13

bronsholt:

Sorry - det var nødvendigt der hvor jeg brugte det! ;0)

Den ene skulle selvfølgelig have været fjernet! *G*

Synes godt om

bronsholt Nybegynder

24. august 2001 - 10:41 #14

Jeg får en fejl i linien med \".Absolute\" : \"Den handling, programmet anmodede om, understøttes ikke af provideren.\" Er det en opsætningsfejl?

Synes godt om

webbe Nybegynder

24. august 2001 - 10:42 #15

Hvilket af recordsettene slettede du?

Synes godt om

bronsholt Nybegynder

24. august 2001 - 10:46 #16

rs1.

Og hvorfor har du (efter SQL-sætningen) sat \"connect, 1, 3)\" Hvad gør de!

Synes godt om

webbe Nybegynder

24. august 2001 - 10:49 #17

Du skal ikke slette rs1!!!!

Du skal slette rs!!!

Det er jo rs1 der kaldes senere i scriptet!

Connect, 1, 3 betyder at den skal bruge den connection der er defineret i Connect

1 og 3 er bare locktpe og cursortype - det er den måde du læser i DB\'en på (rettigheder)

Synes godt om

bronsholt Nybegynder

24. august 2001 - 10:51 #18

Jeg har jo selvfølgelig rettet rs1 til rs i scriptet, men lige meget hjælper det. Skal jeg prøve at vise dig scriptet i sammenhæng med resten af siden? (udpluk)

Synes godt om

webbe Nybegynder

24. august 2001 - 10:54 #19

Er det ikke en Access database du anvender????

Synes godt om

bronsholt Nybegynder

24. august 2001 - 10:56 #20

Jo!

Her er udpluk fra funktionen:

\'Funktionen er en del af et HTML-doc. HTML og BODY ER blevet kaldt her!
\'**********************************************************************
\'**********************************************************************

<% Function HentData()

intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

\'En SQL-streng (strQ) er blevet opbygget foregående:

Set objRS = Conn.Execute(strQ)
%>

<TABLE BGCOLOR=\"#CCCCCC\" BORDER=0 ALIGN=CENTER>
<TH WIDTH=\"5%\" ALIGN=LEFT>SaleID</TH>
<TH WIDTH=\"20%\" ALIGN=LEFT>Navn</TH>
<TH WIDTH=\"10%\" ALIGN=LEFT>Stilling</TH>
<TH WIDTH=\"5%\" ALIGN=LEFT>Initialer</TH>
<TH WIDTH=\"10%\" ALIGN=LEFT>BrugerLogon</TH>
<TH WIDTH=\"10%\" ALIGN=LEFT>Password</TH>
<TH WIDTH=\"10%\" ALIGN=LEFT>Butikkode</TH>
<TH WIDTH=\"5%\" ALIGN=LEFT>Administrator</TH>
<%
If Not (objRS.BOF Or objRS.EOF) THEN
objRS.PageSize = 5
objRS.AbsolutePage = intPage
intRecCount = objRS.PageSize
intPageCount = objRS.PageCount
Response.Write \"Side \" & intPage & \" af \" & intPageCount & \"\"
Do While Not objRS.EOF And intRecCount > 0
strPost = \"<TR> <TD> <A HREF=\" & objRS(\"SaleID\") & \">\" & objRS(\"SaleID\") & \"</A></TD>\"
strPost = strPost & \"<TD> \" & objRS(\"Fornavn\") & \" \" & objRS(\"Mellemnavn\") & \" \" & objRS(\"Efternavn\") & \"</TD>\"
strPost = strPost & \"<TD> \" & objRS(\"BrugerStilling\") & \"</TD>\"
strPost = strPost & \"<TD> \" & objRS(\"BrugerInitialer\") & \"</TD>\"
strPost = strPost & \"<TD> \" & objRS(\"BrugerLogon\") & \"</TD>\"
strPost = strPost & \"<TD> \" & objRS(\"Password\") & \"</TD>\"
strPost = strPost & \"<TD> \" & objRS(\"ButikKode\") & \"</TD>\"
strPost = strPost & \"<TD> \" & objRS(\"AdministratorTillad\") & \"</TD></TR>\"
Response.Write strPost
intRecCount = intRecCount - 1
objRS.MoveNext
Loop
End If

%>
</TABLE>
<%
Conn.Close
Set Conn = Nothing
Set objRS = Nothing

Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<A HREF=new-user.asp?page=\" & intNum & \">\" & intNum & \"</A>\"
NEXT

Response.Write \"\"
If Clng(intPage) > 1 Then
Response.Write \"<A HREF=new-user.asp?page=\" & intPage -1 & \"><<</A>\"
ELSE
Response.Write \"<<\"
End If

Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"A HREF=new-user.asp?page=\" & intPage + 1 & \"><<</A>\"
ELSE
Response.Write \"<<\"
End If

ELSE
response.write \"Søgningen gav intet resultat, prøv igen!\"
END IF

End Function%>

Synes godt om

bronsholt Nybegynder

24. august 2001 - 10:58 #21

Ups, jeg glemte lige at skrive min connection (den bliver kaldt via en include fil lige inde funktionen!:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/Merlin.mdb\")
Conn.Open DSN
%>

Synes godt om

webbe Nybegynder

24. august 2001 - 10:59 #22

Hmmm - ved ikke lige hvordan den fungerer sammen med en søgning eller i en function!

Det kan være noget med opsætningen af serveren, men jeg tror det nu ikke!

Jeg har ikke selv problemer med det script!

Må desværre melde pas herfra! ;o(

Synes godt om

bronsholt Nybegynder

24. august 2001 - 11:00 #23

OK, ellers tak for hjælpen, det var pænt af dig! (Endnu en gang)

Synes godt om

bronsholt Nybegynder

24. august 2001 - 11:01 #24

Jeg slukker og lukker!

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
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

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