分享
 
 
 

用ASP学做一个在线调查(1)

王朝asp·作者佚名  2008-05-21
窄屏简体版  字體: |||超大  

关于在线调查大家一定不会陌生吧,给出一个问题和数个答案,让用户填写,然后把结果保存到数据库,自动进行统计,最后给出个统计的图。这期的跟我学做就来做一个在线调查系统。

一、功能设计

这么简单的系统也要做功能设计?有的人也许会觉得奇怪,不过话说回来不管怎么样的系统,先做功能设计总是能对系统有个比较清析的了解。让我们来看看在线调查的功能吧。基本的功能上面已经说了,就是要给出一个问题和数个答案,然后统计,最后给出图。在这个基础上,我们可以考虑给一个调查加上一个时间段(有效期),在这个时间段里调查是有效的,过了这段时间就自动结束这个调查。另外,我们可以指定一个用户一次只能提交一次答案。如果你要限制得更多,可以指定一个IP只能提交一次答案,不过,这样可能一个网吧里的人只能有一个提交了。对于调查里的问题,有些可能是单选题,而有些可能是多选 题。最后来说说统计的图,在统计图里要给出答案、每个答案的投票人数,并要显示出每个答案投票数所占的比例。一般用横的图就可以了,也比较容易实现,当然,如果你要改成竖的,也可以。

现在根据上面总结出在线调查的功能如下:

1、数据保存在ACCESS 2000 数据库中;

2、每个用户一次访问可以投票一次

3、给出每个调查的统计情况,用统计图来显示

4、每个调查都有个有效期,过期后自动结束。结束了的调查只能查看结果。

5、管理员可以增加调查,修改调查的答案(增加、修改、删除,修改类型)。

6、对于已经结束的调查,管理员只能删除调查,而不能修改答案。

7、只有一个管理员(单用户)

二、数据库设计

现在来设计数据库,根据功能要求,至少要有三个表,一是管理员表,二是调查表,三是调查结果表。数据库文件名为survey.mdb 可以改为.asp 如果改的话,请在ASP程序中作相应的修改。

表一、 管理员表 表名: manage-----------------------------------------------------------------字段 类型 长度 说明-----------------------------------------------------------------manage_id 自动编号 - 在这里没用到,日后扩展用manage_username 文本 15 管理员用户名manage_password 文本 15 管理员密码-----------------------------------------------------------------

建立manage表后加入一条新记录,填入你的管理员用户名和密码,在这里填入的是xmxoxo

表二、 调查表 表名: survey-----------------------------------------------------------------字段 类型 长度 说明-----------------------------------------------------------------survey_id 自动编号 - 递增、主键、有索引无重复survey_question 文本 255 调查问题survey_type 是否 - 类型,否:单选 是:多选survey_stime 日期 - 长日期,开始时间survey_etime 日期 - 长日期,结束时间-----------------------------------------------------------------

表三、调查结束表 表名:survey_vote

-----------------------------------------------------------------字段 类型 长度 说明-----------------------------------------------------------------vote_no 自动编号 - 递增、主键、有索引无重复vote_id 长整型 - 有索引有重复,小数位0vote_answer 文本 100 调查答案vote_count 长整型 - 投票数-----------------------------------------------------------------

其中,survey_vote表和survey表的id字段有多对一的关系。并不一定要建立这个关系,但是建立关系会使思路更明确。

三、包含文件

这里所要用到的函数并不多,主要是对数据库进行操作的,如果要防止输入时的HTML等代码,直接用server.htmlencode进行处理就可以了,所以不需要一个专门的函数来处理。我们可以沿用上一篇《跟我学》系列《跟我学做树型菜单》里的包含文件。

共用函数文件,文件名:inc.asp

