ยินดีต้อนรับคุณ, บุคคลทั่วไป กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน

เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น

ThaiSEOBoard.comพัฒนาเว็บไซต์Programmingคำถาม ASP ครับช่วยหน่อย
หน้า: [1]   ลงล่าง
พิมพ์
ผู้เขียน หัวข้อ: คำถาม ASP ครับช่วยหน่อย  (อ่าน 971 ครั้ง)
0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้
Azsumi
ก๊วนเสียว
*

พลังน้ำใจ: 1
ออฟไลน์ ออฟไลน์

กระทู้: 230



ดูรายละเอียด
« เมื่อ: 06 พฤษภาคม 2008, 22:32:48 »



อันนี้่เป็นรูป database ครับ
ส่วนอันนี้เป็น url
โค๊ด:
http://student.nu.ac.th/ice/thaicar
คือจะให้เลือกจากตัวเลือก เช่น สีรถ แล้วใส่ ว่้า สีขาว ให้มันแสดงเรียกจาก database
อัีนนี้เป็น code เก่าครับที่ทำไว้แล้ว
โค๊ด:
<form id="form1" name="form1" method="post" action="result.asp">
                                            <div align="center">&#3588;&#3657;&#3609;&#3627;&#3634;&#3592;&#3634;&#3585;
                                                <select name="listmenu" id="listmenu">
                                                  <option value="name">ชื่อรถ</option>
                                                  <option value="type">ประเภทรถ</option>
                                                  <option value="color">สีรถ</option>
                                                  <option value="price">ราคา</option>
                                                  <option value="date">จำนวนวันที่เช่า</option>
                                                  <option value="amount">จำนวนรถที่ว่างให้เช่า</option>
                                                </select>
                                                <input name="keyword" type="text" id="keyword" value="<%=Request.Form("keyword")%>" />
                                                <input name="Submit2" type="submit" id="Submit2" value="ค้นหา" />
                                            </div>
                                            <label>
                                            <div align="center"></div>
                                            </label>
                                            <div align="center"><br />
                                                <%
if Request.Form("keyword")=""   then
Response.write("<br>&#3585;&#3619;&#3640;&#3603;&#3634;&#3585;&#3619;&#3629;&#3585; Keyword &#3648;&#3614;&#3639;&#3656;&#3629;&#3588;&#3657;&#3609;&#3627;&#3634;<hr>")
else
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database/thaicar.mdb"),"" , ""
sql ="Select * From thaicar where   name  like '%"&Request.Form("keyword")&"%'"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
%>
                                              &#3652;&#3617;&#3656;&#3617;&#3637;&#3586;&#3657;&#3629;&#3617;&#3641;&#3621;&#3651;&#3609;&#3605;&#3634;&#3619;&#3634;&#3591; !
                                              <%Else%>
                                            </div>
                                            <table width="100%" border="1">
                                              <tr bgcolor="Silver">
                                                <td>เลขทะเบียนรถ</td>
                                                <td>ชื่อรถ</td>
                                                <td>ประเภทรถ</td>
                                                <td>สีรถ</td>
                                                <td>ราคาเช่า/วัน</td>
                                                <td>จำนวนรถที่ว่าง</td>
                                                <td>จำนวนวันที่ให้เช่า</td>
                                              </tr>
                                              <% While Not Rs.EOF%>
                                              <tr>
                                                <td><%= Rs("Id")%></td>
                                                <td><%= Rs("name")%></td>
                                                <td><%= Rs("type")%></td>
                                                <td><%= Rs("color")%></td>
                                                <td><%= Rs("price")%> บาท </td>
                                                <td><%= Rs("amount")%> คัน </td>
                                                <td><%= Rs("date")%> วัน </td>
                                              </tr>
                                              <% Rs.MoveNext
Wend
Rs.Close
Conn.Close
End If
%>
                                            </table>
                                            <%
end if
%>
                                        </form>
ขอบคุณครับ
บันทึกการเข้า

Azsumi
ก๊วนเสียว
*

พลังน้ำใจ: 1
ออฟไลน์ ออฟไลน์

กระทู้: 230



ดูรายละเอียด
« ตอบ #1 เมื่อ: 06 พฤษภาคม 2008, 22:39:57 »

ขุดหน่อยงับ  Kiss
บันทึกการเข้า

Azsumi
ก๊วนเสียว
*

