การโปรแกรม ภาษาเอเอสพี (ASP) สำหรับ Dynamic Webpage

FAQs : Frequently Asked Questions

ก่อนจะถามผม ช่วยลองเขียนโปรแกรมง่าย ๆ ดูก่อน ท่านอาจเจอปัญหา และวิธีแก้ปัญหาด้วยตนเอง

ทำไมฟ้อง database may be corrupt :
เพราะ compiler ของฝรั่งเป็นฝรั่ง แต่ของไทยเป็นไทย เมื่อสร้าง mdb แล้วปรับปรุงแก้ไขอะไรมาก ๆ ทำให้โครงสร้างภายในเปลี่ยน เช่น การ compact database อาจทำให้ใช้งานในเว็บฝรั่งไม่ได้ วิธีแก้ให้เริ่มจาก copy mdb ของผมไปทดลองดู โดยเปลี่ยนโครงสร้าง ถ้าใช้ได้แล้วค่อยทดลองสร้างของตนเอง แต่อย่าพยายามปรับโครงสร้าง ไม่งั้นก็ไม่ work ตัวอย่างแฟ้ม mdb ที่ให้ลอง Download ไปใช้คือ search.mdb(276KB) ใช้ในบทเรียนเรื่อง การเขียน Search Engine อย่างง่าย หรือแฟ้ม quiz.mdb(84KB) ใช้ในบทเรียนเรื่อง ศูนย์สอบ Online หลายชุด
ทำไมติดต่อ database ไม่ได้ บอกว่า sql error :
เพราะ แต่ละ server กำหนดให้เราติดต่อกับ mdb แตกต่างกัน บางครั้งใช้แบบนั้นติดต่อได้ พอเปลี่ยนเครื่องทดสอบก็มีปัญหา วิธีแก้ให้เปิดเว็บของเขาว่า ให้เขียนโปรแกรมติดต่อกับ server ของเขาอย่างไร เมื่อ มกราคม 49 ผมก็ทดสอบกับ 1asphost.com ก็ไม่ได้ จึงต้องหันไปทดสอบกับ 7host.com ปรากฎว่าไม่พบปัญหาครับ
สามารถ Download Jet40Repl.exe สำหรับ update Microsoft Jet Database รุ่น 4.0 เพราะมีข่าวว่ามีปัญหาเรื่องจุดบกพร่อง แต่ถ้าต้องการทราบว่า เครื่องของเรามี Microsoft Jet Database รุ่นใด สามารถตรวจสอบด้วยการเปิด regedit แล้วหาคำว่า "Microsoft Jet" และกด F3 เพื่อ Find next ก็จะแสดงเลขรุ่นมาให้เห็น

global.asa ถ้าเก็บแฟ้ม global.asa ในห้องที่เก็บแฟ้ม .asp ผล คือ เมื่อเปิดแฟ้มที่สกุล .asp ใดก็ตาม IIS จะช่วย แทรกภาพมุมบนซ้าย ในเว็บเพจนั้น สามารถนำไปใช้เพิ่ม counter ให้ทุกหน้าโดยอัตโนมัติ <script language=vbscript runat=server> sub Session_OnStart response.write "<div style='position:absolute; left:0px; top:0px;z-index:0;'>" response.write "<img src=http://www.thaiall.com/me/picme.jpg></div>" Session.Abandon end sub </script>

Download : dthai97.mdb 70 KB
โปรแกรมเพิ่มข้อมูล และแสดงผลอย่างง่าย ๆ ใน Microsoft Access ด้วยภาษา ASP
<body><font size=0> <form action=addandlist.asp method=post> fid: <input name=fid> fname: <input name=fname> fsalary: <input name=fsalary> <input type=submit> </form> <a href=addandlist.asp>list</a><hr> <% if (request.form("fid") > 0) then set conn = server.createobject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("dthai97.mdb") sql = "insert into tbthai ( fid, fname, fsalary ) SELECT " sql = sql & " " & request.form("fid") & " as fid, " sql = sql & " '" & request.form("fname") & "' as fname, " sql = sql & " " & request.form("fsalary") & " as fsalary; " set rs = conn.Execute(sql) conn.close set conn = nothing else set conn = server.createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("dthai97.mdb") response.write(server.mappath("dthai97.mdb") & "<br>") sql = "select * from tbthai" set rs = conn.execute(sql) do while not rs.eof response.write(rs("fid")&rs("fname")&rs("fsalary")&"<br>") rs.MoveNext loop conn.close set rs = nothing set conn = nothing end if %> </body>

Download : dthai97.mdb 70 KB ตัวอย่าง dlist1.asp :
การเชื่อมต่อฐานข้อมูลแบบ DSNLess ด้วย Microsoft access (ตัวอย่างนี้ใช้ recordset)

