Notifikationer

Markér alle som læst Log ud

hanne-rk Nybegynder

30. september 2003 - 23:50 Der er 4 kommentarer og
1 løsning

paging - hvordan udfylder jeg dette script så den lave sider ?

jeg har set dette :
http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

hvordan skal denne "bid" se ud med paging ?

--

<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>varer-admin</title>
</head>

<body link="#000080" vlink="#000080" alink="#000080">
<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../webshop-dk/data/priser.mdb")
Conn.Open DSN
%>
Slet / rediger varer : <% response.write request ("gruppe")%>
<div align="center">
<center>
<table cellspacing="0" border="1" height="48" width="651" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr>
<td align="center" bgcolor="#808080" height="19" width="60">
varenummer</td>
<td align="center" bgcolor="#808080" height="19" width="74">
Gruppe</td>
<td align="center" bgcolor="#808080" height="19">
Betegnelse</td>
<td align="center" bgcolor="#808080" height="19" width="150">
Ekstra tekst (fx udsolgt)</td>
<td align="center" bgcolor="#808080" height="19" width="75">action</td>
</tr>
<%
kode= request ("gr")
' SQL forespørgsel
strSQL = "Select * from Varer where varegruppenr="& kode
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
if rs.eof OR rs.bof then
Response.Write "<center>Der er ingen varer i din butik endnu "
else

' Gennemløb Recordset (rs) med en løkke
Do
%>

<form method="post" action="varerettet.asp?id=<%response.write rs("id")%>" name="f<%response.write rs("id")%>">

<tr>
<td align="left" bgcolor="#FFFFFF" height="19" width="60"><%response.Write rs("nr")%> </td>
<td align="left" bgcolor="#FFFFFF" height="19" width="74"><%response.Write rs("gruppe")%> </td>
<td align="left" bgcolor="#FFFFFF" height="19"><%response.Write rs("betegnelse")%> </td>
<td align="left" bgcolor="#FFFFFF" height="19" width="150">
<input type="text" name="tekst" size="20" value="<% response.write rs("tekst")%>"></td>
<td align="center" bgcolor="#FFFFFF" height="19" width="75"><a href="vareslet.asp?id=<%response.write Rs("id")%>">
Slet</a> 
<a href="java script:document.f<%response.write rs("id")%>.submit();">
opdater</a></td>
</tr>
</center>
</div>
</form>
<%
' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
end if%>
</table>
</div>
 

</body>

</html>

Synes godt om

netro Nybegynder

01. oktober 2003 - 02:11 #1

Det ser således ud. Husk at rette "DIN_SIDE" nederst til filnavnet på din side.

**************************************

<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>varer-admin</title>
</head>

<body link="#000080" vlink="#000080" alink="#000080">

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

Slet / rediger varer : <% response.write request ("gruppe")%>
<div align="center">
<center>
<table cellspacing="0" border="1" height="48" width="651" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr>
<td align="center" bgcolor="#808080" height="19" width="60">
varenummer</td>
<td align="center" bgcolor="#808080" height="19" width="74">
Gruppe</td>
<td align="center" bgcolor="#808080" height="19">
Betegnelse</td>
<td align="center" bgcolor="#808080" height="19" width="150">
Ekstra tekst (fx udsolgt)</td>
<td align="center" bgcolor="#808080" height="19" width="75">action</td>
</tr>

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

kode= request ("gr")

' SQL forespørgsel
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * from Varer where varegruppenr="& kode
' Udfør forespørgsel (rs indeholder nu resultatet)
rs.Open strSQL, DSN, 1

' Gennemløb Recordset (rs) med en løkke
if rs.eof OR rs.bof then
Response.Write "<center>Der er ingen varer i din butik endnu "
else

rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "Side " & intPage & " af " & intPageCount & ""

' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF And intRecCount > 0
%>

<form method="post" action="varerettet.asp?id=<%response.write rs("id")%>" name="f<%response.write rs("id")%>">

<tr>
<td align="left" bgcolor="#FFFFFF" height="19" width="60"><%response.Write rs("nr")%> </td>
<td align="left" bgcolor="#FFFFFF" height="19" width="74"><%response.Write rs("gruppe")%> </td>
<td align="left" bgcolor="#FFFFFF" height="19"><%response.Write rs("betegnelse")%> </td>
<td align="left" bgcolor="#FFFFFF" height="19" width="150">
<input type="text" name="tekst" size="20" value="<% response.write rs("tekst")%>"></td>
<td align="center" bgcolor="#FFFFFF" height="19" width="75"><a href="vareslet.asp?id=<%response.write Rs("id")%>">
Slet</a> 
<a href="java script:document.f<%response.write rs("id")%>.submit();">
opdater</a></td>
</tr>

</form>

<%
intRecCount = intRecCount - 1
' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
end if
%>

</table>
</center>
</div>

<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=DIN_SIDE.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=DIN_SIDE.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=DIN_SIDE.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

 

</body>

</html>

Synes godt om

hanne-rk Nybegynder

01. oktober 2003 - 15:14 #2

det ser fint ud, MEN
som du kan se her :
kode= request ("gr")
' SQL forespørgsel
strSQL = "Select * from Varer where varegruppenr="& kode
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

bruger den "kode" til at bestemme gruppenr.

hvordan får jeg den med ind i linksene forneden ?

Response.Write "<a href=DIN_SIDE.asp?page=" & intPage - 1 & "><<</a>"

(et link fra menuen ser sådan her ud :
varesletrediger.asp?gr=5&gruppe=Kurve

Synes godt om

netro Nybegynder

01. oktober 2003 - 15:18 #3

Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=varesletrediger.asp?gr=" & kode & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=varesletrediger.asp?gr=" & kode & "&page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=varesletrediger.asp?gr=" & kode & "&page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If

Synes godt om

hanne-rk Nybegynder

01. oktober 2003 - 22:52 #4

1000 tak for hjælpen

Synes godt om

netro Nybegynder

01. oktober 2003 - 22:57 #5

;o)

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	I går 02: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
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

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