主要功能爲：在聊天室中，每隔5分鐘，向顯示對話頁面，發送一道題，所有用戶都可答題。
答對者加相應的分值。
具體實現：在聊天室框架中加入一隱含幀，
此幀每5分鐘刷新一次。
隱含幀內的ASP頁內容如下：
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0%>
<%
Dim Conn,Rs
Application.Lock
application("CanswerName")=application("answerName") '保存答對題用戶的名字
application("answerName")=""
application("TanswerName")="" '清除答錯題用戶的名子
set Conn=server.createobject("ADODB.Connection")
accessdb="db1.mdb" '題庫的連接
myDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
myDSN=myDSN & "DBQ=" &server.mappath(accessdb)
Conn.Open myDSN
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.CursorLocation=3
Rs.open "select * from QUESTION ",Conn
Randomize '隨機取得一道題的ID
r=Rs.RecordCount
ID=int((r-1)*Rnd)+1
Rs.Close
set Rs=Nothing
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open "select * from QUESTION where questionID="&ID,Conn
application("questionName")=Rs("questionName") '題目
application("questionID")=Rs("questionID") '題的ID
application("questionCent")=Rs("questionCent") '題的分數
application("questionClass")=Rs("questionNotes")'題的說明
Rs.close
Set Rs = Nothing
Set Ra = Server.CreateObject("ADODB.Recordset")
Ra.open "select * from ANSWER where questionID="&ID,Conn
application("answerA")=Ra("answerA") '題的選項
application("answerB")=Ra("answerB")
application("answerC")=Ra("answerC")
application("answerD")=Ra("answerD")
application("answerTrue")=Ra("answerTrue") '題的正確答案
Ra.close
set Ra=Nothing
Conn.Close
set Conn=Nothing
application("questionTime")=Now()
Application.UnLock
%>
<HTML>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<Link Rel='stylesheet' Href='../Style.Css' Type='text/css'>
<meta http-equiv="refresh" content="300;url=question.asp">
<title><%=Application("V")%></title>
<script Language="JavaScript">
parent.ShowSays.document.write("******系統消息：******<br>"); //向聊天室顯示對話窗口寫入問題
parent.ShowSays.document.write("**上題答對者爲：<%=application"CanswerName")%><br>");
parent.ShowSays.document.write("問題：：<%=application("questionName")%>");
parent.ShowSays.document.write(" <%=application("questionCent")%>分(1分鐘之內，回答輸入‘#答案’)<%=Time()%><br>");
parent.ShowSays.document.write("A::<%=application("answerA")%><br>");
parent.ShowSays.document.write("B::<%=application("answerB")%><br>");
parent.ShowSays.document.write("C::<%=application("answerC")%><br>");
parent.ShowSays.document.write("D::<%=application("answerD")%><br>");
</script>
</head>
<body bgcolor='#FFFFFF'>
</Body>
</html>
處理答題部分略！！！
用ASP實現聊天室中的在線答題遊戲
發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章