<% set rs = server.createobject("adodb.recordset") ' conn = "driver={microsoft access driver (*.mdb)}; dbq=d:\thaiall.com\asp\dthai97.mdb;" conn = "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("dthai97.mdb") sql = "select * from tbthai" rs.open sql, conn, 1, 3 response.write("Total record : "& rs.recordcount & "<br>") do while not rs.eof response.write(rs("fid") & " " & rs("fname") & " " & rs("fsalary") & "<br>") rs.MoveNext loop rs.close set rs = nothing ' rs.pagesize = 5 ' totalpage = rs.pagecount ' pg = 1 ' rs.absolutepage = pg %>

ตัวอย่าง dlist2.asp :
การเชื่อมต่อฐานข้อมูลแบบ DSNLess ด้วย Microsoft access (ใช้ execute SQL)

<% set conn = server.createobject("adodb.connection") conn = "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("dthai97.mdb") sql = "select * from tbthai" set rs = conn.execute(sql) do while not rs.eof response.write(rs("fid") & " ") response.write(rs("fname") & " ") response.write(rs("fsalary") & "<br>") rs.MoveNext loop conn.close set rs = nothing set conn = nothing %>

ตัวอย่าง dlist3.asp :
การเชื่อมต่อฐานข้อมูลแบบ OLEDB Provider ด้วย Microsoft jet (ใช้ได้ทั้ง MS Access และ MS Excel)

<% set conn = server.createobject("adodb.connection") ' conn.open "provider=microsoft.jet.oledb.4.0; data source=c:\thai.xls; extended properties=""excel 8.0; hdr=yes"";" ' conn.open "driver={mysql}; server=localhost; database=dthai; uid=; pwd=;" ' conn.open "driver={sql server}; server=localhost; database=dthai; uid=sa; pwd=;" ' conn.open "driver={microsoft odbc for oracle}; server=oracleserver; uid=; pwd=;" ' conn.open "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("dthai97.mdb") ' conn.open "driver={microsoft access driver (*.mdb)}; dbq=d:\thaiall.com\asp\dthai97.mdb;" conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("dthai97.mdb") ' conn.execute("delete * from tbthai") บรรทัดนี้เพิ่มได้ แต่ผลคือไม่แสดงอะไรนะครับ sql = "select * from tbthai" set rs = conn.execute(sql) do while not rs.eof response.write(rs("fid") & " " & rs("fname") & " " & rs("fsalary") & "<br>") rs.MoveNext loop conn.close set rs = nothing set conn = nothing %>

ตัวอย่าง dlist4.asp :
การเชื่อมต่อฐานข้อมูลแบบ DSN (Data Source Name) ที่ไม่ใช้ recordset

<% ' xdthai97 คือ Data Source Name ที่ถูกสร้างด้วย ODBC Data source ใน control panel ' ให้เลือก User DSN, Add, Microsoft Access Drriver.. , Finish ' แล้วพิมพ์ xdthai97 ในช่อง Data Source Name แล้วอย่าพึ่งกดปุ่ม OK ' ให้กดปุ่ม Select เพื่อเลือกแฟ้มชื่อ dthai97.mdb ที่อยู่ในคอมพิวเตอร์ แล้วกดปุ่ม OK ' ผลการเพิ่ม จะพบ xdthai97 อยู่ในส่วนของ User DSN ซึ่งจะชี้ไป dthai97.mdb อัตโนมัติ ' conn.open "dsn=xdthai97;uid;pwd;" ก็ใช้ได้ set conn = server.createobject("adodb.connection") conn.open "xdthai97", "", "" sql = "select * from tbthai" set rs = conn.execute(sql) do while not rs.eof response.write(rs("fid") & " " & rs("fname") & " " & rs("fsalary") & "<br>") rs.MoveNext loop conn.close set rs = nothing set conn = nothing %>

ตัวอย่าง dlist5.asp :
การเชื่อมต่อฐานข้อมูลแบบ DSN (Data Source Name) ที่ใช้ recordset
ทดสอบ DSN ที่เชื่อมต่อกับ MYSQL ในเครื่องที่ลง MYODBC แล้วก็ ok มีตัวอย่างที่ http://www.thaiall.com/mysql เช่นกัน

<% set conn = server.createobject("adodb.connection") conn.open "xdthai97", "", "" set rs = server.createobject("adodb.recordset") sql = "select * from tbthai" rs.open sql, conn, 1, 3 do while not rs.eof response.write(rs("fid") & " " & rs("fname") & " " & rs("fsalary") & "<br>") rs.MoveNext loop conn.close set rs = nothing set conn = nothing %>

ตัวอย่าง dlist6.asp :
การเชื่อมต่อฐานข้อมูล MYSQL ในเครื่องที่ลง MYODBC มีตัวอย่างที่ http://www.thaiall.com/mysql
ถ้าเครื่องที่เชื่อมต่อชื่อ localhost ฐานข้อมูลชื่อ test ส่วน user และ password คือ u และ p <% ConnString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=test;uid=u;password=p;" Set conn = Server.CreateObject("ADODB.Connection") conn.Open ConnString Set rs = conn.Execute("SELECT * FROM cust") do while not rs.eof response.write(rs("cust") & " " & rs("custname") & "<br>") rs.MoveNext loop conn.close set rs = nothing set conn = nothing %>

