Trådstart#1
Tjenare
Jag skall göra en sida där 30 medlemmar skall visas åt gången
men jag har inte hittat något bra pagin script etc.
nån här som har ett bra paginscript eller nån koll på hur man skall
skriva det
Tackar på förhand
Pagin function
2 svar · 216 visningar · startad av snake_vbg
Med Ado
<%@ Language=VBScript %>
<% Response.Buffer=true %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
dim rs,i,strConn,strTemp
set rs=server.CreateObject("adodb.recordset")
rs.CursorLocation=3 'clientside
rs.CursorType=3 'staticrecordset
rs.PageSize=100
strConn="Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=tex.mdb"
rs.Open "select * from authors",strConn
Response.Write "<table><tr>"
for i=1 to rs.PageCount
Response.Write "<td><ahref=paging.asp?pg=" & i & ">" & i & "</a></td>"
next
Response.Write "</tr></table><br>"
if Request.QueryString("pg")="" then
rs.AbsolutePage=1
For i=1 to 100
Response.Write rs.Fields("author") & "<br>"
rs.MoveNext
Next
else
rs.AbsolutePage=cint(Request.QueryString("pg"))
For i=1 to 100
Response.Write rs.Fields("author") & "<br>"
rs.MoveNext
Next
end if
%>
</BODY>
</HTML>