【問題の一覧表】

問題の追加
<% '--- 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 '--- 全部のデータをRCに取り出す Set RC = DB.Execute("select * from mondai order by number") Do While not RC.Eof %> <% '--- 次のデータを読み出せ RC.MoveNext Loop RC.Close '--- DBファイルを閉じる DB.Close '--- 接続オブジェクトの解除 Set DB = Nothing %>
番号問題文回答群正解答
><%=RC("number")%> <%=RC("Text")%> <%=RC("Answer")%> <%=RC("Ansnum")%>