们能沿用上一篇《跟我学》系列《跟我学做树型菜单》里的包含文件。
    共用函数文件，文件名：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 strconn
    end sub
    *******************************************************************
    关闭数据库
    sub closedb(connect)
    connect.close
    set connect=nothing
    end sub
    *******************************************************************
    打开单个表读
    sub opentable(connect,tbname,myrs)
    set myrs=server.createobject("adodb.recordset") 
    rssql="select * from " &; tbname
    myrs.open rssql,connect,1,1
    end sub
    *******************************************************************
    关闭临时表
    sub closetable(rs)
    rs.close
    set rs=nothing
    end sub
    *******************************************************************
    查询数据库
    sub searchtable(connect,sql,rs)
    set rs=server.createobject("adodb.recordset") 
    rs.open sql,connect,1,1
    end sub
    *******************************************************************
    查询并更改数据库
    sub changetable(connect,sql,rs)
    set rs=server.createobject("adodb.recordset") 
    rs.open sql,connect,1,3
    end sub
    *******************************************************************
    显示信息 用于调试
    sub w(msg)
    response.write msg
    end sub
    *******************************************************************
    程式中断 用于调试
    sub userstop()
    response.end
    end 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 显示统计结果。
    这里有两个功能，一是没有提交的显示，二是提交了答案后进行统计，然后