webForumDet fria alternativet

Paging start från Mitten

ASP

1 svar · 178 visningar · startad av SteveP

Medlem sedan mars 2003772 inlägg
Frågan#1

Jag har en Stored procedure som hämtar ca 500 poster från ett table med olika personer i. Sedan har jag ett vanligt paging script för att blädra genom dessa records på en sida.

Pagingen går i alfabetisk ordning.
Alltså första recordet är tex

Surname: "Andrew"

Nästa post är:
Surname: "Bateman" osv

Men nu vill jag att default posten som ska visas när man kommer in är den Personen som är inloggad på nätverket.

Alltså tex jag, min Request.servervariables("user") är "STP" så när jag kommer in på sidan så står mitt Surname ifyllt. Detta fungerar men det blir ju ingen Paging eftersom bara en post blir vald.

Om mitt namn är post nr 250 i databasen så ska alltså sidan starta på Default.asp?Page=250 så att man sedan kan bläddra tillbaka i bokstavsordning samt frammåt.

Hoppas ni förstår vad jag menar?

Medlem sedan mars 2003772 inlägg
#2

Såhär fick jag göra

Function GetContactID
Dim ObjRs
Dim ObjConn
Dim VarUserVariable
Dim StrSQL

VarUserVariable = Mid(Request.ServerVariables("Remote_User"),5)

Set ObjRs = Server.CreateObject("ADODB.RecordSet")
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open Connect_String()

strSQL = "Select Count(*) as StartingPoint from tblLCPContactDetails " &_
"where LCPCode <= '" & VarUserVariable & "'"

ObjRs.Open strSQL, ObjConn, AdOpenForwardOnly

If Not ObjRs.EOF then

StartingPoint = ObjRs("StartingPoint")

end if

ObjRs.Close
ObjConn.CLose
Set ObjRs = Nothing
Set ObjConn = Nothing

End Function

Sen i Paging scriptet ändrade jag IntPage till följande

If IntPage = "" then IntPage = Startingpoint
258 ms totalt · 4 externa anrop · v20260731065814-full.e96017d9
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)