พลังน้ำใจ: 1
ออฟไลน์ ออฟไลน์

กระทู้: 230



ดูรายละเอียด
« ตอบ #2 เมื่อ: 07 พฤษภาคม 2008, 01:34:25 »

ช่วยหน่อยครับ  Cry
บันทึกการเข้า

chapicha
ก๊วนเสียว
*

พลังน้ำใจ: 3
ออฟไลน์ ออฟไลน์

กระทู้: 264



ดูรายละเอียด เว็บไซต์
« ตอบ #3 เมื่อ: 07 พฤษภาคม 2008, 10:06:45 »

ให้ทำการ check ค่าของ listmenu ด้วยครับ
ตอนนี้ท่าน check แต่ค่าของ keyword แค่อย่างเดียว

ถ้า listmenu ส่งค่้า color มาก็ให้  sql = .... where color = xxxx
แต่ถ้า listmenu ส่งค่า price มาก็ให้ sql  = ... where price = xxxx
ถ้า listmenu ส่งค่้า amount มาก็ให้  sql = .... where amount = xxxx

จากนั้นก็ค่อย connect database แล้วเอา sql ด้านบนไปเรียกข้อมูลจาก database อีกที



บันทึกการเข้า
Azsumi
ก๊วนเสียว
*

พลังน้ำใจ: 1
ออฟไลน์ ออฟไลน์

กระทู้: 230



ดูรายละเอียด
« ตอบ #4 เมื่อ: 09 พฤษภาคม 2008, 21:21:03 »

ให้ทำการ check ค่าของ listmenu ด้วยครับ
ตอนนี้ท่าน check แต่ค่าของ keyword แค่อย่างเดียว

ถ้า listmenu ส่งค่้า color มาก็ให้  sql = .... where color = xxxx
แต่ถ้า listmenu ส่งค่า price มาก็ให้ sql  = ... where price = xxxx
ถ้า listmenu ส่งค่้า amount มาก็ให้  sql = .... where amount = xxxx

จากนั้นก็ค่อย connect database แล้วเอา sql ด้านบนไปเรียกข้อมูลจาก database อีกที




ทำไงครับ
ช่วยดูcodeนี้ที
โค๊ด:
              <form id="form1" name="form1" method="post" action="index.asp">
                            <div align="center">&#3588;&#3657;&#3609;&#3627;&#3634;&#3592;&#3634;&#3585;
                                <select name="fields">
                                  <option value="name">ชื่อรถ</option>
                                  <option value="type">ประเภทรถ</option>
                                  <option value="color">สีรถ</option>
                                  <option value="price">ราคา</option>
                                  <option value="date">จำนวนวันที่เช่า</option>
                                  <option value="amount">จำนวนรถที่ว่างให้เช่า</option>
                                </select>
                                <input name="keyword" type="text" id="keyword" value="<%=Request.Form("keyword")%>" />
                                <input name="Submit2" type="submit" id="Submit2" value="ค้นหา" />
                            </div>
                            <label>
                            <div align="center"></div>
                            </label>
                            <div align="center"><br />
                                <%
keyword=Request.Form("keyword")
if Request.Form("keyword")=""   then
Response.write("<br>&#3585;&#3619;&#3640;&#3603;&#3634;&#3585;&#3619;&#3629;&#3585; Keyword &#3648;&#3614;&#3639;&#3656;&#3629;&#3588;&#3657;&#3609;&#3627;&#3634;<hr>")
else
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database/thaicar.mdb"),"" , ""
sql ="Select * From thaicar where  name like '%"&keyword&"%'"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
%>
บันทึกการเข้า

mars
บุคคลทั่วไป
« ตอบ #5 เมื่อ: 09 พฤษภาคม 2008, 22:30:46 »

sql ="Select * From thaicar where  " & fields & " like '%"&keyword&"%'"
บันทึกการเข้า
Azsumi
ก๊วนเสียว
*

พลังน้ำใจ: 1
ออฟไลน์ ออฟไลน์

กระทู้: 230



ดูรายละเอียด
« ตอบ #6 เมื่อ: 09 พฤษภาคม 2008, 22:55:39 »

sql ="Select * From thaicar where  " & fields & " like '%"&keyword&"%'"
ขอบคุณครับได้เลย  Smiley
บันทึกการเข้า

หน้า: [1]   ขึ้นบน
พิมพ์