Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > ASP > ASP Forum > ใครก็ได้ช่วยหน่อยครับ.......เรื่องการแบ่งเป็นหน้า



 

ใครก็ได้ช่วยหน่อยครับ.......เรื่องการแบ่งเป็นหน้า

 



Topic : 000407

Guest




http://www.thai.net/agron59/guestbook/guestbook.asp

ลองมาดูนะครับ ผมแบ่งหน้าเว็บได้แล้ว ผมแบ่งหน้าละ10ข้อความ แต่หน้าที่2มันมีข้อความเหมือนหน้าที่1 ข้อความที่มากกว่า10มันไม่ยอมโชว์ จะทำไงดีครับ


Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 8 Jul 2546 13:16:04 By : agronomy View : 3898 Reply : 4
 

 

No. 1

Guest


เอาโค๊ตมาให้ดูครับ

<%
Dim SpamProtect
If Session("SpamProtect")=Null Then
Session("SpamProtect")=False
End If
pageLen = 10'กำหนดจำนวนแต่ละหน้าที่ต้องการแสดงกี่ Reccord
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Name= request.form("name")
Email=request.form("email")
Message=request.form("message")
R_IP = Request.ServerVariables("Remote_Addr")
HostName = Request.ServerVariables("remote_Host")
set conn=Server.CreateObject("ADODB.Connection")
strConn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.Mappath("Guestbook.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from guestbook order by ID DESC", strConn, 1, 3
if (name <> "" AND Session("SpamProtect")=False) then
rs.AddNew
rs("Name")=Name
rs("Email")=Email
rs("IP_ADDR")=R_IP
rs("HostName")=HostName
rs("VisitedDate")=date()
rs("Message")=Message
rs.Update
Session("SpamProtect")=True
end if
Nrecord=RS.recordcount
rs.pageSize = pageLen
totalPage = rs.PageCount
rs.absolutePage = pageNo
If not(rs.eof) Then
rs.MoveFirst
End If
%>
<font color="#0000ff" size="4"> ขณะนี้อยู่หน้า<b> <%=pageNo%></b> ในทั้งหมด <b><%=totalPage%> </b>หน้า </font>
<br><font color="#0000ff" size="3">แสดงหน้าละ<b> 10</b> ข้อความ มีทั้งหมด:<b> <%=Nrecord%></b> ข้อความ </font>
<hr width="100%" color="#ff0000">
<br>
<table width=90% border="0" cellpadding="2">
<%
recNo=1
while not rs.eof and recNo <= pageLen
%>

<tr><td>

<table width="100%" border=0 cellpadding=0 cellspacing=0>
<tr>
<td width="2%"><IMG SRC="http://pirun.ku.ac.th/~b4201224/table/a01.gif"></td>
<td width="96%" background="http://pirun.ku.ac.th/~b4201224/table/a02.gif"><br></td>
<td width="2%"><IMG SRC="http://pirun.ku.ac.th/~b4201224/table/a03.gif"></td>
</tr>
<tr>
<td width="2%" background="http://pirun.ku.ac.th/~b4201224/table/a04.gif"></td>
<td width="96%" bgcolor="#ffffff">
<font color="#ff0000" size="3"> ข้อความที่เยี่ยม </font>
<hr width="100%" color="#ff00ff">
<dd> <font color="#0000ff"> <%=rs("Message")%></font>
<br> &nbsp;
<hr width="100%" color="#ff00ff">
<IMG SRC="from.gif" width="25" height="25" BORDER=0 alt="ข้อความที่<%=rs("ID")%>">
<font color="#ff00ff" size="4"> <%=rs("Name")%> </font> &nbsp;
<IMG SRC="email.gif" BORDER=0 ALT="<%=rs("Email")%>"> &nbsp;
<IMG SRC="ip.gif" BORDER=0 ALT="<%=rs("IP_ADDR")%>"> &nbsp; &nbsp;
มาเยี่ยมเมื่อ <font color="#ff0000"> <%=rs("VisitedDate") %> </font>

</td>
<td width="2%" background="http://pirun.ku.ac.th/~b4201224/table/a05.gif"></td>
</tr>
<tr>
<td width="2%"><IMG SRC="http://pirun.ku.ac.th/~b4201224/table/a06.gif"></td>
<td width="96%" background="http://pirun.ku.ac.th/~b4201224/table/a07.gif"></td>
<td width="2%"><IMG SRC="http://pirun.ku.ac.th/~b4201224/table/a08.gif"></td>
</tr></table>

</td></tr>

<tr><td> &nbsp; </td></tr>
<%
recNo=recNo+1
rs.movenext
wend
rs.Close
set rs=Nothing
%>


</table>

<hr width="100%" color="#ff0000">
<br>
<div align="center">
<font color="#0000ff" size="3"> ข้อความที่เยี่ยมทั้งหมดจำนวน:<b> <%=Nrecord%></b> ข้อความ </font>

<br>
<br>
ขณะนี้อยู่หน้า <%=pageNo%> ในทั้งหมด <%=totalPage%> หน้า
<br>
<%
if cint(pageno) > 1 then %>
<br>
<a href="guestbook.asp?pageNo=1">หน้าแรก</a> &nbsp; <a href="guestbook.asp?pageNo=<%=pageNo-1%>">ย้อนกลับ</a>
&nbsp;
<% end if
if cint(pageno) < totalPage then %>
<a href="guestbook.asp?pageNo=<%=pageNo+1%>">หน้าต่อไป</a>&nbsp; <a href="guestbook.asp?pageNo=<%=totalPage%>">หน้าสุดท้าย</a>
&nbsp;
<% end if


%>
<hr width="100%" color="#ff0000">
<br>
กระโดดไปหน้า
<%for idx = 1 to totalPage
%>
<a href="guestbook.asp?pageNo=<%=idx%>">
<% if idx=cint(pageno) then%>
<b><%=idx%></b>
<%else %>
<%=idx%>
<%end if%>
</a>&nbsp;
<%
next%>
</div>


Date : 8 Jul 2546 13:19:29 By : agronomy
 


 

No. 2



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

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

เท่า ๆ ที่รู้มา thai.net จะไม่อนุญาติให้มีการทำเว็บแบบ dynamic ครับ คือไม่ให้มีการดึงฐานข้อมูลมาใช้งาน
Date : 8 Jul 2546 15:46:43 By : webmaster
 

 

No. 3

Guest


thai.net สามารถเอาข้อมูลมาแสดงได้ครับ ผมทำมาแล้ว แต่guestbookที่ผมเขียนนั้น ผมทำไน www.brinkster.com ครับ แล้วทำแฟรมมาไว้ที่ไทยดอตเนตครับ แต่ที่งงคือ แบ่งหน้าเว็บแล้ว ผมแบ่งหน้าละ10ข้อความ แต่หน้าที่2มันก้อแสดง10ข้อความล่าสุดเหมือนกัน ผมเลยงง
Date : 8 Jul 2546 19:14:11 By : agronomy
 


 

No. 4

Guest


ลองมาดูนะครับ
http://www.thai.net/agron59/guestbook/guestbook.asp

โค๊ตมันมีผิตตรงไหนบ้างครับ <%
Dim SpamProtect
If Session("SpamProtect")=Null Then
Session("SpamProtect")=False
End If
pageLen = 10'กำหนดจำนวนแต่ละหน้าที่ต้องการแสดงกี่ Reccord
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1
Name= request.form("name")
Email=request.form("email")
Message=request.form("message")
R_IP = Request.ServerVariables("Remote_Addr")
HostName = Request.ServerVariables("remote_Host")
set conn=Server.CreateObject("ADODB.Connection")
strConn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.Mappath("Guestbook.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from guestbook order by ID DESC", strConn, 1, 3
if (name <> "" AND Session("SpamProtect")=False) then
rs.AddNew
rs("Name")=Name
rs("Email")=Email
rs("IP_ADDR")=R_IP
rs("HostName")=HostName
rs("VisitedDate")=date()
rs("Message")=Message
rs.Update
Session("SpamProtect")=True
end if
Nrecord=RS.recordcount
rs.pageSize = pageLen
totalPage = rs.PageCount
rs.absolutePage = pageNo
If not(rs.eof) Then
rs.MoveFirst
End If
%>

----------------------------------------------------------

<%
recNo=1
while not rs.eof and recNo <= pageLen
%>


-----------------------------------------------

<%
recNo=recNo+1
rs.movenext
wend
rs.Close
set rs=Nothing
%>


-----------------------------------------------

<div align="center">
<font color="#0000ff" size="3"> ข้อความที่เยี่ยมทั้งหมดจำนวน:<b> <%=Nrecord%></b> ข้อความ </font>

<br>
<br>
ขณะนี้อยู่หน้า <%=pageNo%> ในทั้งหมด <%=totalPage%> หน้า
<br>
<%
if cint(pageno) > 1 then %>
<br>
<a href="guestbook.asp?pageNo=1">หน้าแรก</a> &nbsp; <a href="guestbook.asp?pageNo=<%=pageNo-1%>">ย้อนกลับ</a>
&nbsp;
<% end if
if cint(pageno) < totalPage then %>
<a href="guestbook.asp?pageNo=<%=pageNo+1%>">หน้าต่อไป</a>&nbsp; <a href="guestbook.asp?pageNo=<%=totalPage%>">หน้าสุดท้าย</a>
&nbsp;
<% end if


%>
<hr width="100%" color="#ff0000">
<br>
กระโดดไปหน้า
<%for idx = 1 to totalPage
%>
<a href="guestbook.asp?pageNo=<%=idx%>">
<% if idx=cint(pageno) then%>
<b><%=idx%></b>
<%else %>
<%=idx%>
<%end if%>
</a>&nbsp;
<%
next%>
</div>

-----------------------------------------------------------

ขอบคุณล่วงหน้านะครับ
Date : 8 Jul 2546 19:21:03 By : agronomy
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ใครก็ได้ช่วยหน่อยครับ.......เรื่องการแบ่งเป็นหน้า
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







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

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่