ถ้าผมต้องการจะปรับ Code ที่แบ่งแสดงข้อมูล
ให้แสดงออกมาเป็น l 1 l 2 l 3 l.....l Last l Next>> และ <<Previous l 1 l 2 l 3 l.....l Last l Next>> อย่างไงครับ
และขอให้Codeที่แสดง "ลำดับที่" มันต่อๆกันไปยังหน้าถัดไปด้วยครับ
ของเดิมเป็นแบบนี้ครับ
PageDIV.asp
<%
PageSize=50 'กำหนดการแสดงผลต่อ 1 หน้า
if Request.QueryString("PageNo")="" then
PageNo=1
else
PageNo=Request.QueryString("PageNo")
end if
%>
<table>
<tr>
<td>ลำดับที่</td>
<td>เลขประจำตัว</td>
<td>ชื่อ%></td>
<td>หน่วยงาน</td>
<td>ทีมงาน</td>
<td>รายละเอียด</td>
</tr>
<%
ConnString = "PROVIDER=SQLOLEDB;DATA SOURCE=10.3.57.102;INITIAL CATALOG=Ecom;USER ID=sa;PASSWORD=password;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
SQL="Select * from ecom"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open SQL, Conn, 3,1
Rs.PageSize=PageSize
PageCount=Rs.PageCount
Rs.AbsolutePage=PageNo
nID=1
Do while not Rs.Eof and nID<=PageSize
%>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("tin")%></td>
<td><%=rs("name")%></td>
<td><%=rs("pak")%></td>
<td><%=rs("team")%></td>
<td><%=rs("descrip")%></td>
</tr>
<%
nID=nID+1
Rs.MoveNext
Loop
Rs.Close
Conn.Close
%>
</table>
<hr>
<% For i=1 to PageCount %>
l <a href="PageDIV.asp?PageNo=<% =i %>"><% =i %></A> |
<% next %>