รหัสต้นฉบับเพื่อการศึกษา

File : displayqz.asp. ID : 2604

Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame

<%
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
%>