ASP网页编程之用ASP完成谈天室中的在线答题游戏

只看该作者 · 发表于 2015-1-16 23:23:22

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.谈天室|在线次要功效为：在谈天室中，每隔5分钟，向显现对话页面，发送一道题，一切用户都可答题。
答对者加响应的分值。
详细完成：在谈天室框架中到场一隐含帧，
此帧每5分钟革新一次。
隐含帧内的ASP页内容以下：
<%@LANGUAGE=VBScript%>
<%Response.Expires=0%>
<%
DimConn,Rs
Application.Lock
application("CanswerName")=application("answerName")保留答对题用户的名字
application("answerName")=""
application("TanswerName")=""扫除答错题用户的名子
setConn=server.createobject("ADODB.Connection")
accessdb="db1.mdb"题库的毗连
myDSN="DRIVER={MicrosoftAccessDriver(*.mdb)};"
myDSN=myDSN&"DBQ="&server.mappath(accessdb)
Conn.OpenmyDSN
SetRs=Server.CreateObject("ADODB.Recordset")
Rs.CursorLocation=3
Rs.open"select*fromQUESTION",Conn
Randomize随机获得一道题的ID
r=Rs.RecordCount
ID=int((r-1)*Rnd)+1
Rs.Close
setRs=Nothing
SetRs=Server.CreateObject("ADODB.Recordset")
Rs.open"select*fromQUESTIONwherequestionID="&ID,Conn
application("questionName")=Rs("questionName")标题
application("questionID")=Rs("questionID")题的ID
application("questionCent")=Rs("questionCent")题的分数
application("questionClass")=Rs("questionNotes")题的申明
Rs.close
SetRs=Nothing
SetRa=Server.CreateObject("ADODB.Recordset")
Ra.open"select*fromANSWERwherequestionID="&ID,Conn
application("answerA")=Ra("answerA")题的选项
application("answerB")=Ra("answerB")
application("answerC")=Ra("answerC")
application("answerD")=Ra("answerD")
application("answerTrue")=Ra("answerTrue")题的准确谜底
Ra.close
setRa=Nothing
Conn.Close
setConn=Nothing
application("questionTime")=Now()
Application.UnLock
%>
<HTML>
<head>
<metahttp-equiv=Content-Typecontent=text/html;charset=gb2312>
<LinkRel=stylesheetHref=../Style.CSSType=text/css>
<metahttp-equiv="refresh"content="300;url=question.asp">
<title><%=Application("V")%></title>
<scriptLanguage="JavaScript">
parent.ShowSays.document.write("******体系动静：****** ");//向谈天室显现对话窗口写进成绩
parent.ShowSays.document.write("**上题答对者为：<%=application"CanswerName")%> ");
parent.ShowSays.document.write("成绩：：<%=application("questionName")%>");
parent.ShowSays.document.write("<%=application("questionCent")%>分(1分钟以内，回覆输出‘#谜底’)<%=Time()%> ");
parent.ShowSays.document.write("A::<%=application("answerA")%> ");
parent.ShowSays.document.write("B::<%=application("answerB")%> ");
parent.ShowSays.document.write("C::<%=application("answerC")%> ");
parent.ShowSays.document.write("D::<%=application("answerD")%> ");
</script>
</head>
<bodybgcolor=#FFFFFF>
</Body>
</html>
处置答题部分略！！！
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码

只看该作者 · 发表于 2015-1-20 09:45:56

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

只看该作者 · 发表于 2015-1-25 13:51:14

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

只看该作者 · 发表于 2015-2-2 22:18:14

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

只看该作者 · 发表于 2015-2-8 12:41:49

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

只看该作者 · 发表于 2015-2-25 14:18:30

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

只看该作者 · 发表于 2015-3-15 14:31:19

那么，ASP.Net有哪些改进呢？

只看该作者 · 发表于 2015-3-22 01:20:57

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之用ASP完成谈天室中的在线答题游戏

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子