set rs1 =server.CreateObject("adodb.recordset")
sql=select*form.....
rs1.Open sql,con,1,3
rs1.pagesize=20
if request("pageno")<>"" then
pageno=request("pageno")
else
pageno=1
end if
rs1.absolutepage=pageno
end if
<table align="center" class="table0">
<tr>
<td>
<%
'หน้าแรก
if (cint(pageno)>1) then
response.Write"[<a href='test.asp?ty="&ty&"&pageno=1"'>หน้าแรก</a>] "
end if
'ย้อนกลับ10หน้า
if (cint(pageno)-10)>=1 then
response.Write" [<a href='test.asp?ty="&ty&"&pageno="&pageno-10&"'><<ย้อนกลับ 10 หน้า</a>] "
end if
'ย้อนกลับ
if (cint(pageno)-1)>=1 then
response.Write" [<a href='test.asp?ty="&ty&"&pageno="&pageno-1&"'><ย้อนกลับ</a>] "
end if
rowcount=1
if rs1.pagecount>1 then
if (pageno+10)<rs1.pagecount then
j=pageno+10
else
j=rs1.pagecount
end if
if (cint(pageno)<rs1.pagecount) then
response.Write("หน้า ")
end if
for i=pageno+1 to j
response.Write"<a href='test.asp?t'>"&i&"</a> "
next
end if
'หน้าต่อไป
if (rs1.pagecount>=(pageno+1)) then
response.Write" [<a href='test.asp?pageno="&pageno+1"'>หน้าต่อไป></a>] "
end if
'หน้าต่อไป10หน้า
if (rs1.pagecount>=(pageno+10)) then
response.Write" [<a href='test.asp?pageno="&pageno+10"'>10 หน้าต่อไป>></a>] "
end if
'หน้าสุดท้าย
if (cint(rs1.pagecount)<>cint(pageno)) then
response.Write" [<a href='ttest.asp?pageno="&rs1.pagecount&"'>หน้าสุดท้าย</a>]"
end if
%>
</td>
</tr>
</table>
Load balance : Server 02
