webForumDet fria alternativet
Logga in / Bli medlem

Modifigera skriptet i Faq:n

18 svar · 206 visningar · startad av -torlejf-

-torlejf-Medlem sedan feb. 2000153 inlägg
#1

Hej hur gör man så att skriptet som delar upp ett recordset som finns FAQ ser ut så här:

< Föregående sida
Sida 1/10
Nästa sida >

------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!

cgiMedlem sedan jan. 2000371 inlägg
#2

Ex,
ref = "<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> "

ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "

ref = "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "

-torlejf-Medlem sedan feb. 2000153 inlägg
#3

Hej igen!
Tipset du gav mig fungerade men:
PÅ första sidan vill jag inte att 'Föregående sida' ska synas
likaså på sista sidan ska inte 'Nästa sida' synas!
Hur ändrar man det?

------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!

PatrikBMedlem sedan mars 20002 836 inlägg
#4

Hello,

kolla med en If-sats om det är första sidan som visas. Om det är det, skriv ej ut - Föregående Sida. Lika med - Nästa Sida - om besökaren är på sista sidan.

cya,

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************

-torlejf-Medlem sedan feb. 2000153 inlägg
#5

Vilken variabel kollar man med då?

------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!

-torlejf-Medlem sedan feb. 2000153 inlägg
#6

ingen som vet?

------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!

PatrikBMedlem sedan mars 20002 836 inlägg
#7

Hello,

Den sida du är på bestäms av variabeln - mypage.
Om variabeln mypage = 1 så är du på första sidan.
Sista sidan är objRS.PageCount så då kan du kolla om objRS.PageCount = mypage, då ska den ej visa nästa

Hoppas att du förstod,

cya,

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************

[Redigerat av PatrikB den 02 nov 2000]

-torlejf-Medlem sedan feb. 2000153 inlägg
#8

Jag får det inte att fungera!
Kan inte du skriva if satserna.
Jag har gjort såhär:

If mypage = 1 Then
response.write " "
else	
response.write ref1 & " "
End IF

		
If rstemp.pagecount = Mypage then
response.write ref3 & " "
End IF

Men det blir helt knepigt.
Mina krav e ju att
Om det inte finns tio inlägg ska inte nästa och föregående kanppen synas
Och på sista sidan ska inte Nästa knappen synas!

------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!

cgiMedlem sedan jan. 2000371 inlägg
#9

If n < maxrecs Then Response.Write "Föregående"
Else
ref = "<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> "
End If

if mypage = Request.QueryString("lastpage") then
Response.Write "Nästa"
Else
ref = "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "

-torlejf-Medlem sedan feb. 2000153 inlägg
#10

Bara en söt liten fråga:
Vad fick du 'n' och lastpage ifrån

Efter ett test.
Icke så nicke.
det funkade inte!
Det finns ju ingen varibel i adressen som heter lastpage
------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!

[Redigerat av -torlejf- den 02 nov 2000]

brwMedlem sedan juli 2000619 inlägg
#11

Hmmm håller med... var kommer dom värdena ifrån?

Jag får heller inte igång det enligt torleifs önskemål

------------------
Ingenting är omöjligt, bara en utmaning.

PatrikBMedlem sedan mars 20002 836 inlägg
#12

Hello,

visst kan jag komma med kod .... fast då skulle jag behöva all kod för att se vilka variabler du använder dig av, så att jag ej använder samma för då blir allt kajko ....

Posta all kod du har på sidan så ska jag kika på det och se om jag kan göra ngt.

cya,

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************

brwMedlem sedan juli 2000619 inlägg
#13

Jag använder följande kod:

<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 10

Set RS = Server.Createobject("ADODB.Recordset")

RS.cursorlocation = 3
RS.cachesize = 5

RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb"

If RS.EOF then
raderknapp = "nej"  
 Response.write "<tr><td colspan=""6""><em>Det finns inga loggar i databasen.</em></td></tr>" & sok

Else

   RS.movefirst
   RS.pagesize = mypagesize
   maxcount = Cint(RS.pagecount)
   RS.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = RS.fields.count -1
   Do While Not RS.EOF AND howmanyrecs < RS.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "CCCCCC"
   Else
      color = "FFFFFF"
   End If 
%>

        <tr>
          <td width="14%" valign="top" bgcolor="<%=color%>"><em><% =RS("login") %></em></td>
          <td width="16%" valign="top" bgcolor="<%=color%>"><em>******</em></td>
          <td width="14%" valign="top" bgcolor="<%=color%>"><em><% =RS("typ") %></em></td>
          <td width="24%" valign="top" bgcolor="<%=color%>"><em><% =RS("ip") %></em></td>
          <td width="27%" valign="top" bgcolor="<%=color%>"><em><% =RS("datum") %></em></td>
          <td width="5%" valign="top" bgcolor="<%=color%>"><em><div align="right"><input type="checkbox" name="<% =RS("id") %>"></div></em></td>
        </tr>
<%
   RS.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   RS.close
   Set RS = nothing
   %>
   
