<p> 关于在线调查大家一定不会陌生吧，给出一个问题和数个答案，让用户填写，然后把结果保存到数据库，自动进行统计，最后给出个统计的图。这期的跟我学做就来做一个在线调查系统。 </p><p> 一、功能设计</p><p> 这么简单的系统也要做功能设计？有的人也许会觉得奇怪，不过话说回来不管怎么样的系统，先做功能设计总是能对系统有个比较清析的了解。让我们来看看在线调查的功能吧。基本的功能上面已经说了，就是要给出一个问题和数个答案，然后统计，最后给出图。在这个基础上，我们可以考虑给一个调查加上一个时间段（有效期），在这个时间段里调查是有效的，过了这段时间就自动结束这个调查。另外，我们可以指定一个用户一次只能提交一次答案。如果你要限制得更多，可以指定一个IP只能提交一次答案，不过，这样可能一个网吧里的人只能有一个提交了。对于调查里的问题，有些可能是单选题，而有些可能是多选 题。最后来说说统计的图，在统计图里要给出答案、每个答案的投票人数，并要显示出每个答案投票数所占的比例。一般用横的图就可以了，也比较容易实现，当然，如果你要改成竖的，也可以。</p><p> 现在根据上面总结出在线调查的功能如下：</p><p> 1、数据保存在ACCESS 2000 数据库中；</p><p> 2、每个用户一次访问可以投票一次</p><p> 3、给出每个调查的统计情况，用统计图来显示</p><p> 4、每个调查都有个有效期，过期后自动结束。结束了的调查只能查看结果。</p><p> 5、管理员可以增加调查，修改调查的答案（增加、修改、删除，修改类型）。</p><p> 6、对于已经结束的调查，管理员只能删除调查，而不能修改答案。</p><p> 7、只有一个管理员（单用户）</p><p> 二、数据库设计</p><p> 现在来设计数据库，根据功能要求，至少要有三个表，一是管理员表，二是调查表，三是调查结果表。数据库文件名为survey.mdb 可以改为.asp 如果改的话，请在ASP程序中作相应的修改。</p>
<p> </p>
<p> 表一、 管理员表 表名: manage<br />-----------------------------------------------------------------<br />字段 类型 长度 说明<br />-----------------------------------------------------------------<br />manage_id 自动编号 - 在这里没用到，日后扩展用<br />manage_username 文本 15 管理员用户名<br />manage_password 文本 15 管理员密码<br />-----------------------------------------------------------------</p><p> 建立manage表后加入一条新记录，填入你的管理员用户名和密码，在这里填入的是xmxoxo</p><p> 表二、 调查表 表名: survey<br />-----------------------------------------------------------------<br />字段 类型 长度 说明<br />-----------------------------------------------------------------<br />survey_id 自动编号 - 递增、主键、有索引无重复<br />survey_question 文本 255 调查问题<br />survey_type 是否 - 类型，否:单选 是:多选<br />survey_stime 日期 - 长日期，开始时间<br />survey_etime 日期 - 长日期，结束时间<br />-----------------------------------------------------------------</p><p> 表三、调查结束表 表名:survey_vote</p><p> -----------------------------------------------------------------<br />字段 类型 长度 说明<br />-----------------------------------------------------------------<br />vote_no 自动编号 - 递增、主键、有索引无重复<br />vote_id 长整型 - 有索引有重复，小数位0<br />vote_answer 文本 100 调查答案<br />vote_count 长整型 - 投票数<br />-----------------------------------------------------------------</p>
<p> </p>
<p> 其中，survey_vote表和survey表的id字段有多对一的关系。并不一定要建立这个关系，但是建立关系会使思路更明确。</p><p> 三、包含文件<br /> 这里所要用到的函数并不多，主要是对数据库进行操作的，如果要防止输入时的HTML等代码，直接用server.htmlencode进行处理就可以了，所以不需要一个专门的函数来处理。我们可以沿用上一篇《跟我学》系列《跟我学做树型菜单》里的包含文件。<br /> 共用函数文件，文件名：inc.asp</><p> <code>＜%<br />''*******************************************************************<br />''通用数据库ASP函数<br />''*******************************************************************<br />''数据库常数<br />databasename="survey.mdb" ''数据库名,如果改名的话，在这里修改就行了<br />''*******************************************************************<br />''打开数据库<br />sub opendb(connect)<br />set connect=server.CreateObject("ADODB.connection")<br />connect.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_<br />server.MapPath(databasename)<br />connect.Open strconn<br />end sub<br />''*******************************************************************<br />''关闭数据库<br />sub closedb(connect)<br />connect.close<br />set connect=nothing<br />end sub<br />''*******************************************************************<br />''打开单个表读<br />sub opentable(connect,tbname,myrs)<br />set myrs=server.createobject("ADODB.recordset")<br />rssql="select * from " & tbname<br />myrs.open rssql,connect,1,1<br />end sub<br />''*******************************************************************<br />''关闭临时表<br />sub closetable(rs)<br />rs.close<br />set rs=nothing<br />end sub<br />''*******************************************************************<br />''查询数据库<br />sub searchtable(connect,sql,rs)<br />set rs=server.createobject("ADODB.recordset")<br />rs.open sql,connect,1,1<br />end sub<br />''*******************************************************************<br />''查询并更改数据库<br />sub changetable(connect,sql,rs)<br />set rs=server.createobject("ADODB.recordset")<br />rs.open sql,connect,1,3<br />end sub<br />''*******************************************************************<br />''显示信息 用于调试<br />Sub w(msg)<br />response.write msg<br />end sub<br />''*******************************************************************<br />''程序中断 用于调试<br />sub userstop()<br />response.end<br />end sub<br />%＞ </code></p>
<p> </p>
<p> 四、文件设计</p><p> 按照传统的思路，我们总是把在线调查设计成三个部份，一、是显示调查表；二、是显示调查统计结果；三是后台管理。而在实际应用中，我们会发现，显示调查表往往是在某个网页中的，显示结果一般也是弹出一个窗口来。后台管理则是通过另一个链接或者登录表单转向到的。为了更方便地使用在线调查，我们把显示调查表部分写成一个JS脚本，让需要显示调查表的网页通过引用脚本的方式来自由地调用它。好，看看文件设计</p><p> 1、inc.asp 包含文件。主要的函数库</p><p> 2、surveycode.asp 显示调查表程序。在主网页中使用脚本来调用它。</p><p> 3、survey.asp 调查表列表程序。列出所有调查的状态。</p><p> 4、survey_vote.asp 显示调查统计结果程序。带上参数表示调查的问题。</p><p> 5、survey_manage.asp 管理程序。</p><p> 在这里，我们略过了页面设计，因为风格设计不是我们所要说的内容，所以关于网页的风格，布局，CSS 等等，请大家自己设计。</p><p> 五、文件流程</p><p> 先写出程序的主要流程，可以比较方便于日后修改和扩展、移植。在这里比较重要的是要在程序中写哪些子程序，如何安排这些子程序。</p><p> 1、surveycode.asp 显示调查表单</p><p> <code>＜%<br />''获取querystring参数，id 表示调查编号<br />''判断参数正确性<br />''判断调查是否在有效期中。<br />''读取调查问题、类型<br />''输出调查答案，并生成调查表单<br />''关闭数据库及表<br />%＞</code></p><p> 2、survey.asp 显示所有调查状态</p><p> <code>＜%<br />''读取数据库<br />%＞<br />＜html＞<br />''显示所有调查状态，并加入链接<br />＜/html＞ </code></p>
<p> </p>
<p> 3、survey_vote.asp 显示统计结果。</p><p> 这里有两个功能，一是没有提交的显示，二是提交了答案后进行统计，然后显示结果。如果不带参数，就是第一种方式。也可以分为两个文件来完成。</p><p> <code>＜%<br />''获取参数。id 表示调查编号 所有数据来自form<br />''判断是否有参数，有则先进行统计<br />''没有则直接显示<br />''统计子程序<br />%＞<br />＜html＞<br />''显示子程序<br />＜/html＞</code></p><p> 4、survey_manage.asp 管理程序。</p><p> 管理部份比较复杂，要实现较多的功能。先来列一下管理的功能：</p><p> 1)管理员登录。只有登录后才能进行管理</p><p> 2)退出登录。完成管理后安全退出。</p><p> 对调查的管理有：</p><p> 3)增加一个调查。同时要增加调查答案</p><p> 4)修改一个调查。修改内容，时间，类型，调查答案的内容、增加、删除</p><p> 5)删除一个调查。不能删除正在进行的调查。</p><p> 针对这些功能，来设计它的流程</p><p> <code>＜%<br />''获取参数。action表示动作，分别对应上面的功能。<br />''根据动作来转向相应的子程序<br />''登录子程序<br />''退出登录子程序<br />''执行增加调查问题子程序<br />''执行增加调查答案子程序<br />''执行修改调查子程序 问题和答案一起修改<br />''执行删除调查问题子程序<br />''执行删除调查答案子程序<br />＜html＞<br />＜%<br />''判断是否登录，没有则显示登录表单<br />''根据动作显示相应表单<br />''显示所有调查子程序<br />''显示单个调查子程序。问题和答案一起显示<br />''显示增加调查子程序。<br />''显示登录表单<br />%＞<br />＜/html＞</code></p>