| การทำระบบสมาชิกใน 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 เท่านั้น |
| แบบฝึกหัด |
|