【Webドリル】 <% sPname = Request.ServerVariables("SCRIPT_NAME") '--- DBファイルの名前を指示 DBfile = Server.MapPath("./quiz.mdb") '--- データベース接続オブジェクトの準備 Set DB = Server.CreateObject("ADODB.Connection") '--- DBファイルを開く DB.Open "DRIVER=Microsoft Access Driver (*.mdb);FIL=MS Access;DBQ=" & DBfile Number = Request("Number") Anumber= Request("Anumber") Answer = Request("Answer") If Number<>"" and IsNumeric(Number) Then '--- 数字だった,値があったとき Call hantei If Number>0 Then Call mondai Else Call kekka End If Else '--- 数字でなかった.１問目をだしましょう Number = 1 Call mondai End If %> <% '--- DBファイルを閉じる DB.Close '--- 接続オブジェクトの解除 Set DB = Nothing Response.End '----------------------------------------------------------- ' 問題文表示 '----------------------------------------------------------- Sub mondai() Set RC = DB.Execute("select * from mondai where number=" & Number) If RC.Eof Then %>その問題がありませんでした。 <% Else %>

> "> 問題番号:<%=RC("number")%>
<%=RC("text")%>

---

<% ans = split(RC("Answer"),",") For i=0 to Ubound(ans) %>><%=ans(i)%>
<% Next nnum = Number+1 Set RC = DB.Execute("select * from mondai where number=" & nnum) If RC.Eof Then nStr = "結果画面へ" nnum = -1 Else nStr = "次の問題へ" End If %>

<% End If RC.Close End Sub '----------------------------------------------------------- ' 正誤判定 '----------------------------------------------------------- Sub hantei If Answer<>"" and IsNumeric(Answer) Then '--- 数字だった Else '--- 数字でなかった %>回答を選択してください
<% Exit Sub End If Q = "SELECT * FROM mondai WHERE Number=" & Anumber & " and Ansnum=" & Answer Set RC = DB.Execute(Q) 'SQL文を実行 If RC.Eof Then '--- 間違い %>間違いでした
<% Else '--- 正解 %>正解でした
<% End If End Sub Sub kekka %>おわり
<% End Sub %>