PHP@Sindrem.com - et online opplæringssenter i PHP, ASP, JavaScript og SQL.

<p>Dette scriptet har jeg funnet på hjemmesidene til
Microsoft. Man har ofte bruk for dette, ettersom det ofte ikke er
ønskelig med alle postene på en side, men å
begrense det.</p>

<pre><%@ EnableSessionState=False Language=VBScript %>
<%

Session.LCID=1033

set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=AdvWorks"

set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 ' adUseClient
rs.Open "Select * from person", conn
rs.PageSize = 2
intPageCount = rs.PageCount

Select Case Request("Action")
case "<<"
intpage = 1
case "<"
intpage = Request("intpage")-1
if intpage < 1 then intpage = 1
case ">"
intpage = Request("intpage")+1
if intpage > intPageCount then intpage = IntPageCount
Case ">>"
intpage = intPageCount
case else
intpage = 1
end select
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio
6.0">
<TITLE>ASP & ADO Paging</TITLE>
</HEAD>
<BODY bgColor=White text=Black>

<%
rs.AbsolutePage = intPage
For intRecord = 1 To rs.PageSize
Response.Write "Record number: " & intRecord & " "
Response.Write rs.Fields("Fornavn") & " "
Response.Write rs.Fields("Etternavn") & "<br>"
Response.Write rs.Fields("Alder") & "<br>"

rs.MoveNext
If rs.EOF Then Exit For

rs.Close
set rs = Nothing
conn.Close
set conn = nothing
%>
<form name="MovePage" action="default.asp" method="post">
<input type="hidden" name="intpage" value="<%=intpage%>">
<input type="submit" name="action" value="&lt;&lt;">
<input type="submit" name="action" value="&lt;">
<input type="submit" name="action" value="&gt;">
<input type="submit" name="action" value="&gt;&gt;">
Page: <%=Intpage & " of " & intpagecount%>
</form>
</BODY>
</HTML>
</pre>

<p>Funnet på microsoft.com.</p>

Spam vil bli anmeldt. Jeg vil se igjennom forslagene før de blir lagt ut.

<< tilbake

Nyttige program

Om meg