Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,030

HOME > ASP > ASP Forum > ต้องการแบ่งหน้า เป็น 123 ทำไงคับช่วยที ต้องการแบ่งหน้าจะต้องทำไงบ้างคับถึงจะแบ่งหน้าได้

ต้องการแบ่งหน้า เป็น 123 ทำไงคับช่วยที ต้องการแบ่งหน้าจะต้องทำไงบ้างคับถึงจะแบ่งหน้าได้

เริ่มหัวข้อใหม่

Guest

ต้องการแบ่งหน้าจะต้องทำไงบ้างคับถึงจะแบ่งหน้าได้ผมได้เขียนโค๊ดแล้วไม่ได้ช่วยดูด้วยคับ

<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<%
Category=Request("Category")
Select Case Category
Case ""
Category="ÊÔ¹¤éÒãËÁè"
path="newlamp/"
Case "ÊÔ¹¤éÒãËÁè"
Category="ÊÔ¹¤éÒãËÁè"
path="newlamp/"
Case "â¤Áä¿§Ò¹´Ô¹à¼Ò"
path="lamp1/"
Case "â¤Áä¿à«ÃÒÁÔ¤Êì"
path="lamp2/"
Case "â¤Áä¿ÈÔÅÒ´Å"
path="lamp3/"
Case "â¤Áä¿§Ò¹ºÇº"
path="lamp4/"
End Select
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open Server.MapPath("\ecommerce\db\ecommerce.mdb")
Sql="SELECT * FROM Product WHERE Category LIKE '%" & Category & "%' "
Set rs =Server.CreateObject("ADODB.Recordset")
rs.Open Sql,Conn,1,3

'Paging=====================
Dim Page, RowCount, PageCounter

Page = Request.QueryString("Page")
If Page = "" then Page = 1 end if

if not rs.eof then
RowCount = 0
rs.PageSize = 3
rs.AbsolutePage = cInt(Page)
end if
'===========================
%>
<table width="100%" border="0">
<tr>
<td width="80%" class= "text2">ËÁÇ´ [<font color=red><b><%=rs("Category")%></font></b>]</td>
<td width="20%"><a href="displaylist.asp">ËÂÔºµÐ¡ÃéÒÊÔ¹¤éÒ<img src="Basket.gif" border="0"></a>
</td>
</tr>
</table>
<table width="100%" border="0">

<tr>
<div align="right">
<% if Page > 1 then %>
<a href="display.asp?Page=<%=Page-1%>"><< Back</a>
<% end if %>
<%For PageCounter = 1 to rs.PageCount%>
<% if cInt(PageCounter) = cInt(Page) then%>
<b><%=PageCounter%></b> 
<%else%>
<a href="display.asp?Page=<%=PageCounter%>"><%=PageCounter%></a> 
<%end if%>
<%Next%>
<% if cInt(Page) < cInt(rs.PageCount) then %>
<a href="display.asp?Page=<%=Page+1%>"> Next >></a>
<% end if %>
</div>
</tr>

</table>

<%Do while not rs.eof and RowCount < rs.PageSize %>
<table border=0 cellpadding=5 cellspacing=0 width="100%">
<tr>
<td></td>
<td><b><%=rs("NameProduct")%></b></td>
</tr>
<tr>
<td rowspan=2 width=122 align=center>
<a href=<%=path&rs("picture")%> target="_blank" ><img width=120 height=120 border=0 src=<%=path&rs("picture")%>><br>
<a href=shop.asp?ID_Product=<%=rs("ID_Product")%>><br>
<img src="onlineorder.gif" border="0"></a>
</td>
<td class = text1><font color=blue><%=rs("Detail")%></font></td>
</tr>
<td>
<table border=0 cellpadding=2 cellspacing=0 width="100%">
<tr>
<td width=70>ÃËÑÊÊÔ¹¤éÒ</td>
<td class=text1><font color=red><%=rs("ID_Product")%></font></td>
</tr>
<tr>
<td width=70>ª×èÍÊÔ¹¤éÒ</td>
<td class=text1><font color=red><%=rs("NameProduct")%></font></td>
</tr>
<tr>
<td width=70>¢¹Ò´</td>
<td class=text1><font color=red><%=rs("Size")%></font></td>
</tr>
<tr>
<td width=70>ÃÒ¤Ò</td>
<td class=text1><font color=red><%=formatnumber(rs("Price"),2)%> ºÒ·</font></td>
</tr>
</table>
</td>
</tr>
</table>
<hr color=#c0c0c0 noShade size=1>
<%rs.MoveNext
RowCount = RowCount + 1
Loop%>

