HankeR: 2011

วันศุกร์ที่ 9 ธันวาคม พ.ศ. 2554

นายบุญฤทธิ์ ตุ้มพงค์ 52031390229

เกี่ยวกับ Sports

ตารางแข่งขันฟุตบอลประจำสัปดาห์

เกี่ยวกับ ASP

เกี่ยวกับ Program & Utillity

วันเสาร์ที่ 3 ธันวาคม พ.ศ. 2554

นายบุญฤทธิ์ ตุ้มพงค์ 52031390229

เกี่ยวกับ Program & Utillity

ตารางแข่งขันฟุตบอลประจำสัปดาห์

เกี่ยวกับ ASP

เกี่ยวกับ Program & Utillity

All Program
Key Nod32

การนำเอาข้อมูลที่มีมาแสดงใน Dropdown

สิ่งที่เราต้องมี
1.Database = stu
2.Table Name = fac

หมายเหตุ : ที่รูปสามารถคลิ๊กดูเพื่อขยายได้ครับ

ขั้นตอน
1.สร้างไฟล์ชื่อ testdd.asp

2.สร้างตารางเหมือนภาพด้านล่าง และ Insert >>> Form Field >>> Drop Down Menu
และสร้างชื่อ Drop Down ว่า fac จากนั้น ok

3.เปิดไฟล์ testdd.asp ด้วยโปรแกรม Edit Plus

4.เมื่อเปิดไฟล์มาแล้วให้นำโค้ดนี้ไปไว้ด้านบนสุด

<%
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=stu;UID=root;PWD=;OPTION=3"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from fac order by namefac" , conn,1,3
%>

5.มองหา <select> และ </select> จากนั้นเว้นที่ว่างเอาไว้พอประมาณครับ

ุ6.จากนั้นนำโค้ดนี้ไปว่างด้านล่าง <select> นะครับ

<%Do While Not rs.eof%>

rs.movenext

Loop

**** <%Do While Not rs.eof%> คือคำสั่งให้ rs ค้นหาข้อมูลจาดตาราง fac จนถึง Record สุดท้ายครับ

หรือเรียกว่า Eof (End Of File)

**** <option value="<%=rs("idfac")%>"> option value คือ หากเราเลือกก็จะเก็บค่าอะไรไว้

ซึ่งตรงนี้ <%=rs("idfac")%> ก็คือการเก็บค่า idfac จาดตาราง fac

**** <%=rs("namefac")%> จะแสดงอะไร ตรงนี้ก็คือการแสดง filed "namefac" จากตาราง fac ทั้งหมดนั้นเอง

****<% rs.movenext Loop %> คือการให้ rs ค้นหาและวนลูปกลับไปคำสั่ง Do While อีกรอบ

วิธีใส่คำสั่ง

7.จากนั้นกด Save และกลับมาเปิดที่ Namo อีกรอบจะได้รูปแบบนี้

8.ลองรันดูครับจะได้ดรอปดาวที่เป็นรายชื่อที่ตรงกับข้อมูลที่มีอยู่ในตาราง fac นะครับ

ปล.หาต้องการหลาย ๆ Drop Down ก็ใช้ตัวแปลให้โดยเปลี่ยน rs เป็น rs2, rs3, rs4 ไปเรื่อย ๆ ในกรณีที่จะต้องใช้หลาย ๆ Drop Down ครับ

วันพฤหัสบดีที่ 24 พฤศจิกายน พ.ศ. 2554

ASP การลบข้อมูล

1.สร้างไฟล์ชื่อว่า del.asp ขึ้นมาแล้วก็สร้างตารางให้เหมือนกับภาพด้านล่าง

2.พิมพ์โค้ดเพื่อดึงข้อมูลจาก MySQL คือ

SQL="SELECT * FROM student"

Set Conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=project;UID=root;PWD=;OPTION=3"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open SQL, conn,1,3

i=1

Do While Not rs.eof

อธิบายโค้ด SQL="SELECT * FROM student" ดึงข้อมูลทั้งหมดจากตาราง student

