Forgot Password ??

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

	Registered : 109,028

HOME > ASP > ASP Forum > จะเขียนตรงตำแหน่งไหนครับ ถึงจะถูกต้อง คือว่าผมกะลังหัดเขียน asp อยู่อะครับ ไปเจอตัวอย่างสองตัวอย่าง

จะเขียนตรงตำแหน่งไหนครับ ถึงจะถูกต้อง คือว่าผมกะลังหัดเขียน asp อยู่อะครับ ไปเจอตัวอย่างสองตัวอย่าง

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

Guest

คือว่าผมกะลังหัดเขียน asp อยู่อะครับ ไปเจอตัวอย่างสองตัวอย่าง ว่าจะเอามารวมกันคือ
1. แบ่งการแสดงผลเป็นหน้า
รวมกับ
2. สืบค้นครับ

รวมกันก็จะเป็น "สืบค้นได้แล้วก็มาแบ่งเป็นหน้าอีกที หน้าละ 5"
ปัญหาผมคือว่า
1. ถ้าไม่ได้พิมพ์ keyword ให้แจ้งข้อความ "ให้กลับไปกรอกซะ..." ตอนแรกที่ผม กด ค้นหา โดยไม่ได้ใส่ keyword มันก็ถูกตามเงื่อนไข ครับ แต่ว่า ถ้าใส่ keyword แล้ว กด ค้นหา มันก็เห็นถูกต้องตามเงื่อนไขเช่นกัน แต่ทว่า พอไปคลิก คำว่า หน้าแรก หรือว่าหน้าสุดท้าย หรือว่าตัวเลขใดๆ ดูนะครับมันก็ดันไปโชว์คำว่า "ให้กลับไปกรอกซะ..." เหมือนเดิมครับ ดู code เลยครับ ( มีสองโค้ดนะครับ แฮ่ๆๆๆ ex10_09.asp ไปเรียก ex10_108.asp ครับ ปัญหาผมอยู่ที่ โค๊ด ex10_108.asp ครับ

ex10_09.asp มีดังนี้

<font face="ms sans serif" size="4"><strong> ระบบการสืบค้นข้อมูลจากฐานข้อมูล
iweb1 </strong></font><br><br>
<form action="ex10_108.asp" method="post">
<table>
<tr><td><font face="MS sans Serif" size="3"><strong>ใส่ค่าที่ต้องการสืบค้น</font></strong></td>
<td><input type="text" name="keyword" size="20"><br></td></tr>
<tr><td><font face="Ms Sans Serif" size="3"><Strong>เลือกฟิวด์ที่ต้องการ</font></strong>
<td><select name="option1" size="1">
<option value="Title" selected>Title</option>
<option value="Author">Author</option>
<option value="Barcode">Barcode</option>
</select>
</td>
</tr>
</table>
<br><br><br><br><input type=Submit value="search">
<input type=Reset value="Reset">
</form>
มีแค่นี้ครับ ต่อที่ ex10_108.asp เลยนะครับ

ex10_108.asp
<%

Gopage=Request.Querystring("Page")
if Gopage="" then
Gopage=1
end if
Pagesize=Request.Querystring("pagesize")
pagesize=5

%>

<%
keyword=Request.form("keyword")
Option1=Request.form("Option1")

set objDB=Server.createobject("adodb.connection")
ObjDB.open "bookzidane3","",""

if option1="Title" then
sql="select * from bookzidane2 where title like'%"&keyword&"%' "
elseif Option1="Author" then
sql="select * from bookzidane2 where Author like '%"&keyword&"%' "
else
sql="select * from bookzidane2 where Barcode like '%"&keyword&"%' "
end if

set ObjRS=Server.CreateObject("Adodb.RecordSet")
ObjRS.open sql, ObjDB, 1, 3

On Error Resume Next

ObjRS.Movefirst
ObjRS.Pagesize=Pagesize
Maxcount=Cint(ObjRS.Pagecount)
ObjRS.Absolutepage=Gopage
Recs=1
%>

<%
if objRS.EOF then
'ถ้าไม่พบข้อมูลให้ แสดงผลคำว่า ไม่พบข้อมูล
%>

<font size=3 face="ms sans serif"><b>ไม่พบข้อมูล
<br>
<br>
<a href="ex10_09.asp">กลับไปสืบค้นใหม่</a></b></font>

<% elseif request.form("keyword")="" then%>
<font size=6 color=red face="ms sans serif"><b>ไม่กรอกข้อมูล กูจะรู้ได้ไงฟะ กลับไปกรอกเดี๋ยวนี้</b></font>
<br>
<font size=4 color=green face="ms sans serif"><a href="ex10_09.asp">ถ้าจะกลับไปกรอกก็คลิกตรงนี้ซะ</a></font>

<%
Response.end
end if
%>

<html>
<head>
<title>Database Paging</title>
</head>
<body Bgcolor="Fffffff" Text="000000" Link="0000ff" Vlink="800080" Alink="Ff0000">
<center><font size=6 face="ms sans serif" color=red><b>แสดงผลการสืบค้นหา</b></font></center>
<Table width=100% Border=1 Align=Center Cellspacing=0 Cellpadding=0><tr>
<tr Bgcolor=Skyblue>
<%'พิมพ์ส่วนหัวตาราง%>
<th>ลำดับที่</th>
<th>Barcode</th>
<th>Title</th>
<th>Author</th>
<th>Price</th>
<th>Type</th>
<th>Year</th>
</tr>

<%Do While not Objrs.Eof And Recs<=Objrs.Pagesize%>

<%'เงื่อนไขเพื่อเปลี่ยนสีแบ็คกราวนด์ของเซลล์ในตาราง%>
<%
if bg="#Eeeeee" then bg="#FFffff" Else Bg="Eeeeee" end if
%>

<%'เริ่มเขียนครั้งละ 1 เรกคอร์ดลงในตารางเพื่อแสดงผล %>
<tr Bgcolor=<%=BG%> Valign=Top>
<td Align=center><%=((Gopage-1)*pagesize)+Recs%></td>
<td Align=Right><%=ObjRS("barcode")%></td>
<td Align=Right><%=ObjRS("title")%></td>
<td Align=Right><%=ObjRS("author")%></td>
<td Align=Right><%=ObjRS("price")%></td>
<td Align=Right><%=ObjRS("type")%></td>
<td Align=Right><%=ObjRS("Year")%></td>

<%
Recs=Recs+1
ObjRS.Movenext
'ย้ายไปเรกคอร์ดต่อไป
Loop
Objrs.close
Set ObjRS=Nothing
%>

<tr><td colspan=8 bgcolor="c0c0c0">
page<%=Gopage%>/<%=Maxcount%>

<%
pad=""
'รับค่าชื่อสคริปต์เพื่อนำมาใช้เป็นส่วนหนึ่งของการอ้างอิง
Scriptname=Request.ServerVariables("Script_name")
Response.write"<br>"
Response.write"<br>"
Response.write"["
for n=1 to Maxcount
if n>=10 then
pad=""
End if
'กำหนดหมายเลขหน้าเพื่ออ้างอิงต่อไป
Ref="<A href=" &scriptname& "?page=" &n& "&pagesize=" &pagesize& ">" &pad&N& "</a>&nbsp:&nbsp:"
Response.write"" &Ref& ""
next
Response.write "]"
%>

<%
if cint(gopage) > 1 then %>
<br>
<a href="ex10_108.asp?page=1">หน้าแรก</a> <a href="ex10_108.asp?page=<%=gopage-1%>">ย้อนกลับ</a>
 
<% end if
if cint(gopage) < maxcount then %>
<a href="ex10_108.asp?page=<%=gopage+1%>">หน้าต่อไป</a>  <a href="ex10_108.asp?page=<%=maxcount%>">หน้าสุดท้าย</a>
<%
end if
%>

</table>
</body>
</html>

<%
if cint(gopage) > 1 then %>
<br>
<a href="ex10_108.asp?page=1">หน้าแรก</a> <a href="ex10_108.asp?page=<%=gopage-1%>">ย้อนกลับ</a>
 
<% end if
if cint(gopage) < maxcount then %>
<a href="ex10_108.asp?page=<%=gopage+1%>">หน้าต่อไป</a>  <a href="ex10_108.asp?page=<%=maxcount%>">หน้าสุดท้าย</a>
<%
end if
%>

จักเป็นพระคุณอย่างสูง สำหรับผู้ที่ให้คำแนะนำกับผม

Tag : - - - -

Date : 15 มิ.ย. 2548 00:37:21

By : zidane

View : 2348

Reply : 0

ค้นหาข้อมูล

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

Re : จะเขียนตรงตำแหน่งไหนครับ ถึงจะถูกต้อง คือว่าผมกะลังหัดเขียน asp อยู่อะครับ ไปเจอตัวอย่างสองตัวอย่าง

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

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

Load balance : Server 05

Registered : 109,028

ค้นหาข้อมูล

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

Notice