用ASP学做一个在线调查（2）-普克计算机教程

三、包含文件

　　这里所要用到的函数并不多，主要是对数据库进行操作的，如果要防止输入时的HTML等代码，直接用server.htmlencode进行处理就可以了，所以不需要一个专门的函数来处理。我们可以沿用上一篇《跟我学》系列《跟我学做树型菜单》里的包含文件。

　　共用函数文件，文件名：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 显示统计结果。

　　这里有两个功能，一是没有提交的显示，二是提交了答案后进行统计，然后显示结果。如果不带参数，就是第一种方式。也可以分为两个文件来完成。

＜%
''获取参数。id 表示调查编号所有数据来自form
''判断是否有参数，有则先进行统计
''没有则直接显示
''统计子程序
%＞
＜html＞
''显示子程序
＜/html＞

　　4、survey_manage.asp 管理程序。

　　管理部份比较复杂，要实现较多的功能。先来列一下管理的功能：

　　1)管理员登录。只有登录后才能进行管理

　　2)退出登录。完成管理后安全退出。

　　对调查的管理有：

　　3)增加一个调查。同时要增加调查答案

　　4)修改一个调查。修改内容，时间，类型，调查答案的内容、增加、删除

　　5)删除一个调查。不能删除正在进行的调查。

　　针对这些功能，来设计它的流程

＜%
''获取参数。action表示动作，分别对应上面的功能。
''根据动作来转向相应的子程序
''登录子程序
''退出登录子程序
''执行增加调查问题子程序
''执行增加调查答案子程序
''执行修改调查子程序问题和答案一起修改
''执行删除调查问题子程序
''执行删除调查答案子程序
＜html＞
＜%
''判断是否登录，没有则显示登录表单
''根据动作显示相应表单
''显示所有调查子程序
''显示单个调查子程序。问题和答案一起显示
''显示增加调查子程序。
''显示登录表单
%＞
＜/html＞


	当前位置：普克>>计算机教程>>asp>>ASP应用>>用ASP学做一个在线调查（2）