t,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>
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页 |
