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,025

HOME > ASP > ASP Forum > รบกวนช่วยดูโค๊ดการค้นหาแล้วแบ่งเป็นหน้าๆ ASP ให้หน่อยครับ



 

รบกวนช่วยดูโค๊ดการค้นหาแล้วแบ่งเป็นหน้าๆ ASP ให้หน่อยครับ

 



Topic : 047658



โพสกระทู้ ( 2 )
บทความ ( 0 )



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




ผมมีอยู่สองเพจ เพจหนึ่งโชว์ข้อมูลทั้งหมดแล้วแบ่งออกเป็นหน้าๆ และทำการค้นหาข้อมูลจากเพจแรก
ไปโชว์ข้อมูลที่เพจที่สองและแบ่งข้อมูลเป็นหน้าๆ ข้อมูลแสดงตามที่คนหา และแบ่งเป็นหน้าๆ ตามที่ต้องการ
แต่ปัญหาติดที่ตรงพอคลิ๊กไปหน้า N ของเพจที่สอง จะกลับไปหน้า N ของเพจที่หนึ่ง
ผมแก้และเข้ามาดูกระทู้ที่นี่ ที่เหมือนๆ กันก็แก้ไม่ได้ จนปัญญาแล้วครับ เพราะพึ่งจับภาษา asp มาได้แค่สองอาทิตย์เอง
โดนจับให้เขียนครับ

โค๊ดเพจที่หนึ่ง
Code (ASP)
<%
pageLen = 12 //กำหนดจำนวนแต่ละหน้าที่ต้องการแสดงกี่ Reccord
pageNo = request.QueryString("pageNo")
if pageNo="" then pageNo = 1

Call OpenConnect(sql)
sql = "Select * From RESDETAIL_VIEW Where Res_ID >0"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql,Conn,1,3

Nrecord=RS.RecordCount
Rs.PageSize = pageLen
totalPage = Rs.PageCount
Rs.AbsolutePage = pageNo

If Rs.EOF Then%>
ไม่มีข้อมูลในตาราง ! 
<%Else%>

<table width="90%" border="0" align="center" cellpadding="0">
<tr>
<td colspan="7"><font size="3"><B>โครงการวิจัย</B></font></td>
<tr bgcolor="Silver">
<td width="50"><div align="center"><font size="2">ปีงบประมาณ</font></div></td>
<td width="1000"><div align="center"><font size="2">ประเภทโครงการ</font></div></td>
<td width="5000"><div align="center"><font size="2">ชื่อโครงการ</font></div></td>
<td width="1200"><div align="center"><font size="2">หัวหน้าโครงการ</font></div></td>
<td width="1000"><div align="center"><font size="2">แหล่งทุน</font></div></td></tr>

<%
recNo=1
Do While Not RS.EOF and recNo <= pageLen%>

<tr<% if color=0 then %> bgcolor=#eeeeee <% color=1
else%>bgcolor=#fefefe<% color=0 end if %>> 
<td><div align="center"><font size="2"><%= Rs("Res_Budget_Year")%></font></div></td>
<td><font size="2"><%= Rs("TTyp_Type")%></font></td>
<td><font size="2"><%= Rs("Res_Name_th")%></font></td>
<td><font size="2"><%= Rs("Title_Faculty")&Rs("Th_Name")&"  "&Rs("Th_Surname")%></font></td>
<td><font size="2"><%= Rs("TTSB_Name")%></font></td></tr>

<%
recNo=recNo+1
Rs.MoveNext
Loop
//rs.close : Set rs=Nothing
Rs.close
Set Rs=Nothing
Call CloseConnect %>

<% end if %>

<tr><td colspan="7"><br>
<p align="left"> <font color="#999999" size="2"><b>เลือกรูปแบบการค้นหา</b>
<input type="radio" name="Research" value="1"  onClick="Show_List(this.value);" >
ปีงบประมาณ
<input type="radio" name="Research" value="2" onClick="Show_List(this.value);">
ประเภทโครงการ
<input type="radio" name="Research" value="3" onClick="Show_List(this.value);">
ชื่อโครงการ
<input type="radio" name="Research" value="4" onClick="Show_List(this.value);">
หัวหน้าโครงการ
<input type="radio" name="Research" value="5" onClick="Show_List(this.value);">
แหล่งทุน
<input type="radio" name="Research" value="6" onClick="Show_List(this.value);">
ปีงบประมาณ+หัวหน้าโครงการ
<input type="radio" name="Research" value="7" onClick="Show_List(this.value);">
ประเภทโครงการ+หัวหน้าโครงการ