<tr><td colspan="6">&nbsp;</td></tr>
   <tr><td colspan="6"><em><div align="right">

   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 20 then
      pad = ""
   End If

'ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
'ref = "<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> "
'ref = ref & "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
'ref = ref & "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "
'response.write ref1 & ref3 & " "
'response.write ref1 

'If mypage = 1 then 
'ref = "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "
'next
'Enf If

'If mypage < maxrecs Then Response.Write "Föregående"
'If mypage <> maxrecs Then Response.Write "Föregående"
'Else
'ref = "<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> "
'ref = "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "

'If whichpage <> maxcount then
'ref = "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "
'If whichpage > maxcount then
'ref = "<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> "
'End If
'Else
'ref = "<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> "
'End IF

next 
End If

If mypage = maxcount then 

ref = "<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> "
'ref = ref & "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "

else

ref = "<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> "
ref = "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "

End If

response.write ref & " "

   if counter mod 20 = 0 then
      response.write "<br>"
   End If
'   Next
   End If
'End If
%>

Och jag vill ha ungefär som thorleif kan du fixa det åt mig =)

------------------
Ingenting är omöjligt, bara en utmaning.

-torlejf-Medlem sedan feb. 2000153 inlägg
#14

Jag har likadan kod som brw.
Det är till en gästbok, så jag skickar inte med några egna variablar i adressen bara dom som tillhör skriptet!

------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!

PatrikBMedlem sedan mars 20002 836 inlägg
#15

Hello,

testa denna:

<%
mypage = Request("whichpage")

If mypage = "" then
	mypage = 1
End If

mypagesize = 10

Set RS = Server.Createobject("ADODB.Recordset")

RS.cursorlocation = 3
RS.cachesize = 5
RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb"

If RS.EOF then
raderknapp = "nej" 
Response.write "<tr><td colspan=""6""><em>Det finns inga loggar i databasen.</em></td></tr>" & sok

Else

RS.movefirst
RS.pagesize = mypagesize
maxcount = Cint(RS.pagecount)
RS.absolutepage = mypage
howmanyrecs = 0
howmanyfields = RS.fields.count -1

Do While Not RS.EOF AND howmanyrecs < mypagesize
	counter = counter + 1
	If counter mod 2 = 0 then
		color = "CCCCCC"
	Else
		color = "FFFFFF"
	End If 
%>

<tr>
<td width="14%" valign="top" bgcolor="<%=color%>"><em><% =RS("login") %></em></td>
<td width="16%" valign="top" bgcolor="<%=color%>"><em>******</em></td>
<td width="14%" valign="top" bgcolor="<%=color%>"><em><% =RS("typ") %></em></td>
<td width="24%" valign="top" bgcolor="<%=color%>"><em><% =RS("ip") %></em></td>
<td width="27%" valign="top" bgcolor="<%=color%>"><em><% =RS("datum") %></em></td>
<td width="5%" valign="top" bgcolor="<%=color%>"><em><div align="right"><input type="checkbox" name="<% =RS("id") %>"></div></em></td>
</tr>
<%
RS.movenext
howmanyrecs = howmanyrecs + 1
Loop
RS.close
Set RS = nothing
%>

<tr><td colspan="6"> </td></tr>
<tr><td colspan="6"><em><div align="right">

<%
If CInt(maxcount) > 1 then

	' vilken sida
	scriptname = request.Servervariables("script_name")
	response.write "sida " & mypage & " av " & maxcount & "<br>" & " sidor:<br>"

		' om vi inte är på första sidan, skriv ut - Föregående
		If CInt(mypage) > 1 then 
			Response.Write("<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> ")
		End If

	for counter = 1 to maxcount

		Response.Write("<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & counter & "</a> ")

	next 

	' Om vi inte är på sista sidan, skriv ut - Nästa
	If CInt(mypage) < CInt(maxcount) Then
		Response.Write("<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> ")
	End If

End If
%>

cya,

------------------
'*********************
Response.Write("PatrikB")
Response.End
'*********************

[Redigerat av PatrikB den 02 nov 2000]

brwMedlem sedan juli 2000619 inlägg
#16

Ah.. tackar.. fick modifiera lite saker som saknades men de fungerade mycket bra! =)

------------------
Ingenting är omöjligt, bara en utmaning.

-torlejf-Medlem sedan feb. 2000153 inlägg
#17

ag får det inte att funka.

Jag det såhär nu:

           <%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If

mypagesize = 10
SQL = "SELECT * From Guestbook"
Set RS = Server.Createobject("ADODB.Recordset")

RS.cursorlocation = 3
RS.cachesize = 5
RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("cgi-bin/Guest.mdb")

If RS.EOF then

Response.write "Det finns inga loggar i databasen."

Else

RS.movefirst
RS.pagesize = mypagesize
maxcount = Cint(RS.pagecount)
RS.absolutepage = mypage
howmanyrecs = 0
howmanyfields = RS.fields.count -1

