六、代码编写
    做好了流程设计后，写代码就比较有条理了。让我们从简单的开始。在编写代码
    之前，我们要先在数据库里输入一些记录，以便做测试。先加入一条调查问题，和几个
    调查答案，并手工输入一些统计信息。
    我们先来写显示调查表单的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=center＞＜b＞＜%=server.htmlencode(question)%＞＜/b＞＜/td＞＜/tr＞");
    ＜%
    sql="select vote_no,vote_answer from survey_vote where vote_id="&;id 查询答案的sql
    searchtable my,sql,rs 执行查询
    if not rs.eof then 如果有答案，就输出
    for i=1 to rs.recordcount
    %＞ 
    document.write("＜tr＞＜td align=right＞＜input name=res type=");
    ＜%
    if surveytype then 判断类型，显示单选或多选
    %＞
    document.write("checkbox");
    ＜%else%＞ 
    document.write("radio");
    ＜%end if 下面这句输出答案的文字和提交的值(vote_no)%＞
    document.write(" value=＜%=rs("vote_no")%＞＞＜/td＞＜td＞＜%=rs("vote_answer")%＞＜/td＞＜/tr＞");
    ＜%
    rs.movenext
    next
    下面几句输出一个隐藏的参数，传递问题编号(id)
    并用一个js函数来定义点击查看后的链接
    %＞
    document.write("＜tr＞＜td colspan=2 align=center＞＜input type=hidden name=id value=＜%=id%＞＞");
    document.write("＜input type=submit class=button value=投票＞ ");
    document.write("＜input type=button class=button value=查看 onclick=jump(＜%=id%＞)＞");
    document.write("＜/td＞＜/t
    r＞＜/tbody＞＜/table＞＜/form＞");
    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;
    七、统计结果
    首先我们来完成和surveycode.asp最密切相关的显示统计结果survey_vote.asp文件。在上一篇的结尾，我们已说明了在surveycode.asp中确定的一些参数。
    统计结果 survey_vote.asp
    ＜!--#include file="inc.asp" --＞
    ＜ht