Guest Book
โดย: สุรัตน์ บัณฑิตลักษณะ
ที่มา: www.thaiasp.net
 
     ผมคิดว่า Guest Book เป็นอะไรที่เขียนไม่ยากเลยครับ แล้วก็เหมาะสำหรับการฝึกเขียน ASP ด้วย ประกอบกับ Guest Book มีอยู่ได้ในทุกๆ เว็บ ผมจึงคิดว่า บทความนี้น่าจะเป็นประโยชน์ อย่างน้อยก็ให้เรามี Guest Book เอาไว้ใช้กัน
สิ่งที่ต้องตระเตรียมกันก่อน     
1. ฐานข้อมูล ซึ่งจะขาดซะไม่ได้เลยนะครับ สร้างตาราง MS Access ตามรูปข้างล่างนี้ครับ
ฐานข้อมูลนี้ตั้งชื่อตารางว่า Guest และเก็บอยู่ในไฟล์ชื่อ guestbook.mdb นะครับ ขี้เกียจทำก็ download ที่นี่ครับ
2.ไฟล์ที่เราจะใช้ใน guestbook มีอยู่สองไฟล์ครับ คือ
- ไฟล์ viewguest.asp เป็นไฟล์หลักที่ทำหน้าที่ในการแสดงข้อมูลที่อยู่ใน guest book ทั้งหมด รวมไปถึงที่ตอนท้ายของไฟล์นี้จะมีส่วนที่ให้กรอกข้อความลง guestbook ด้วย
- ไฟล์ addguest.asp ทำหน้าที่ในการจัดเก็บข้อความที่ผู้ลงชื่อใน guestbook กรอกลงในไฟล์ viewguest.asp เพื่อเก็บลงฐานข้อมูล
  
ไฟล์หลัก viewguest.asp

<!--ติดต่อฐานข้อมูล-->
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver
      (*.mdb)};DBQ="&Server.mappath("guestbook.mdb")
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "Guest",conn
Do While Not rs.EOF%>
<!--จบการติดต่อฐานข้อมูล-->
<!--แสดงข้อความทั้งหมดใน GuestBook-->

<table width="90%" border="1">
<tr bgcolor="eeeeee">
      <td><%=rs("GNote")%> </td>
</tr>
<tr align="right" bgcolor="cccccc">
      <td>จากคุณ <%=rs("GName")%> อีเมล <%=rs("GEmail")%>
      วันที่ <%=rs("GDate")%></td>
</tr>
</table><br>
<%rs.MoveNext
Loop
rs.Close
conn.Close%>

<!--จบการแสดงข้อความทั้งหมดใน GuestBook-->
<!--ฟอร์มรับข้อความ-->
<hr>
<form action="addguest.asp" method="post">
<table width="90%" border="0">
<tr>
      <td width="10%"> ชื่อ :</td>
      <td width="90%"> <input type="text" name="name"></td>
</tr>
<tr>
      <td> อีเมล :</td>
      <td> <input type="text" name="email"> </td>
</tr>
<tr>
      <td>ข้อความ :</td>
      <td> <textarea name="note"> </textarea>
      <input type="submit" name="Submit" value="Submit"> </td>
</tr>
</table>
</form>
<!--จบฟอร์มรับข้อความ-->

ไฟล์ addguest.asp ทำหน้าที่เพิ่มข้อความ
ไฟล์นี้เอาไว้จัดการเก็บข้อมูลที่ post เข้ามาลงฐานข้อมูล

<!--ติดต่อฐานข้อมูล-->
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver
      (*.mdb)};DBQ="&Server.mappath("guestbook.mdb")
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open "Guest",conn,1,3
rs.AddNew
rs("GName")=Request("Name")
rs("GEmail")=Request("Email")
rs("GNote")=Request("Note")
rs("GDate")=Now
rs.UpDate
rs.Close
conn.Close%>
<!--จบการติดต่อฐานข้อมูล-->
ขอบคุณครับที่ฝากข้อความลงใน GuestBook
ผลจากการเรียกใช้งาน
กรุณาคลิกที่นี่ เพื่อตัวอย่างการทำงานของไฟล์เหล่านี้
Download ตัวอย่าง Source Code ทั้งหมด
 
บทความที่เกี่ยวข้อง Guest Book กับText file

Home | ASP Board | Coldfusion Board | Source Code | Lesson(beginner)
Lesson(Professional) l My Jobs | E-card |About Us


Copyright © 2000 www.ThaiASP.net All rights reserved.