ถ้าทำแบ่งหน้าแบบ ธรรมดาได้แล้ว ลองใช้ For กับการหาร ช่วยดูนะครับ ถ้าเกิน 5 ก็ให้ แสดง Next
ผมจำโค๊ดไม่ค่อยได้แล้ว ถ้ามีเวลาแล้วจะดูให้นะครับ
Date :
12 พ.ค. 2548 21:29:15
By :
p_latplee
No. 2
Guest
ยังไม่มีใครทำได้เลยหรอเนี้ย
อยากได้อ่ะ
ทำไงดีอ่ะ
Date :
17 พ.ค. 2548 10:55:48
By :
ช่วยด้วยคับ
No. 3
Guest
<html>
<body>
<%
keyword=Request.Form("keyword")
if keyword="" then
keyword=Request.QueryString("keyword")
end if
%>
<form name="form1" method="post" action="nextpage.asp">
ค้นหาจาก Description
<input type="text" name="keyword" value="<%=keyword%>">
<input type="submit" name="Submit" value="ค้นหา">
</form>
<%
if keyword="" then
Response.write("<br>กรุณากรอก Keyword เพื่อค้นหาจาก Field Description<hr>")
else
pageLen = 2 'กำหนดจำนวนแต่ละหน้าที่ต้องการแสดงกี่ Reccord
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/product.mdb"),"" , ""
'หรือจะใช้เป็น Conn.Open "product","",""
sql ="Select * From product where description like '%"&keyword&"%'"
Set RS =Server.CreateObject("ADODB.Recordset")
If Rs.EOF Then
%>
ไม่มีข้อมูลในตาราง !
<%Else%>
<table border="1">
<tr bgcolor="Silver">
<td>id</td>
<td>barcode</td>
<td>Description</td>
<td>Price</td>
<td>Page</td>
<td>writer</td>
</tr>
<%
recNo=1
Do While Not RS.EOF and recNo <= pageLen
%>
<tr>
<td><%= Rs("Id")%></td>
<td><%= Rs("barcode")%></td>
<td><%= Rs("description")%></td>
<td><%= Rs("price")%></td>
<td><%= Rs("page")%></td>
<td><%= Rs("writer")%></td>
</tr>
<%
recNo=recNo+1
RS.MoveNext
Loop
rs.close
conn.close
%>
</table>
<%
end if
%>
<br>
<br>
จำนวน: <%=Nrecord%> รายการ<br>
ขณะนี้อยู่หน้า <%=pageNo%> ในทั้งหมด <%=totalPage%> หน้า
<%
if cint(pageno) > 1 then %>
<br>
<a href="sample1.asp?pageNo=1&keyword=<%=keyword%>">หน้าแรก</a> <a href="nextpage.asp?pageNo=<%=pageNo-1%>&keyword=<%=keyword%>">ย้อนกลับ</a>
<% end if
if cint(pageno) < totalPage then %>
<a href="sample1.asp?pageNo=<%=pageNo+1%>&keyword=<%=keyword%>">หน้าต่อไป</a> <a href="nextpage.asp?pageNo=<%=totalPage%>&keyword=<%=keyword%>">หน้าสุดท้าย</a>
<% end if
%>
<br>
กระโดดไปหน้า
<%for idx = 1 to totalPage
%>
<a href="nextpage.asp?pageNo=<%=idx%>&keyword=<%=keyword%>">
<% if idx=cint(pageno) then%>
<b><%=idx%></b>
<%else %>
<%=idx%>
<%end if%>
</a>
<%
next
end if
%>
Load balance : Server 04
