用ASP实现聊天室中的在线答题游戏

原创 2001年07月13日 11:16:00

主要功能为:在聊天室中,每隔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实现聊天室中的在线答题游戏(续)

答案处理部分,放在处理发送对话信息的程序中即可。下面是答案处理的代码部分:if mid(FStr,i,1)="#" then       FStr是保存对话信息的字符串变量     TFstr=mid...
  • songgz
  • songgz
  • 2001年07月13日 14:24
  • 744

Session和Application实现网络在线聊天室实例

login.aspx代码如下:                 body { width:780px; margin:0px auto;}         ...
  • yayun0516
  • yayun0516
  • 2014年12月19日 09:56
  • 3030

MUD游戏编程 Socket API

Socket API 头文件 #include “winsock.h” #include “ws2tcpip.h”   初始化API 下面列出了初始化和关闭函数: int WSAStartup( WO...
  • sinat_24229853
  • sinat_24229853
  • 2015年04月16日 23:46
  • 692

基于JSP在线答题程序设计

前几天做了一个很简单实用的答题系统,运行于微信企业号。 需求: 1、用户点击微信公众号下边的菜单,弹出有奖答题。 2、用户点击后,返回答题连接,并显示该微信用户名。 3、进入答题系统,显示题目数量,进...
  • bless2015
  • bless2015
  • 2016年04月04日 23:00
  • 1544

Node.js + express + socket 实现在线实时多人聊天室

项目目录结构: 前端部分: 登录页面Login部分: login.html login L...
  • Cyan1614
  • Cyan1614
  • 2017年06月25日 13:08
  • 1625

php+mysql的在线答题

寒假在公司实习做了一个小东西,用php实现一个在线答题的项目,用户的答题数关联商品折扣,一开始思考用ajax实现页面的自刷新,之后觉得太大材小用了,可以在当前页面做一个自循环,用js来进行计时,当时写...
  • liyixiang_1005
  • liyixiang_1005
  • 2015年02月06日 16:21
  • 987

Ajax实现在线聊天室

功能实现及开发过程可能遇到的问题 发送聊天的消息和实时显示聊天的消息一定要分开处理! 发送聊天消息如何实现? ①在多行文本框上面绑定“按下键盘[keypress]”事件,在用户按回车键时发送Aja...
  • u011246325
  • u011246325
  • 2015年04月09日 20:23
  • 481

jsp案例之在线聊天室

以前总是很好奇QQ等在线聊天功能的神奇,这些天学了session,request,application等知识点,终于能做实现一个小型的在线聊天室了。 效果图如下: 实现的原理是大致是;先通过se...
  • Watering_sea
  • Watering_sea
  • 2015年04月01日 15:24
  • 1074

一个用ajax实现聊天室

以前实现聊天必须每隔几秒钟来进行刷新页面保正数据同步,让人感觉太烦了!这里用 ajax + servlet + sqlserver 实现聊天室功能! //JSP页面//index           ...
  • yjsyliserver
  • yjsyliserver
  • 2007年07月15日 21:26
  • 2080

js实现聊天室

超级简单实现聊天室,我用的是js+dom+php+mysql+ajax实现聊天室。 思路: 1、实现登录页面(如果您有更好的办法可以说下,我没想好是否需要这个页面) 2、假如登录成功则进入主聊天...
  • xi_weina
  • xi_weina
  • 2012年03月08日 22:18
  • 6678
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP实现聊天室中的在线答题游戏
举报原因:
原因补充:

(最多只允许输入30个字)