<form name="form1" method="GET" action="budgetyear.asp" target="_blank">
<select name="select1" id="select_1" style="display:none" >
<option selected>กรุณาเลือกปีงบประมาณ</option>

<%
Call OpenConnect(sql)
sql="Select distinct Res_Budget_Year from RESDETAIL_VIEW Where Res_ID > 0"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql,Conn,1,3
%>
<%while Not Rs.EOF%>
<option value="<% =Rs("Res_Budget_Year")%>"><% =Rs("Res_Budget_Year")%></option>
<%Rs.MoveNext
wend
Rs.close
Set Rs=Nothing
Call CloseConnect
%>
</select>
<input type="submit" name="Submit1" value="ค้นหา"  style="display:none">
</form>

<form name="form2" method="GET" action="typeresearch.asp" target="_blank">
<select name="select2" id="select_2" style="display:none" >
<option selected>กรุณาเลือกประเภทโครงการ</option>
<%
Call OpenConnect(sql)
sql="Select distinct TTyp_Type from RESDETAIL_VIEW Where Res_ID > 0"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql,Conn,1,3
%>
<%while Not Rs.EOF%>
<option value="<% =Rs("TTyp_Type")%>"><% =Rs("TTyp_Type")%></option>
<%Rs.MoveNext
wend
Rs.close
Set Rs=Nothing
Call CloseConnect
%>
</select>
<input type="submit" name="Submit2" value="ค้นหา"  style="display:none">
</form>

<br><br>

จำนวน   <b><%=Nrecord%></b>  โครงการ<br>
ขณะนี้อยู่ที่หน้า  <b><%=pageNo%></b>  ในทั้งหมด  <b><%=totalPage%></b>  หน้า<br><br>

<% if cint(pageno) > 1 then %>

<a href="index.asp?pageNo=1">หน้าแรก</a> &nbsp; <a href="index.asp?pageNo=<%=pageNo-1%>">ย้อนกลับ</a>
&nbsp;
<% end if
if cint(pageno) < totalPage then %>

<a href="index.asp?pageNo=<%=pageNo+1%>">หน้าต่อไป</a>&nbsp; <a href="index.asp?pageNo=<%=totalPage%>">หน้าสุดท้าย</a>

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


โค๊ดเพจที่สอง
Code (ASP)
<%
pageLen = 12 //กำหนดจำนวนแต่ละหน้าที่ต้องการแสดงกี่ Reccord
pageNo = Request.QueryString("pageNo")
if pageNo="" then 
	pageNo = 1
Else
	pageNo=CInt(Request.QueryString("pageNo"))   //ไม่แปลงจะเปรียบเทียบค่าไม่ได้
End If

Call OpenConnect(sql)
sql = "Select * From RESDETAIL_VIEW Where Res_Budget_Year Like '%" & Request.QueryString("select1") & "%'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open sql,Conn,1,3

Nrecord=Rs.RecordCount
Rs.PageSize = pageLen
totalPage = Rs.PageCount
Rs.AbsolutePage = pageNo

If Rs.EOF Then%>
ไม่มีข้อมูลในตาราง !
<%Else%>

<table width="90%" border="0" align="center" cellpadding="0">
<tr>
<td colspan="7"><font size="3"><B>ผลการค้นหา</B></font></td>
<tr bgcolor="Silver">
<td width="50"><div align="center"><font size="2">ปีงบประมาณ</font></div></td>
<td width="1000"><div align="center"><font size="2">ประเภทโครงการ</font></div></td>
<td width="5000"><div align="center"><font size="2">ชื่อโครงการ</font></div></td>
<td width="200"><div align="center"><font size="2">คำนำหน้า</font></div></td>
<td width="500"><div align="center"><font size="2">ชื่อหัวหน้าโครงการ</font></div></td>
<td width="500"><div align="center"><font size="2">นามสกุล</font></div></td>
<td width="1000"><div align="center"><font size="2">แหล่งทุน</font></div></td></tr>

<%
recNo=1
Do While Not Rs.EOF and recNo <= pageLen%>

