|
|
域名空间 下载中心 社区论坛 信息公告 MY小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿 论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图 专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版 社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务 |
 |
 |
 |
 当前位置：首页>>编程开发>>asp专区>>正文 |
新版上线！[旧版] |  |
|||
注:打开慢时请稍等
用ASP实现聊天室中的在线答题游戏http://www.iyit.net 日期：2006-6-7 11:08:37 来源：不详 点击： |
答对者加相应的分值。 具体实现：在聊天室框架中加入一隐含帧， 此帧每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=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＞ ＜s cript Language="Javas cript"＞ 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＞"); ＜/s cript＞ ＜/head＞ ＜body bgcolor='#FFFFFF'＞ ＜/Body＞ ＜/html＞ 处理答题部分略！！！ 答案处理部分，放在处理发送对话信息的程序中即可。下面是答案处理的代码部分： if mid(FStr,i,1)="#" then 'FStr是保存对话信息的字符串变量 TFstr=mid(FStr,i+1,1) if CInt(DateDiff("n",application("questionTime"),Now()))＜=1 then '判断时间1分钟内答题有效 if LCase(TFstr)=LCase(application("answerTrue")) then '判断答题是否正确 if instr(1,application("answerName"),session("USER_USERNAME"))＞0 then '判断用户是否已经答过题了 TFstr=session("USER_USERNAME")&"已经答过这道了！！！" else TFstr=session("USER_USERNAME")&"答题正确！" Session("USER_EXP") =Session("USER_EXP")+application("questionCent") '给答对题的用户加分 application("answerName")=application("answerName")&session("USER_USERNAME")&" " '保存答对题用户的名字 end if else if instr(1,application("TanswerName"),session("USER_USERNAME"))＞0 then ''判断用户是否已经答过题了 TFstr=session("USER_USERNAME")&"已经答过这道了！！！" else application("TanswerName")=application("TanswerName")&session("USER_USERNAME")&" " '保存答错题用户的名字 end if end if end if 编辑：黑鹰 [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：利用ASP远程注册DLL的方法 下一篇：用ASP实现电子贺卡 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 最新更新 | 热点排行 | 推荐新闻 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 友情链接 | ||||||
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术