Driver};SERVER=localhost;DATABASE=project;UID=root;PWD=;OPTION=3"
อย่าลืมแก้ไข DATABASE ด้วยนะ

3.พิมพ์ข้อความการ วนรอบหาข้อมูล ไว้ด้านบน </table>

i=i+1

rs.movenext

loop

4.ต่อมาเป็นการนำค่าต่าง ๆ ออกมาแสดงเราจะพิมพ์ข้อความลงไปแทนที่ dddd โดยการพิมพ์คำสั่ง

<%=rs("ชื่อฟิลด์ที่ต้องการแสดง")%>

โค้๊ดเก่า

โค้ดใหม่

การตรวจสอบด้วย namo

5.กลับมาที่ edit plus ทำการเพิ่มโค้ดแทน ddd ในช่องลบ คือ

</FORM>

ขั้นแรก

ขั้นสอง

ุ6.สร้างไฟล์ delout.asp ขึ้นมา แล้วเอาโค้ดนี้ไปใส่ครับ จากนั้นก็ save

เป็นอันเสร็จเรียบร้อยครับ

SQL2="delete from student where idstd='"+request("idstd")+"';"

Set Conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=project;UID=root;PWD=;OPTION=3"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open SQL2, conn,1,3

response.redirect("del.asp")

อธิบาย SQL2="delete from student where idstd='"+request("idstd")+"';"

ลบ record จากตาราง student เมื่อค่า idstd(จาก form) ตรงกับค่า idstd(จาก MySQL)

1.ที่จะต้องแก้ก็คือ student (student คือชื่อตาราง)

2.ที่จะต้องแก้ก็คือ idstd แก้ให้เป็นชื่อ id ที่ตรงจาก MySQL

Driver};SERVER=localhost;DATABASE=project;UID=root;PWD=;OPTION=3"

ที่จะต้องแก้ตรงนี้คือ DATABASE ชื่อว่าอะไร

วันพุธที่ 23 พฤศจิกายน พ.ศ. 2554

ASP การค้นหาข้อมูล ๑

1. ให้สร้างเว็บให้เหมือนกับรูปภาพด้านล่าง

2.ใส่ One-Line Text Box แล้วตั้งค่าให้เหมือนกับรูปด้านล่าง

(วิธีใส่ One-Line Text Box คือ Insert >>> Form Field >> One-Line Text Box)

3.จะได้เหมือนรูปภาพด้านล่าง

4.ใส่ form ให้ส่งไปหน้า true.asp จากนั้นกด Save

5.สร้างไฟล์ true.asp ขึ้นมาใหม่ จากนั้นสร้างตารางแบบภาพด้านล่าง

ุ6.เปิดไฟล์ true.asp ที่ edit plus จากนั้นใส่โค้ด รับค่าไว้บนสุดคือ
<%
p=request.form("p")
%>

7.คือเพิ่มโค้ดการดึงข้อมูลจาก MySQL ไว้ด้านล่างโค้ดจากข้อ 6 คือ

search="SELECT * FROM true where p like '"&p&"' " //<< อธิบาย เลือกทั้งหมดจากตาราง true เมื่อ p(ที่รับค่ามา) มีค่าตรงกับค่า p (ใน MySQL)

Set Conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test2554;UID=root;PWD=;OPTION=3"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open search , conn,1,3

8.ต่อมาคือการเพิ่มโค้ดแสดงข้อมูลจนกว่าจะสิ้นสุด Record คือ

i=1

Do While Not rs.eof

ไว้ในตำแหน่งเหมือนในภาพคือ

9.กลับมาที่ Namo แล้วพิมพ์ข้อความไว้ด้านล่างคือ ddd

10.เพิ่มข้อความให้เหมือนในภาพเป็นอันเสร็จเรียบร้อย

รวม Code ASP

โค้ด เพิ่ม ข้อมูล   http://www.mediafire.com/file/6sljowb05e9ms06/add.rar

การเพิ่มข้อมูล 1   การเพิ่มข้อมูล 2 การเพิ่มข้อมูล 3 การเพิ่มข้อมูล 4

