仓酷云

标题: ASP网页编程之用ASP完成谈天室中的在线答题游戏 [打印本页]

作者: 透明 时间: 2015-1-16 23:23
标题: ASP网页编程之用ASP完成谈天室中的在线答题游戏
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在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
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 透明 时间: 2015-1-25 13:51
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

作者: 柔情似水 时间: 2015-2-2 22:18
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

作者: 飘飘悠悠 时间: 2015-2-8 12:41
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 冷月葬花魂 时间: 2015-2-25 14:18
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

作者: 变相怪杰 时间: 2015-3-15 14:31
那么，ASP.Net有哪些改进呢？

作者: 小魔女 时间: 2015-3-22 01:20
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

欢迎光临仓酷云 (http://ckuyun.com/)