Do While Not RS.EOF AND howmanyrecs < mypagesize
counter = counter + 1
If counter mod 2 = 0 then
color = "CCCCCC"
Else
color = "FFFFFF"
End If 
%>
<%=RS("Namn")%><BR>
<%=RS("Kommentar")%><BR>
<IMG SRC="images/linje_avbryt.gif"><BR>

<%
RS.movenext
howmanyrecs = howmanyrecs + 1
Loop
RS.close
Set RS = nothing
%>

<%
If CInt(maxcount) > 1 then

' vilken sida
scriptname = request.Servervariables("script_name")
response.write "sida " & mypage & " av " & maxcount & "<br>" & " sidor:<br>"

' om vi inte är på första sidan, skriv ut - Föregående
If CInt(mypage) > 1 then 
Response.Write("<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> ")
End If

for counter = 1 to maxcount

Response.Write("<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & counter & "</a> ")

next 

' Om vi inte är på sista sidan, skriv ut - Nästa
If CInt(mypage) < CInt(maxcount) Then
ref = ref & "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "
End If
End IF
End If
%>

Men det blir såhät på första sidan:

sida 1/2
1 2

jag vill ha det såhär ju:

sida 1/2
Nästa

Vad har jag gjort fel?

Föregående funkar utmärkt!

------------------
::::::::::::::::::::::::
:Mvh. Torlejf :: Design:
::::::::::::::::::::::::
Hemsida på G!!!

brwMedlem sedan juli 2000619 inlägg
#18

Du har inte kört nån response write på ref-värdet.

kolla min kod...

<%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If

mypagesize = 10

Set RS = Server.Createobject("ADODB.Recordset")

RS.cursorlocation = 3
RS.cachesize = 5
RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb"

If RS.EOF then
raderknapp = "nej" 
Response.write "<tr><td colspan=""6""><em>Det finns inga loggar i databasen.</em></td></tr>" & sok

Else

RS.movefirst
RS.pagesize = mypagesize
maxcount = Cint(RS.pagecount)
RS.absolutepage = mypage
howmanyrecs = 0
howmanyfields = RS.fields.count -1

Do While Not RS.EOF AND howmanyrecs < mypagesize
counter = counter + 1
If counter mod 2 = 0 then
color = "CCCCCC"
Else
color = "FFFFFF"
End If 
%>

<tr>
<td width="14%" valign="top" bgcolor="<%=color%>"><em><% =RS("login") %></em></td>
<td width="16%" valign="top" bgcolor="<%=color%>"><em>******</em></td>
<td width="14%" valign="top" bgcolor="<%=color%>"><em><% =RS("typ") %></em></td>
<td width="24%" valign="top" bgcolor="<%=color%>"><em><% =RS("ip") %></em></td>
<td width="27%" valign="top" bgcolor="<%=color%>"><em><% =RS("datum") %></em></td>
<td width="5%" valign="top" bgcolor="<%=color%>"><em><div align="right"><input type="checkbox" name="<% =RS("id") %>"></div></em></td>
</tr>
<%
RS.movenext
howmanyrecs = howmanyrecs + 1
Loop
RS.close
Set RS = nothing
%>

<tr><td colspan="6"> </td></tr>
<tr><td colspan="6"><em><div align="right">

<%
If CInt(maxcount) > 1 then

' vilken sida
scriptname = request.Servervariables("script_name")
response.write "sida " & mypage & " av " & maxcount & "<br><br>"

' om vi inte är på första sidan, skriv ut - Föregående
If CInt(mypage) > 1 then 
Response.Write("<a href='" & scriptname & "?whichpage=" & (mypage - 1) & "&pagesize=" & mypagesize & "'>Föregående</a> ")
End If

for counter = 1 to maxcount

'Response.Write("<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & counter & "</a> ")

next 

' Om vi inte är på sista sidan, skriv ut - Nästa
If CInt(mypage) < CInt(maxcount) Then
ref = "<a href='" & scriptname & "?whichpage=" & (mypage + 1) & "&pagesize=" & mypagesize & "'>Nästa</a> "
End If

Response.Write ref

End If
%>

Denna kod talar ju om vilken sida du är på

' vilken sida
scriptname = request.Servervariables("script_name")
response.write "sida " & mypage & " av " & maxcount & "<br><br>"

så du behöver inte den i mitten längst ned. det är därför det blir (1 2 osv) .. den kan du inaktivera..

'Response.Write("<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & counter & "</a> ")

------------------
Ingenting är omöjligt, bara en utmaning.

[Redigerat av brw den 04 nov 2000]

bohlinMedlem sedan mars 2000263 inlägg
#19

En sak till: ni borde ändra denna raden:

RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb"

till

Dim conn
Set conn = server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb"
RS.Open SQL, conn

om ni inte gör det så kan ni inte stänga databasen, tror jag.

conn.close

------------------
/bohlin
kaffe är djävulens dryck
glögg är guds dryck

[Redigerat av bohlin den 04 nov 2000]

150 ms totalt · 3 externa anrop · v20260731065814-full.7de19299
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
146 ms — hämta tråd, inlägg och bilagor (db)