thaiall logomy background
coding : casereg. regist.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : regist.asp. ID : 2905
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<%
dim connect, rs, sql, outrec, aid, action
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\casereg.mdb"))
response.write("<body><form action=regist.asp method=post>")
response.write("Year:<input name=gyear value=2544>")
response.write("Semester:<input name=gsem value=2 size=5><br>")
sql = "select * from student"
set rs = connect.execute(sql)
response.write("<select name=gidstd size=5>")
do while not rs.eof
  response.write("<option value="&rs("idstd")&">"&rs("idstd"))
  rs.movenext
loop
response.write("</select>")
sql = "select * from subject"
set rs = connect.execute(sql)
response.write("<select name=gsubj size=5>")
do while not rs.eof
  response.write("<option value="&rs("subj")&">"&rs("subj"))
  rs.movenext
loop
response.write("</select>")
response.write("section:<input name=gsection value=1 size=5><br>")
response.write("<input type=submit name=action value=list> ")
response.write("<input type=submit name=action value=listall> ")
response.write("<input type=submit name=action value=regist> ")
response.write("<input type=submit name=action value=drop></form>")
gyear = request.form("gyear")
gsem = request.form("gsem")
gidstd = request.form("gidstd")  
gsubj = request.form("gsubj")  
gsection = request.form("gsection")
action = request.form("action")
if action = "regist" then 
  if gsubj = "" or gidstd = ""then
    response.write("ท่านกรอกข้อมูลไม่สมบูรณ์ จึงไม่จัดเก็บ")
  else	
    sql = "select * from regist where ryear="&gyear&" and rsem="&gsem
    sql = sql + " and idstd="&gidstd&" and subj='"&gsubj&"'"
    set rs = server.createobject("ADODB.recordset")
    rs.open sql,connect,1,3
    totrs = rs.recordcount
    if totrs > 0 then
      response.write("ท่านได้ลงทะเบียนไปแล้ว ลงซ้ำไม่ได้<br>")
    else
      sql="insert into regist(ryear,rsem,idstd,subj,section,grade)"
      sql=sql+"values("&gyear&","&gsem&","&gidstd&",'"&gsubj&"',"&gsection&",4.6)"
      set rs = connect.execute(sql)
      response.write("จัดเก็บข้อมูลเรียบร้อย<br>")
    end if
    action = "list"
  end if
end if
if action = "drop" then 
  if gsubj = "" or gidstd = ""then
    response.write("ท่านกรอกข้อมูลไม่สมบูรณ์ จึงบอกเลิกวิชาไม่ได้")
  else	
    sql = "select * from regist where ryear="&gyear&" and rsem="&gsem
    sql = sql + " and idstd="&gidstd&" and subj='"&gsubj&"'"
    set rs = server.createobject("ADODB.recordset")
    rs.open sql,connect,1,3
    totrs = rs.recordcount
    if totrs = 0 then
      response.write("ไม่พบวิชาที่ต้องการบอกเลิก")
    else
      sql = "delete from regist where ryear="&gyear&" and rsem="&gsem
      sql = sql + " and idstd="&gidstd&" and subj='"&gsubj&"'"
      set rs = connect.execute(sql)
      response.write("ลบข้อมูลเรียบร้อย")
    end if
  end if
end if
if left(action,4) = "list" then
  sql = "select * from regist "
  if right(action,3) <> "all" and gidstd > 0 then
    sql = sql + "where ryear="&gyear&" and rsem="&gsem&" and idstd="&gidstd
  end if
  set rs = connect.execute(sql)  
  rs.movefirst
  do while not rs.eof
    response.write(rs("ryear")&"- "&rs("rsem")&"- "&rs("idstd"))  
    response.write("- "&rs("subj")&"- "&rs("section")&"- "&rs("grade")&"<br>")
    rs.movenext
  loop
end if
connect.close
set rs = nothing
set connect = nothing
%>
จำนวน : 91 บรรทัด
าษาเฮชทีเอ็มแอล (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)
าษาพีเอชพี (PHP Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้กับ ตัวแปลภาษา ทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปเอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้
าษาไพทอน (Python Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาแอพพลิเคชั่นโดยไม่ยึดติดกับแพลตฟอร์ม (Platform) และใช้ในงานได้หลายประเภท ทั้งใช้ในการประมวลผลผ่านคอมมานด์ไลน์ หรือเป็นเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้โค้ดให้กับตัวแปลภาษา เพื่อทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปข้อความ เอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้ จุดที่แตกต่างกับภาษาอื่น คือ การรวบรวมจุดเด่นของแต่ละภาษามารวมเข้าด้วยกัน
อสคิวแอล (SQL = Structured Query Language) คือ ภาษาสอบถามข้อมูล หรือภาษาจัดการข้อมูลอย่างมีโครงสร้าง มีการพัฒนาภาษาคอมพิวเตอร์ และโปรแกรมฐานข้อมูลที่รองรับมากมาย เพราะจัดการข้อมูลได้ง่าย เช่น MySQL, MariaDB, MsSQL, PostgreSQL หรือ MS Access เป็นต้น สำหรับโปรแกรมฐานข้อมูลที่ได้รับความนิยมคือ MySQL หรือ MariaDB เป็น Open Source ที่ใช้งานได้ทั้งใน Linux และ Windows
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com