01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP & SQL Server Tutorial</title>
05.</head>
06.<body>
07.<%
08. Dim Conn,strSQL,objRec
09. Set Conn = Server.Createobject("ADODB.Connection")
10. Conn.Open "Driver={SQL Server};Server=localhost;Database=mydatabase;UID=sa;PWD=;"
11. strSQL = "SELECT * FROM customer "
12. Set objRec = Server.CreateObject("ADODB.Recordset")
13. objRec.Open strSQL, Conn, 1,3
14.
15. If objRec.EOF Then
16. Response.write (" Not found record.")
17. Else
18.
19. Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
20. PageLen = 2
21. PageNo = Request.QueryString("Page")
22. if PageNo = "" Then PageNo = 1
23. TotalRecord = objRec.RecordCount
24. objRec.PageSize = PageLen
25. TotalPage = objRec.PageCount
26. objRec.AbsolutePage = PageNo
27.%>
28.<table width="600" border="1">
29. <tr>
30. <th width="91"> <div align="center">CustomerID </div></th>
31. <th width="98"> <div align="center">Name </div></th>
32. <th width="198"> <div align="center">Email </div></th>
33. <th width="97"> <div align="center">CountryCode </div></th>
34. <th width="59"> <div align="center">Budget </div></th>
35. <th width="71"> <div align="center">Used </div></th>
36. </tr>
37.<%
38. No=1
39. Do While Not objRec.EOF and No <= PageLen
40.%>
41. <tr>
42. <td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
43. <td><%=objRec.Fields("Name").Value%></td>
44. <td><%=objRec.Fields("Email").Value%></td>
45. <td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
46. <td align="right"><%=objRec.Fields("Budget").Value%></td>
47. <td align="right"><%=objRec.Fields("Used").Value%></td>
48. </tr>
49.<%
50. No = No + 1
51. objRec.MoveNext
52. Loop
53.%>
54.</table>
55. Total : <%=TotalRecord%> Page <%=PageNo%> All Page <%=TotalPage%>
56. <% IF Cint(PageNo) > 1 then %>
57. <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=1"><< First</a>
58. <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo-1%>">< Back</a>
59. <% End IF%>
60. <% IF Cint(PageNo) < TotalPage Then %>
61. <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo+1%>">Next ></a>
62. <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=TotalPage%>">Last >></a>
63. <% End IF%>
64. <br>
65. Go to
66. <% For intID = 1 To TotalPage%>
67. <% if intID = Cint(PageNo) Then%>
68. <b><%=intID%></b>
69. <%Else%>
70. <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=intID%>"><%=intID%></a>
71. <%End IF%>
72. <%Next%>
73.<%
74.End IF
75.objRec.Close()
76.Conn.Close()
77.Set objRec = Nothing
78.Set Conn = Nothing
79.%>
80.</body>
81.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
