thaiall logomy background
coding : quiz. displayqz.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : displayqz.asp. ID : 2604
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<%
dim connect, rs, sql, scolor, i
dim arr(4)
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><table bgcolor=#000000>")
i = 1
do while not rs.eof
  if scolor = "silver" Then scolor = "white" else scolor = "silver" end if
  arr(1) = rs("choice1")
  arr(2) = rs("choice2")
  arr(3) = rs("choice3")
  arr(4) = rs("choice4")
  response.write("<tr bgcolor='" & scolor & "'>")
  response.write("<td>" & i & "</td>")
  response.write("<td>" & rs("question") & "</td>")
  response.write("<td>" & arr(rs("ans")) & "</td>")  
  ' ok : response.write("<td>" & rs("choice"&rs("ans")) & "</td>")  
  response.write("</tr>")
  rs.movenext
  i = i + 1
loop
response.write("</table></body>")
connect.close
set rs = nothing
set connect = nothing
%>
จำนวน : 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