โค้ด ค้นหา ข้อมูล http://www.mediafire.com/?5r3h4nd8cp3e2hv

การค้นหาข้อมูล

โค้ด ลบ ข้อมูล   http://www.mediafire.com/?5wztylna8en48ss

การลบข้อมูล

การตั้งค่า IIS บน Windows 7

1. ให้มาที่หน้า Control Panel จากนั้นกด Turn Windows Feature on or off
IIS_1

2. ขั้นตอนนี้ให้เลือกตามภาพเลยครับ ในหมวด Internet Information Services
IIS_2

3. รอระบบทำการติดตั้งให้สักครู่
IIS_3

4. หลังจากนั้น IE ก็จะเด้ง หน้า Page http://localhost ขึ้นมาครับ

ถ้าปรากฎดังภาพ ก็เป็นการติดตั้ง IIS เสร็จเรียบร้อย

Credit http://itithai.com

-----------------------------------------------------
การตั้งค่า IIS ให้รัน ASP ได้

IIS7 ASP

ไปที่ Turn Windows features on or off ของ Control Panel

Internet Information Services -> World Wide Web Servies -> Application Development Features -> คลิกเลือก ASP

รอซักครู่

เสร็จแล้วของทดสอบโปรแกรมใหม่อีกครั้ง ก็จะได้ผลดังรูปครับ

-----------------------------------------------------------------------

การตั้งค่าให้ windows ยอมให้รัน asp เพื่อเชื่อมต่อกับ MySQL

1. >>>To do this, click your "start" button, type in 'cmd', then right click on the command prompt icon and choose 'run as administrator'.
แปล ไปที่ปุ่ม Start พิมพ์ cmd จากนั้นให้คลิ๊กขวาที่โปรแกรมเลือก Run as administrator

2. พิมพ์ข้อความด้านล่างลงไปครับ

%windir%\system32\inetsrv\appcmd set config -section:asp -scriptErrorSentToBrowser:true

วันอาทิตย์ที่ 20 พฤศจิกายน พ.ศ. 2554

ASP การเพิ่มข้อมูล ๔

กลับมาที่โปรแกรม edit plus ครับ
เปิดไฟล์ scoreout.asp ขึ้นมาครับ

แทรกข้อความนี้ไว้ด้านล่าง End if

Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=dbtest;UID=root;PWD=;OPTION=3"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from score" , conn,1,3

rs.addnew
rs("id")=id
rs("fname")=fname
rs("name")=name
rs("surname")=surname
rs("age")=age
rs("factory")=factory
rs("subject")=subject
rs("age")=age
rs("grade")=grade
rs.Update

ASP การเพิ่มข้อมูล ๓

ต่อมาเปิดโปแกรม MySQL-Front ขึ้นมาครับ
จากนั้นสร้้าง Database ที่มีชื่อว่า dbtest

จากนั้นสร้างตารางที่มีชื่อว่า score

สำหรับฟิลด์ที่ต้องเพิ่มก็คือ
id varchar 11 ติ๊กถูกที่ primary
fname varchar 6
name varchar 25
surname varchar 25
age varchar 3
factory varchar 20
subject varchar 20
score tinyint 2
grade varchar 3
***จากนั้นกด Create ได้เลย

วันเสาร์ที่ 19 พฤศจิกายน พ.ศ. 2554

ASP การเพิ่มข้อมูล ๒

หลังจากที่เราได้โปรแกรมดังภาพมาแล้ว ก็เปิด โปรแกรม Edit Plus กันเลย

หลังจากที่เปิดโปรแกรมมาแล้วก็ให้เพื่อน ๆ เปิด File Score.asp ขึ้นมาเลย

ก็จะได้ Code ตามภาพ

ให้เพื่อน ๆ มองหาบรรทัดที่เขียนว่า Body นะ

เสดแล้ว Enter บรรทัดด้านล่างลงมาซัก 5 บรรทัด

แล้วคลิกที่ Form

ก็จะได้

