主要功能为:在聊天室中,每隔5分钟,向显示对话页面,发送一道题,所有用户都可答题。
  答对者加相应的分值。 
  具体实现:在聊天室框架中加入一隐含帧,
  此帧每5分钟刷新一次。
  隐含帧内的ASP页内容如下:
  <%@ LANGUAGE=VBs cript%>
  <%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=myD...[ 查看全文 ]