<tr<% if color=0 then %> bgcolor=#eeeeee <% color=1
else%>bgcolor=#fefefe<% color=0 end if %>> 
<td><div align="center"><font size="2"><%= Rs("Res_Budget_Year")%></font></div></td>
<td><font size="2"><%= Rs("TTyp_Type")%></font></td>
<td><font size="2"><%= Rs("Res_Name_th")%></font></td>
<td><font size="2"><%= Rs("Title_Faculty")%></font></td>
<td><font size="2"><%= Rs("Th_Name")%></font></td>
<td><font size="2"><%= Rs("Th_Surname")%></font></td>
<td><font size="2"><%= Rs("TTSB_Name")%></font></td></tr>

<%
recNo=recNo+1
Rs.MoveNext
Loop
//rs.close : Set rs=Nothing
Rs.close
Set Rs=Nothing
Call CloseConnect %>

<% end if %>
<tr><td colspan="7">

<br><br>
<p align="left"> <font color="#999999" size="2">จำนวน   <b><%=Nrecord%></b>  โครงการ<br>
ขณะนี้อยู่ที่หน้า  <b><%=pageNo%></b>  ในทั้งหมด  <b><%=totalPage%></b>  หน้า<br><br>

<% if cint(pageno) > 1 then %>

<a href="budgetyear.asp?pageNo=1">หน้าแรก</a> &nbsp; 
<a href="budgetyear.asp?pageNo=<%=pageNo-1%>">ย้อนกลับ</a>
&nbsp;
<% end if
if cint(pageno) < totalPage then %>

<a href="budgetyear.asp?pageNo=<%=pageNo+1%>">หน้าต่อไป</a>&nbsp; 
<a href="budgetyear.asp?pageNo=<%=totalPage%>">หน้าสุดท้าย</a>

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


ขอผู้รู้รบกวนช่วยดูให้นิดนะครับ
ขอขอบคุณล่วงหน้าครับ



Tag : ASP







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-08-25 16:18:31 By : nai View : 1174 Reply : 2
 

 

No. 1



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

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

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


แบ่งหน้าด้วย asp เขาใช้ rs.move recordIndex

สมมติ หน้านึงมี 10 record จะไปหน้า 3 ก็ (3 - 1) * 10

= rs.move 20

แล้วก็วนลูป rs.movenext ไปเรื่อยๆ ส่วนเงื่อนไขก็ check เอาเอง

วนลูป for ก็ได้แต่ห้ามเกิน eof






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-25 16:50:15 By : tungman
 


 

No. 2



โพสกระทู้ ( 2 )
บทความ ( 0 )



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


หรือครับ
แต่ทำไมเพจที่หนึ่งโชว์ข้อมูลเป็นหน้าและกดหน้า N ได้อ่ะครับ

ผมดูโค๊ดกระทู้ในเว็บนี้บางกระทู้
ผมคิดว่าปัญหาน่าจะอยู่ตรงเครื่องหมายคำถาม
ตอนลิงค์ไปหน้า N ของเพจที่สองตามโค๊ดข้างล่าง

ไม่รู้ผมคิดถูกหรือป่าว
ไงช่วยดูให้อีกทีนะครับ

ขอบคุณครับ

Code (ASP)
<% if cint(pageno) > 1 then %>
67. 
68.<a href="budgetyear.asp?pageNo=1 ? ">หน้าแรก</a> &nbsp;
69.<a href="budgetyear.asp?pageNo=<%=pageNo-1%> ? ">ย้อนกลับ</a>
70.&nbsp;
71.<% end if
72.if cint(pageno) < totalPage then %>
73. 
74.<a href="budgetyear.asp?pageNo=<%=pageNo+1%> ? ">หน้าต่อไป</a>&nbsp;
75.<a href="budgetyear.asp?pageNo=<%=totalPage%> ? ">หน้าสุดท้าย</a>
76. 
77.<% end if %>
78.<br><br>
79.กระโดดไปหน้า
80.<%for idx = 1 to totalPage %>
81.<a href="budgetyear.asp?pageNo=<%=idx%> ? ">
82.<% if idx=cint(pageno) then%>
83.<b><%=idx%></b>
84.<%else %>
85.<%=idx%>
86.<%end if%>
87.</a>&nbsp;
88.<%
89.next%>



ประวัติการแก้ไข
2010-08-26 14:02:25
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-08-26 14:01:03 By : nai
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : รบกวนช่วยดูโค๊ดการค้นหาแล้วแบ่งเป็นหน้าๆ ASP ให้หน่อยครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่