<%''*******************************************************************''通用数据库ASP函数''*******************************************************************''数据库常数databasename="survey.mdb" ''数据库名,如果改名的话,在这里修改就行了''*******************************************************************''打开数据库sub opendb(connect)set connect=server.CreateObject("ADODB.connection")connect.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_server.MapPath(databasename)connect.Open strconnend sub''*******************************************************************''关闭数据库sub closedb(connect)connect.closeset connect=nothingend sub''*******************************************************************''打开单个表读sub opentable(connect,tbname,myrs)set myrs=server.createobject("ADODB.recordset")rssql="select * from " & tbnamemyrs.open rssql,connect,1,1end sub''*******************************************************************''关闭临时表sub closetable(rs)rs.closeset rs=nothingend sub''*******************************************************************''查询数据库sub searchtable(connect,sql,rs)set rs=server.createobject("ADODB.recordset")rs.open sql,connect,1,1end sub''*******************************************************************''查询并更改数据库sub changetable(connect,sql,rs)set rs=server.createobject("ADODB.recordset")rs.open sql,connect,1,3end sub''*******************************************************************''显示信息 用于调试Sub w(msg)response.write msgend sub''*******************************************************************''程序中断 用于调试sub userstop()response.endend sub%>

四、文件设计

按照传统的思路,我们总是把在线调查设计成三个部份,一、是显示调查表;二、是显示调查统计结果;三是后台管理。而在实际应用中,我们会发现,显示调查表往往是在某个网页中的,显示结果一般也是弹出一个窗口来。后台管理则是通过另一个链接或者登录表单转向到的。为了更方便地使用在线调查,我们把显示调查表部分写成一个JS脚本,让需要显示调查表的网页通过引用脚本的方式来自由地调用它。好,看看文件设计

1、inc.asp 包含文件。主要的函数库

2、surveycode.asp 显示调查表程序。在主网页中使用脚本来调用它。

3、survey.asp 调查表列表程序。列出所有调查的状态。

4、survey_vote.asp 显示调查统计结果程序。带上参数表示调查的问题。

5、survey_manage.asp 管理程序。

在这里,我们略过了页面设计,因为风格设计不是我们所要说的内容,所以关于网页的风格,布局,CSS 等等,请大家自己设计。

五、文件流程

先写出程序的主要流程,可以比较方便于日后修改和扩展、移植。在这里比较重要的是要在程序中写哪些子程序,如何安排这些子程序。

1、surveycode.asp 显示调查表单

<%''获取querystring参数,id 表示调查编号''判断参数正确性''判断调查是否在有效期中。''读取调查问题、类型''输出调查答案,并生成调查表单''关闭数据库及表%>

2、survey.asp 显示所有调查状态

<%''读取数据库%><html>''显示所有调查状态,并加入链接</html>

3、survey_vote.asp 显示统计结果。

这里有两个功能,一是没有提交的显示,二是提交了答案后进行统计,然后显示结果。如果不带参数,就是第一种方式。也可以分为两个文件来完成。

<%''获取参数。id 表示调查编号 所有数据来自form''判断是否有参数,有则先进行统计''没有则直接显示''统计子程序%><html>''显示子程序</html>

4、survey_manage.asp 管理程序。

管理部份比较复杂,要实现较多的功能。先来列一下管理的功能:

1)管理员登录。只有登录后才能进行管理

2)退出登录。完成管理后安全退出。

对调查的管理有:

3)增加一个调查。同时要增加调查答案

4)修改一个调查。修改内容,时间,类型,调查答案的内容、增加、删除

5)删除一个调查。不能删除正在进行的调查。

针对这些功能,来设计它的流程

<%''获取参数。action表示动作,分别对应上面的功能。''根据动作来转向相应的子程序''登录子程序''退出登录子程序''执行增加调查问题子程序''执行增加调查答案子程序''执行修改调查子程序 问题和答案一起修改''执行删除调查问题子程序''执行删除调查答案子程序<html><%''判断是否登录,没有则显示登录表单''根据动作显示相应表单''显示所有调查子程序''显示单个调查子程序。问题和答案一起显示''显示增加调查子程序。''显示登录表单%></html>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有