การทำระบบสมาชิกใน Access | ||
ข้อควรทราบ |
|
การเพิ่มสมาชิกใหม่ |
หัวข้อนี้จะใช้แฟ้มที่เกี่ยวข้อง 3 แฟ้มคือ /cgi-bin/member01.mdb และ /aspmbrad.htm และ /aspmbrad.asp 1. /aspmbrad.htm ทำหน้าที่ส่งค่า ผ่าน form ให้กับ aspmbrad.asp โดยส่งข้อมูลไป 5 เขตข้อมูล 2. /aspmbrad.asp ทำหน้าที่รับค่ามาจาก aspmbrad.htm แล้ว เพิ่มระเบียนใหม่ในแฟ้ม member01.mdb 3. /cgi-bin/member01.mdb แฟ้มที่รองรับข้อมูลใหม่ที่มีการเพิ่มเข้ามา Download แฟ้ม member01.mdb เพื่อนำไปทดสอบโปรแกรม ASP ที่เขียนในบทนี้ได้ และแฟ้มทั้งหมดที่ทดสอบ ผมเก็บที่ thaiall.webhostme.com แต่คำอธิบายบทเรียนเก็บที่ www.thaiall.com/asp/ |
ตัวอย่างฟอร์ม /aspmbrad.htm | Source code ของ /aspmbrad.htm |
เพิ่มข้อมูลสมาชิกใหม่ Click เรียกเฉพาะ form นี้ในหน้าต่างใหม่ |
<html><title>Add new member</title> <body bgcolor=#ffffdd><font face="microsoft sans serif"> เพิ่มข้อมูลสมาชิกใหม่<br> <form action=http://thaiall.webhostme.com/aspmbrad.asp method=post> ชื่อสมาชิก : <input type="text" name=name size=40><br> E-Mail : <input type="text" name=email size=40><br> ชื่อเว็บ : <input type="text" name=webname size=40><br> ที่อยู่เว็บ : <input type="text" name=address size=40 value="http://"><br> คำอธิบายเว็บ : <br><textarea rows=3 cols=40 name=describ></textarea><br> <input type=submit value="Add member"><input type=reset value=Reset> </form> </body></html> |
Source code ของโปรแกรมเพิ่มระเบียน /aspmbrad.asp |
<% set connNews = server.createobject("ADODB.Connection") connNews.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/member01.mdb") sql = "INSERT into member ( name, email, webname, address, describ ) SELECT " sql = sql & " '" & request.form("name") & "' as name, " sql = sql & " '" & request.form("email") & "' as email, " sql = sql & " '" & request.form("webname") & "' as webname, " sql = sql & " '" & request.form("address") & "' as address, " sql = sql & " '" & request.form("describ") & "' as describ; " set rsArticles = connNews.Execute(sql) connNews.close set connNews = nothing %> <body> <b>Add new member</b><hr> <a href=/aspmbrls.asp>Display last 10 members</a> <br>Back to [ <a href=/aspmbrad.htm>Add</a>, <a href=/aspmbrdl.htm>Delete</a>, <a href=/aspmbred.htm>Edit</a> ] </body> ดูเฉพาะ Source code เท่านั้น |
การลบสมาชิก |
หัวข้อนี้จะใช้แฟ้มที่เกี่ยวข้อง 3 แฟ้มคือ /cgi-bin/member01.mdb และ /aspmbrdl.htm และ /aspmbrdl.asp 1. /aspmbrdl.htm ทำหน้าที่ส่งค่า ผ่าน form ให้กับ aspmbrdl.asp โดยส่งข้อมูลไป 1 เขตข้อมูล คือ รหัสสมาชิก 2. /aspmbrdl.asp ทำหน้าที่รับค่ามาจาก aspmbrad.htm แล้ว เลือกลบระเบียนในแฟ้ม member01.mdb 3. /cgi-bin/member01.mdb แฟ้มนี้จะมีระเบียน ที่ตรงตามเงื่อนไข ถูกลบทิ้งไป Download แฟ้ม member01.mdb เพื่อนำไปทดสอบโปรแกรม ASP ที่เขียนในบทนี้ได้ และแฟ้มทั้งหมดที่ทดสอบ ผมเก็บที่ thaiall.webhostme.com แต่คำอธิบายบทเรียนเก็บที่ www.thaiall.com/asp/ |
ตัวอย่างฟอร์ม /aspmbrdl.htm | Source code ของ /aspmbrdl.htm |
ลบข้อมูลสมาชิก Click เรียกเฉพาะ form นี้ในหน้าต่างใหม่ |
<html><title>Delete member</title> <body bgcolor=#ffffdd><font face="microsoft sans serif"> ลบข้อมูลสมาชิก<br> <form action=http://thaiall.webhostme.com/aspmbrdl.asp method=post> รหัสสมาชิกที่ต้องการลบ : <input type="text" name=delid size="2"0><br> <input type=submit value="Delete member"><input type=reset value=Reset> </form> </body></html> |
Source code ของโปรแกรมลบระเบียน /aspmbrdl.asp |
<% set connNews = server.createobject("ADODB.Connection") connNews.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/member01.mdb") sql = "DELETE * FROM member WHERE (member.id= " & request.form("delid") & ");" set rsArticles = connNews.Execute(sql) connNews.close set connNews = nothing %> <body> <b>Delete new member</b><hr> <a href=/aspmbrls.asp>Display last 10 members</a> <br>Back to [ <a href=/aspmbrad.htm>Add</a>, <a href=/aspmbrdl.htm>Delete</a>, <a href=/aspmbred.htm>Edit</a> ] </body> ดูเฉพาะ Source code เท่านั้น |
การแก้ไขสมาชิก |
หัวข้อนี้จะใช้แฟ้มที่เกี่ยวข้อง 3 แฟ้มคือ /cgi-bin/member01.mdb และ /aspmbred.htm และ /aspmbred.asp 1. /aspmbred.htm ทำหน้าที่ส่งค่า ผ่าน form ให้กับ aspmbred.asp โดยส่งข้อมูลไป 6 เขตข้อมูล 2. /aspmbred.asp ทำหน้าที่รับค่ามาจาก aspmbred.htm แล้ว เขียนทับระเบียนที่รหัสตรงกันในแฟ้ม member01.mdb 3. /cgi-bin/member01.mdb แฟ้มที่รองรับข้อมูลใหม่ ที่จะถูกเขียนทับในระเบียนที่มีรหัสตรงกับในแฟ้ม Download แฟ้ม member01.mdb เพื่อนำไปทดสอบโปรแกรม ASP ที่เขียนในบทนี้ได้ และแฟ้มทั้งหมดที่ทดสอบ ผมเก็บที่ thaiall.webhostme.com แต่คำอธิบายบทเรียนเก็บที่ www.thaiall.com/asp/ |
ตัวอย่างฟอร์ม /aspmbred.htm | Source code ของ /aspmbred.htm |
แก้ไขข้อมูลสมาชิก (ไม่ว่าข้อมูลเก่าเก็บอะไร จะเอาข้อมูลใหม่นี้ ไปทับทันที) Click เรียกเฉพาะ form นี้ในหน้าต่างใหม่ |
<html><title>Edit member</title> <body bgcolor=#ffffdd><font face="microsoft sans serif"> แก้ไขข้อมูลสมาชิก<br> <form action=http://thaiall.webhostme.com/aspmbred.asp method=post> รหัสสมาชิก : <input type="text" name=id size="2"0> (ต้องมีอยู่ในฐานข้อมูลแล้ว)<br> ชื่อสมาชิก : <input type="text" name=name size=40><br> E-Mail : <input type="text" name=email size=40><br> ชื่อเว็บ : <input type="text" name=webname size=40><br> ที่อยู่เว็บ : <input type="text" name=address size=40 value="http://"><br> คำอธิบายเว็บ : <br><textarea rows=3 cols=40 name=describ></textarea><br> <input type=submit value="Edit member"><input type=reset value=Reset> </form> (ไม่ว่าข้อมูลเก่าเก็บอะไร จะเอาข้อมูลใหม่นี้ ไปทับทันที) </body></html> |
Source code ของโปรแกรมแก้ไขข้อมูล /aspmbred.asp |
<% set connNews = server.createobject("ADODB.Connection") connNews.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/member01.mdb") sql = "UPDATE member set " sql = sql & " member.name = '" & request.form("name") & "', " sql = sql & " member.email = '" & request.form("email") & "', " sql = sql & " member.webname = '" & request.form("webname") & "', " sql = sql & " member.address = '" & request.form("address") & "', " sql = sql & " member.describ = '" & request.form("describ") & "' " sql = sql & " Where member.id = " & request.form("id") & " ;" set rsArticles = connNews.Execute(sql) connNews.close set connNews = nothing %> <body> <b>Edit member</b><hr> <a href=/aspmbrls.asp>Display last 10 members</a> <br>Back to [ <a href=/aspmbrad.htm>Add</a>, <a href=/aspmbrdl.htm>Delete</a>, <a href=/aspmbred.htm>Edit</a> ] </body> ดูเฉพาะ Source code เท่านั้น |
การพิมพ์ข้อมูลสมาชิกล่าสุด 10 คน |
หัวข้อนี้จะใช้แฟ้มที่เกี่ยวข้อง 2 แฟ้มคือ /cgi-bin/member01.mdb และ /aspmbrls.asp 1. /aspmbrls.asp ทำหน้าที่อ่านข้อมูลสมาชิก 10 คนสุดท้ายมาแสดง เท่านั้น 2. /cgi-bin/member01.mdb แฟ้มที่ให้ข้อมูล เพื่อนำไปทำรายงาน ของสมาชิก Download แฟ้ม member01.mdb เพื่อนำไปทดสอบโปรแกรม ASP ที่เขียนในบทนี้ได้ และแฟ้มทั้งหมดที่ทดสอบ ผมเก็บที่ thaiall.webhostme.com แต่คำอธิบายบทเรียนเก็บที่ www.thaiall.com/asp/ |
Source code ของโปรแกรมแสดงข้อมูลสมาชิก /aspmbrls.asp |
<% thaialldbaccess97="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/cgi-bin/member01.mdb") Set rec = Server.CreateObject("ADODB.Recordset") sql = "select * from member order by member.id DESC;" rec.Open sql, thaialldbaccess97 %> <html><head><title>รายชื่อสมาชิกใหม่ 10 คน</title></head> <body bgcolor="#ffffdd"><font face="microsoft sans serif"> รายชื่อสมาชิกใหม่ 10 คน (Display last 10 members)<hr> <ul> <% i = 1 if Not rec.eof then rec.MoveFirst do while Not rec.eof and i <= 10 response.write( "<b>รหัสสมาชิก</b> : " & rec("id") &"<br>") response.write( "<b>ชื่อสมาชิก</b> : " & rec("name") &"<br>") response.write( "<b>E-mail</b> : " & rec("email") &"<br>") response.write( "<b>ชื่อเว็บ</b> : " & rec("webname") &"<br>") response.write( "<b>ที่อยู่เว็บ</b> : " & rec("address") &"<br>") response.write( "<b>คำอธิบายเว็บ</b> : " & rec("describ") &"<hr>") rec.MoveNext i = i + 1 loop %> </ul> </body></html>Click ที่นี่ เพื่อแสดงข้อมูลสมาชิกล่าสุด 10 คน ดูเฉพาะ Source code เท่านั้น |
แบบฝึกหัด |
|