| การเขียน Search engine อย่างง่าย | |
| ข้อควรทราบ |
|
| การเขียน html ส่ง keyword |
|
โปรแกรมนี้จะสร้าง form สำหรับส่งค่า 1 ค่าคือ keyword ไปให้โปรแกรม aspsrch1.asp จากนั้นเป็นหน้าที่ของ aspsrch1.asp ที่ต้องสืบค้นใน /cgi-bin/search.mdb ต่อไป |
| ตัวอย่างฟอร์ม /aspsrch1.htm | Source code ของ /aspsrch1.htm |
|
สืบค้นเว็บตามชื่อหรือคำอธิบาย Click เรียกเฉพาะ form นี้ในหน้าต่างใหม่ |
<html><title>สืบค้นเว็บ ตามชื่อหรือคำอธิบาย</title> <body bgcolor=#ffffdd><font face="microsoft sans serif"> สืบค้นเว็บตามชื่อหรือคำอธิบาย<br> <form action=http://thaiall.webhostme.com/aspsrch1.asp method=post> คำที่ต้องการค้นหา : <input type="text" name=keyword size="2"0> <br> <input type=submit value="Search on keyword"> <input type=reset value=Reset> </form> </body></html> |
| โปรแกรม asp ที่ทำหน้าที่ค้นหา และแสดงผล |
|
โปรแกรมนี้จะใช้ SQL เลือกข้อมูลจาก search.mdb ในตาราง webdat โดยเลือกที่มีค่าจากตัวแปล keyword อยู่เขตข้อมูล name หรือ describ |
| Source code ของ /aspsrch1.asp |
<%
thaialldbaccess97="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/search.mdb")
Set rec = Server.CreateObject("ADODB.Recordset")
sql = "select * from webdat "
sql = sql & "where (webdat.name like '%" & request.form("keyword") & "%') or "
sql = sql & "(webdat.describ like '%" & request.form("keyword") & "%');"
rec.Open sql, thaialldbaccess97
%>
<html><head><title>ผลลัพธ์การสืบค้น (Search engine)</title></head>
<body bgcolor="#ffffdd"><font face="microsoft sans serif">
<b>ผลลัพธ์การสืบค้น (Search engine)</b><br>
สืบค้นจาก ชื่อเว็บ หรือ คำอธิบายเว็บ<hr>
<ul>
<%
if Not rec.eof then rec.MoveFirst
do while Not rec.eof
response.write( "<b>ชื่อเว็บ</b> : " & rec("name") & " - ")
response.write( "<b>ที่อยู่เว็บ</b> : <a href=http://" )
response.write( rec("address") & ">" & "http://" & rec("address") & "</a> - " )
response.write( "<b>รหัสเว็บ</b> : " & rec("id") &"<br>")
response.write( "<b>คำอธิบายเว็บ</b> : " & rec("describ") &"<hr>")
rec.MoveNext
loop
%>
</ul>
</body></html>
Click here to open this source code in new windows
|
| การเขียน html เพิ่ม ลบ แก้ไข ข้อมูล |
|
โปรแกรมชุดนี้ใช้หลักการจากบทเรียน การทำระบบสมาชิกธรรมดา แต่เพิ่มส่วนของตัวแปรสำหรับเลือกการประมวลผล คือ typeupdate หากท่านจะนำไปใช้ก็สามารถแยกส่วนทำงานออกจากกันได้ แต่โปแกรมก็ยังสามารถใช้โปรแกรมเดียวได้อยู่ |
| ตัวอย่างฟอร์ม /aspsrch2.htm | Source code ของ /aspsrch2.htm |
|
For เพิ่ม ลบ และแก้ไข เพิ่มเว็บใหม่ ลบเว็บ แก้ไขเว็บ Click เรียกเฉพาะ form นี้ในหน้าต่างใหม่ |
<html><title>For add del edit</title> <body bgcolor=#ffffdd><font face="microsoft sans serif"> <b>For เพิ่ม ลบ และแก้ไข</b><hr> เพิ่มเว็บใหม่<br> <form action=http://thaiall.webhostme.com/aspsrch2.asp method=post> ชื่อเว็บ : <input type="text" name=name size=40><br> ที่อยู่เว็บ : http://<input type="text" name=address size=40><br> คำอธิบายเว็บ : <br><textarea rows=3 cols=40 name=describ></textarea><br> <input type=hidden name=typeupdate value="add"> <input type=submit value="Add web"><input type=reset value=Reset> </form><hr> ลบเว็บ<br> <form action=http://thaiall.webhostme.com/aspsrch2.asp method=post> รหัสเว็บ : <input type="text" name=delid size="2"0> (ต้องมีอยู่ในฐานข้อมูลแล้ว)<br> <input type=hidden name=typeupdate value="delete"> <input type=submit value="Delete web"><input type=reset value=Reset> </form><hr> แก้ไขเว็บ<br> <form action=http://thaiall.webhostme.com/aspsrch2.asp method=post> รหัสเว็บ : <input type="text" name=id size="2"0> (ต้องมีอยู่ในฐานข้อมูลแล้ว)<br> ชื่อเว็บ : <input type="text" name=name size=40><br> ที่อยู่เว็บ : http://<input type="text" name=address size=40><br> คำอธิบายเว็บ : <br><textarea rows=3 cols=40 name=describ></textarea><br> <input type=hidden name=typeupdate value="edit"> <input type=submit value="Edit web"><input type=reset value=Reset> </form> </body></html> |
| โปรแกรม asp ที่ทำหน้าที่ เพิ่ม ลบ แก้ไข |
|
โปรแกรมชุดนี้ใช้หลักการจากบทเรียน การทำระบบสมาชิกธรรมดา แต่เพิ่มส่วนของตัวแปรสำหรับเลือกการประมวลผล คือ typeupdate |
| Source code ของ /aspsrch2.asp |
<%
set connNews = server.createobject("ADODB.Connection")
connNews.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/search.mdb")
if request.form("typeupdate") = "add" then
sql = "INSERT into webdat ( name, address, describ ) SELECT "
sql = sql & " '" & request.form("name") & "' as name, "
sql = sql & " '" & request.form("address") & "' as address, "
sql = sql & " '" & request.form("describ") & "' as describ; "
end if
'
if request.form("typeupdate") = "delete" then
sql = "DELETE * FROM webdat WHERE (webdat.id= " & request.form("delid") & ");"
end if
'
if request.form("typeupdate") = "edit" then
sql = "UPDATE webdat set "
sql = sql & " webdat.name = '" & request.form("name") & "', "
sql = sql & " webdat.address = '" & request.form("address") & "', "
sql = sql & " webdat.describ = '" & request.form("describ") & "' "
sql = sql & " Where webdat.id = " & request.form("id") & " ;"
end if
'
set rsArticles = connNews.Execute(sql)
connNews.close
set connNews = nothing
%>
<body>
<%=request.form("typeupdate")%> complete
</body>
Click here to open this source code in new windows
|
| แบบฝึกหัด |
|