thaiall logomy background
coding : allthai.quiz. delete.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : delete.asp. ID : 4103
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<%
dim connect, rs, sql, tr, totrec
set connect = server.createobject("ADODB.Connection")
' ==========
' It have many method to open file. Some method does not work.
' connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("quizans.mdb"))
' connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\yourdir\db\quizans.mdb"))
' connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\thaiall.com\allthai.quiz\quizans.mdb")
connect.open "provider=microsoft.jet.oledb.4.0; data source="  & Server.MapPath("quizans.mdb")
' ==========
sql = "select * from teacher where tid='" & request.form("tid") &"'"
sql = sql & " and pass ='" & request.form("pass") &"'"
set rs=server.createobject("ADODB.recordset")
rs.open sql,connect,1,3
totrec = rs.recordcount
if totrec = 0 then
  response.write("Incorrect student id or password")
  response.end 
end if
if request.form("tbl") <> "math101ans" and request.form("tbl") <> "engl101ans" and request.form("tbl") <> "bcom101ans" and request.form("tbl") <> "test101ans" then
  response.write("Incorrect table")
  response.end 
end if
response.write("<ol>Teacher id : " & request.form("tid"))
response.write("<br>Teacher name : " & rs("tname"))
sql = "delete * from "& request.form("tbl")
set rs = server.createobject("ADODB.recordset")
connect.execute(sql)
response.write("<br>delete : ok")
%>
จำนวน : 30 บรรทัด
าษาเฮชทีเอ็มแอล (HTML = HyperText Markup Language) คือ ภาษาคอมพิวเตอร์ที่ออกแบบมาเพื่อใช้ในการสร้างเว็บเพจที่เรียกดูผ่านทางเว็บเบราว์เซอร์ (Web Browser) เริ่มพัฒนาโดย ทิม เบอร์เนอรส์ ลี (Tim Berners Lee) ในปัจจุบัน HTML ล่าสุดคือ รุ่น 5 เป็นมาตรฐานหนึ่งของ ISO ซึ่งจัดการโดย World Wide Web Consortium (W3C) ในปัจจุบัน ทาง W3C ผลักดัน รูปแบบของ HTML แบบใหม่ ที่เรียกว่า XHTML รุ่นแรกคือ 1.0 (ม.ค.2543) ซึ่งมีโครงสร้างเป็นแบบ XML (eXtensible Markup Language)
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com