<% rs.close : Set rs=Nothing
Conn.close : Set Conn = Nothing%>

Tag : - - - -

Date : 22 มิ.ย. 2548 19:13:43

By : minator007

View : 2466

Reply : 1

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

Code (ASP)

<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
</head>
<body>
<%
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
strSQL = "SELECT * FROM customer "
Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn, 1,3

If objRec.EOF Then
Response.write (" Not found record.")
Else

Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
PageLen = 2
PageNo = Request.QueryString("Page")
if PageNo = "" Then PageNo = 1
TotalRecord = objRec.RecordCount
objRec.PageSize = PageLen
TotalPage = objRec.PageCount
objRec.AbsolutePage = PageNo
%>
<table width="600" border="1">
<tr>
<th width="91"> <div align="center">CustomerID </div></th>
<th width="98"> <div align="center">Name </div></th>
<th width="198"> <div align="center">Email </div></th>
<th width="97"> <div align="center">CountryCode </div></th>
<th width="59"> <div align="center">Budget </div></th>
<th width="71"> <div align="center">Used </div></th>
</tr>
<%
No=1
Do While Not objRec.EOF and No <= PageLen
%>
<tr>
<td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td>
<td><%=objRec.Fields("Name").Value%></td>
<td><%=objRec.Fields("Email").Value%></td>
<td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td>
<td align="right"><%=objRec.Fields("Budget").Value%></td>
<td align="right"><%=objRec.Fields("Used").Value%></td>
</tr>
<%
No = No + 1
objRec.MoveNext
Loop
%>
</table>
Total : <%=TotalRecord%> Page <%=PageNo%> All Page <%=TotalPage%>
<% IF Cint(PageNo) > 1 then %>
<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=1"><< First</a>
<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo-1%>">< Back</a>
<% End IF%>
<% IF Cint(PageNo) < TotalPage Then %>
<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo+1%>">Next ></a>
<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=TotalPage%>">Last >></a>
<% End IF%>
<br>
Go to
<% For intID = 1 To TotalPage%>
<% if intID = Cint(PageNo) Then%>
<b><%=intID%></b>
<%Else%>
<a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=intID%>"><%=intID%></a>
<%End IF%>
<%Next%>
<%
End IF
objRec.Close()
Conn.Close()
Set objRec = Nothing
Set Conn = Nothing
%>
</body>
</html>

https://www.thaicreate.com/asp/asp-ms-access-list-record-paging.html

Date : 2009-04-25 10:26:49

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ต้องการแบ่งหน้า เป็น 123 ทำไงคับช่วยที ต้องการแบ่งหน้าจะต้องทำไงบ้างคับถึงจะแบ่งหน้าได้

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03

Registered : 109,030

document.write("<font color=996600>[ASP]</font>"); ต้องการแบ่งหน้า เป็น 123 ทำไงคับช่วยที ต้องการแบ่งหน้าจะต้องทำไงบ้างคับถึงจะแบ่งหน้าได้

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

ต้องการแบ่งหน้า เป็น 123 ทำไงคับช่วยที ต้องการแบ่งหน้าจะต้องทำไงบ้างคับถึงจะแบ่งหน้าได้