显示结果。如果不带参数，就是第一种方式。也能分为两个文件来完成。
    ＜%
    获取参数。id 表示调查编号 所有数据来自form
    判断是否有参数，有则先进行统计
    没有则直接显示
    统计子程式
    %＞
    ＜html＞
    显示子程式
    ＜/html＞ 
    4、survey_manage.asp 管理程式。
    管理部份比较复杂，要实现较多的功能。先来列一下管理的功能：
    1)管理员登录。只有登录后才能进行管理
    2)退出登录。完成管理后安全退出。
    对调查的管理有：
    3)增加一个调查。同时要增加调查答案
    4)修改一个调查。修改内容，时间，类型，调查答案的内容、增加、删除
    5)删除一个调查。不能删除正在进行的调查。
    针对这些功能，来设计他的流程
    ＜%
    获取参
    数。action表示动作，分别对应上面的功能。
    根据动作来转向相应的子程式
    登录子程式
    退出登录子程式
    执行增加调查问题子程式
    执行增加调查答案子程式
    执行修改调查子程式 问题和答案一起修改
    执行删除调查问题子程式
    执行删除调查答案子程式
    ＜html＞
    ＜%
    判断是否登录，没有则显示登录表单
    根据动作显示相应表单
    显示所有调查子程式
    显示单个调查子程式。问题和答案一起显示
    显示增加调查子程式。
    显示登录表单
    %＞
    ＜/html＞  
    六、代码编写
    做好了流程设计后，写代码就比较有条理了。让我们从简单的开始。在编写代码
    之前，我们要先在数据库里输入一些记录，以便做测试。先加入一条调查问题，和几个
    调查答案，并手工输入一些统计信息。
    我们先来写显示调查表单的surveycode.asp 这个文件要在其他页面中被调用，所以我们写成js和vbs混用的方式。调用的时候能把他放在某个表格中，用下面的语句：
    ＜script language="javascript" src="surveycode.asp?id=1"＞＜/script＞
    按照上面的流程，在显示表单前，先要判断一下调查是否存在，是否在进行中。另外，在表单中要提交一个隐藏的参数，来表示调查的问题编号(id)，答案提交的时候，提交的是答案的编号vote_no
    文件名 surveycode.asp
    ＜!--#include file="inc.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＜now() and etime＞now() then 如果调查正在进行中
    下面输出调查表单
    先输出表单和问题,表单提交到survey_vote.asp
    %＞
    document.write("＜form action=survey_vote.asp target=_blank method=post＞");
    document.write("＜table border=1 cellpadding=2 cellspacing=0 bordercolorligh=#000000");
    document.write(" bordercolordark=#ffffff width=100% align=center＞＜tbody＞");
    document.write("＜tr＞＜td colspan=2 align=cen