ตรงนี้ให้เพื่อน ๆ กำหนดค่า action เลยครับว่าอยากให้มันไปแสดงผลหน้าไหน

ตรงนี้ผมก็จะได้ว่า scoreout.asp นะครับ

ต่อมาคือ ย้าย </form> ไปไว้ด้านล่างสุดของ Code เลย โดยให้เหมือนกับในรูปคือ </form> มันอยู่ บน </body>

จบแล้วละครับสำหรับ Score.asp

ต่อมาคือเขียน Scoreout.asp

1. สร้างเอกสารใหม่ขึ้นมาใน edit plus

2. copy code จากไฟล์ score.asp ตรง table มาให้หมดตั้ง

มาวางไว้ข้างล่างบรรทัดของ <body> ไฟล์ scoreout.asp นะ เท่านี้เราก็จะได้ หน้าต่างสำหรับแสดงผลมาแล้ว

3. หลังจากนั้นให้เพื่อน ๆ พิมพ์ว่า ddd เหมือนในภาพ

4.เปิดโปรแกรม edit plus มา พิมพ์ code เหมือนในรูป ไปไว้ด้านบนสุด ย้ำ ด้านบนสุด

เอาละครับ จะอธิบายให้ฟังนะ

id =request.form("id") คือ ค่า id (ใน scoreout.asp) จะมีค่าเท่ากับ Field id (ในscore.asp) ที่ส่งมา

แล้วทำไม score=Cint(request.form("score") ถึงมี Cint มาด้วยละ

Cint = Change Integer เป็นการเปลี่ยนค่าข้อมูลตัวเลขนั้นมาเก็บในรูปแบบของ Interger เพื่อที่จะสามารถนำข้อมูลนั้นไปคำนวนได้

***ดังนั้น ข้อมูลที่จะนำไปคำนวนนั้นจะต้อง เปลี่ยนให้เป็น Cint ก่อนนะ

*** CInt = Cint นะ ไม่ใช้ CLnt ระวังพิมพ์ผิดกันด้วยละ

4. คำนวน

พิมพ์ไว้ด้านล่างของ Code เดิมนะ

<%
If score > 50 And score <=59 Then หาก Score มีค่ามากกว่า 50 และค่า score จะต้องไม่น้อยกว่าหรือเท่ากับ 59 จากนั้น
grade = "D" เกรดจะมีค่าเท่ากับ D
ElseIf score >59 And score <=69 Then ข้อควรระวังนะ Elseif ไม่มีเว้นวรรคนะ
grade = "C"
ElseIf score >69 And score <= 79 Then
grade = "B"
ElseIf score >79 And score <=100 Then
grade = "A"
elself score >0 And score <=49 then
grade = "F"
End if สุดท้ายอย่าลืม End if ด้วยแระกัน แล้วก็เว้นวรรคด้วยนะ
%>

5. นำสิ่งที่คำนวนนั้นไปแสดงผล
โดยหาบรรดทัดที่เราเขียน ddd ไว้ เหมือนในรูป

ให้เพื่อน ๆ เขียน Code แทนตรง ddd ลงไปว่า <%=id%> (อธิบาย <%=NAME%> ตรง name หมายถึง name ที่เพื่อน ๆ ตั้งไว้ในตอนแรกที่สร้าง form field จะได้ดังรูป

เมื่อเพื่อน ๆ แก้ไขครบแล้วก็จะได้หน้าต่างแบบนี้

เอาละครับคราวนี้เพื่อน ๆ ก็ลอง test โปรแกรมได้เลย

http://localhost/score.asp

http://127.0.0.1/score.asp

http://ชื่อเครื่อง/score.asp

http://ไอพีเครื่อง/score.asp

ลองเอาซักวิธีหนึ่งนะ เมื่อรันแล้วจะได้หน้าต่างแบบนี้

อะละครับ กรอกค่าให้เรียบร้อย แล้วกด ตกลงกันไปเลย

มาแล้วครับเป็นอันจบแร้วสำหรับเรื่อง Namo5.5 & edit Plus ครับ