透明 发表于 2015-1-16 23:23:22

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("******体系动静:******<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>
<bodybgcolor=#FFFFFF>
</Body>
</html>
处置答题部分略!!!
</p>源代码保护方面其实现在考虑得没那么多了..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,以前也有人问过,把回答给你转过来看看能否对你有帮助:
页: [1]
查看完整版本: ASP网页编程之用ASP完成谈天室中的在线答题游戏