thaiall logomy background
coding : quiz. quizjv.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : quizjv.asp. ID : 2606
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<%
dim connect, rs, sql, scolor, i, isans
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\quiz.mdb"))
sql = "select * from math01"
set rs = connect.execute(sql)
response.write("<body>")
i = 1
do while not rs.eof    
  response.write("<hr>" & i & " : " & rs("question"))
  if (rs("ans") = 1) then isans = "1" else isans = "0" end if
  response.write("<br><input type=radio onclick=chk("&isans&")>a. "&rs("choice1"))
  if (rs("ans") = 2) then isans = "1" else isans = "0" end if
  response.write("<br><input type=radio onclick=chk("&isans&")>b. "&rs("choice2"))
  if (rs("ans") = 3) then isans = "1" else isans = "0" end if
  response.write("<br><input type=radio onclick=chk("&isans&")>c. "&rs("choice3"))
  if (rs("ans") = 4) then isans = "1" else isans = "0" end if
  response.write("<br><input type=radio onclick=chk("&isans&")>d. "&rs("choice4"))
  rs.movenext
  i = i + 1
loop
response.write("</body>")
connect.close
set rs = nothing
set connect = nothing
%>
<script language="JavaScript">
<!--
function chk(value) {
  if( value == 0) {
    alert('Wrong') } else {
    alert('Right');
  }
  return true;
}
// -->
</script>
จำนวน : 38 บรรทัด
าษาเฮชทีเอ็มแอล (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