续上篇
上一篇中我们已经分析了在线调查的功能，数据库结构以及所要用到的一些
函数。这一篇的主要任务就是文件的设计。设计出要有多少个文件来构成这个在线
调查，每个文件又分担什么任务。并写出这些文件的主要流程，以方便后面的代码编
写。
一、文件设计
按照传统的思路，我们总是把在线调查设计成三个部份，一是显示调查表；二
是显示调查统计结果；三是后台管理。而在实际应用中，我们会发现，显示调查表
往往是在某个网页中的，显示结果一般也是弹出一个窗口来。后台管理则是通过另一
个链接或者登录表单转向到的。为了更方便地使用在线调查，我们把显示调查表部分
写成一个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 显示所有调查状态
<%
'读取数据库
%>
'显示所有调查状态，并加入链接
3、survey_vote.ASP 显示统计结果。
这里有两个功能，一是没有提交的显示，二是提交了答案后进行统计，然后显示
结果。如果不带参数，就是第一种方式。也可以分为两个文件来完成。
<%
'获取参数。id 表示调查编号 所有数据来自form
'判断是否有参数，有则先进行统计
'没有则直接显示
'统计子程序
%>
'显示子程序
4、survey_manage.ASP 管理程序。
管理部份比较复杂，要实现较多的功能。先来列一下管理的功能：
1)管理员登录。只有登录后才能进行管理
2)退出登录。完成管理后安全退出。
对调查的管理有：
3)增加一个调查。同时要增加调查答案
4)修改一个调查。修改内容，时间，类型，调查答案的内容、增加、删除
5)删除一个调查。不能删除正在进行的调查。
针对这些功能，来设计它的流程
<%
'获取参数。action表示动作，分别对应上面的功能。
'根据动作来转向相应的子程序
'登录子程序
'退出登录子程序
'执行增加调查问题子程序
'执行增加调查答案子程序
'执行修改调查子程序 问题和答案一起修改
'执行删除调查问题子程序
'执行删除调查答案子程序
<%
'判断是否登录，没有则显示登录表单
'根据动作显示相应表单
'显示所有调查子程序
'显示单个调查子程序。问题和答案一起显示
'显示增加调查子程序。
'显示登录表单
%>
三、代码编写
做好了流程设计后，写代码就比较有条理了。让我们从简单的开始。在编写代码
之前，我们要先在数据库里输入一些记录，以便做测试。先加入一条调查问题，和几个
调查答案，并手工输入一些统计信息。
我们先来写显示调查表单的surveycode.ASP 这个文件要在其它页面中被调用，
所以我们写成JS和VBS混用的方式。调用的时候可以把它放在某个表格中，用下面的语句：
按照上面的流程，在显示表单前，先要判断一下调查是否存在，是否在进行中。另外，
在表单中要提交一个隐藏的参数，来表示调查的问题编号(id)，答案提交的时候，提交的
是答案的编号vote_no
文件名 surveycode.ASP
<%
id=request.querystring("id")
if id<>"" then '如果有参数
opendb my '联接数据库
sql="select * from survey where survey_id="& id '查询语句
searchtable my,sql,rs '查询数据库
if not rs.eof then '如果有这个调查记录
question=rs("survey_question") '读出问题
surveytype=rs("survey_type") '读出答案类型
stime=rs("survey_stime") '读出开始时间
etime=rs("survey_etime") '读出结束时间
closetable rs '关闭表
if stime
'下面输出调查表单
'先输出表单和问题,表单提交到survey_vote.ASP
%>
document.write("
");function jump(id){
window.open("survey_vote.ASP?id="+id,"survey")
}
<%
end if
end if
end if
closetable rs
closedb my
end if
%>
在surveycode.ASP完成后，我们实现上已经确定了以下几点：
1、在survey_vote.ASP中，如果querystring参数id有值，则是查看结果；
2、在survey_vote.ASP中，如果form参数id有值，则要先进行统计；
3、在survey_vote.ASP中，提交来的form参数res是答案的编号vote_no;
好，到这里我们已经完成了显示调查表单的部份；下面一篇我们将完成其它的部份。