ตัวอย่างการเชื่อมต่ออื่น ๆ
Other Connection String : http://www.carlprothman.net/Default.aspx?tabid=81

OLEDB Provider

conn.open "PROVIDER=ADSDSObject;USER ID=Admin;PASSWORD=;"

OLEDB Provider

conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL Server;" &_ "INITIAL CATALOG=Member;USER ID=sa;PASSWORD=;"

OLEDB Provider

conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=202.29.0.1, 1433;" &_ "NETWORK LIBRARY=DBMSSOCN;INITIAL CATALOG=Member;USER ID=sa;PASSWORD=;"

OLEDB Provider

conn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=c:\member.xls;"&_ "extended properties=""Excel 8.0; HDR=Yes"";"

การอ่านข้อมูลจาก .xls ด้วย ASP :: ตัวอย่างนี้กำหนด ชื่อ พื้นที่ ที่จะ select ข้อมูลมาใช้ :: Right click to download [ dthai97.xls 13 KB ]

<% filexls = "dthai97.xls" tbname = "dthai1" f1 = "eid" f2 = "ename" ' =============================================== ' 2 method : ok ' dv = "driver={microsoft excel driver (*.xls)}; dbq=" & server.mappath(filexls) ' dv = dv & "; extended properties='excel 8.0; hdr=yes';" dv = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(filexls) dv = dv & "; extended properties='excel 8.0; hdr=yes';" set conn = server.createobject("adodb.connection") conn.open dv sql = "select * from " & tbname set rs = conn.execute(sql) do while not rs.eof response.write(rs(f1) & " " & rs(f2) & "<br>") rs.MoveNext loop conn.close set rs = nothing set conn = nothing %>

การติดต่อกับ crystal report :: คุณ unesco@thaimail.com ถามผม และส่ง code มาให้ ช่วงนี้ยังไม่ได้ศึกษา แต่ copy ไว้ก่อน :: ตัวอย่างข้างล่างนี้ยังไม่ ok คำถามคือจะเอาข้อมูลเขียนลง crystal report ยังไง ซึ่งผมก็ตอบไม่ได้

Dim Cn,Rs,Rp,App Set Conn=Server.Createobject("ADODB.Connection") conn.open ("myoffice") set rs = server.createobject("adodb.recordset") rs.activeconnection=conn rs.open "select rid, rname from resource" Set App = Server.CreateObject("CrystalRuntime.Application") set rp = app.openreport("c:\inetpub\wwwroot\resource.rpt") rp.sections(1).suppress = true rp.sections(2).height=2000 set fd=rp.sections(2).addtextobject("ใบเสนอราคา",3000,1000) fd.width = 5000 : fd.height=500 fd.font.name="AngsanaUPC" fd.font.size=18

<% ' หาชื่อ Folder ที่ run โปรแกรมนี้ ' from http://www.codefixer.com/tutorials/array_functions.asp dim a,n a = Split(request.servervariables("PATH_TRANSLATED"),"\") n = a(0) for i=1 to ubound(a) - 1 n = n & "\" & a(i) next response.write n %>

2101. intro/default.asp 2102. intro/function.asp 2103. intro/p01.asp 2104. intro/p02.asp 2105. intro/p03.asp 2106. intro/p04.asp 2107. intro/randomeasy.asp 2108. intro/randomarray.asp 2109. intro/numtochar.asp 2201. sort/default.asp 2202. sort/bubble.asp 2203. sort/newbubble.asp 2204. sort/insertion.asp 2205. sort/selection.asp 2206. sort/shell.asp 2301. keepvar/default.asp 2302. keepvar/addapplication.asp 2303. keepvar/addsession.asp 2304. keepvar/removeappl.asp 2305. keepvar/addsubj.asp

2401. textsearch/search.dat 2402. textsearch/default.asp 2403. textsearch/crtsearch.asp 2404. textsearch/listsearch.asp 2405. textsearch/find.asp 2406. textsearch/delrec.asp 2407. textsearch/restore.asp 2502. updatemdb/default.asp 2503. updatemdb/crttab.asp 2504. updatemdb/selecttab.asp 2505. updatemdb/inserttmpch.asp 2506. updatemdb/insert6.asp 2507. updatemdb/searchtmpch.asp 2508. updatemdb/edittmpnum.asp 2509. updatemdb/controlrec.asp 2510. updatemdb/deltmpch.asp 2511. updatemdb/droptab.asp 2602. quiz/default.htm 2603. quiz/displayq.asp 2604. quiz/displayqz.asp 2605. quiz/quizauto.asp 2606. quiz/quizjv.asp

2701. emailconfirm/default.asp 2702. emailconfirm/checkpass.asp 2703. emailconfirm/sendmail.asp 2801. creditcard/default.asp 2802. creditcard/ccard.inc 2902. casereg/default.htm 2903. casereg/listpage.asp 2904. casereg/groupadv.asp 2905. casereg/regist.asp