在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000132 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

asp编码的转换

超漂亮后台完善企业代码V5.0

№ → 发布几个经典的ASP源码

利用asp连接远端Oracle数据库方法!

用ASP生成BMP图片

ASP与存储过程

ASP中对FoxPro自由表(DBF文件)的操作

优化asp数据访问代码

[原创]:DW+ASP.Net实战(五):留言板演示--大结局

[原创]:DW+ASP.Net实战(四):开发中应注意的一些小技巧
发表文章
跟我学做在线调查(一)

作者:xmxoxo     提交人:xmxoxo     发布时间:03-03-22     文章类型:原创     浏览量:3514
参考链结:http://www.he-xi.com    
关键字:在线调查|ASP|跟我学
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000132]

写在前面
    关于在线调查大家一定不会陌生吧,给出一个问题和数个答案,让用户
填写,然后把结果保存到数据库,自动进行统计,最后给出个统计的图。这
期的跟我学做就来做一个在线调查系统。

一、功能设计
    这么简单的系统也要做功能设计?有的人也许会觉得奇怪,不过话说回来
不管怎么样的系统,先做功能设计总是能对系统有个比较清析的了解。让我们
来看看在线调查的功能吧。基本的功能上面已经说了,就是要给出一个问题和数
个答案,然后统计,最后给出图。在这个基础上,我们可以考虑给一个调查加上
一个时间段(有效期),在这个时间段里调查是有效的,过了这段时间就自动结
束这个调查。另外,我们可以指定一个用户一次只能提交一次答案。如果你要限
制得更多,可以指定一个IP只能提交一次答案,不过,这样可能一个网吧里的人
只能有一个提交了。对于调查里的问题,有些可能是单选题,而有些可能是多选
题。最后来说说统计的图,在统计图里要给出答案、每个答案的投票人数,并要
显示出每个答案投票数所占的比例。一般用横的图就可以了,也比较容易实现,
当然,如果你要改成竖的,也可以。
    现在根据上面总结出在线调查的功能如下:
1、数据保存在ACCESS 2000 数据库中;
2、每个用户一次访问可以投票一次
3、给出每个调查的统计情况,用统计图来显示
4、每个调查都有个有效期,过期后自动结束。结束了的调查只能查看结果。
5、管理员可以增加调查,修改调查的答案(增加、修改、删除,修改类型)。
6、对于已经结束的调查,管理员只能删除调查,而不能修改答案。
7、只有一个管理员(单用户)

二、数据库设计
    现在来设计数据库,根据功能要求,至少要有三个表,一是管理员表,二是
调查表,三是调查结果表。数据库文件名为survey.mdb 可以改为.asp 如果改
的话,请在ASP程序中作相应的修改。

表一、 管理员表 表名: manage
-----------------------------------------------------------------
字段                类型            长度          说明
-----------------------------------------------------------------
manage_id          自动编号          -        在这里没用到,日后扩展用
manage_username    文本            15          管理员用户名
manage_password    文本            15          管理员密码
-----------------------------------------------------------------

建立manage表后加入一条新记录,填入你的管理员用户名和密码,在这里填入的是xmxoxo

表二、 调查表 表名: survey
-----------------------------------------------------------------
字段                类型            长度          说明
-----------------------------------------------------------------
survey_id          自动编号          -        递增、主键、有索引无重复
survey_question    文本            255        调查问题
survey_type        是否              -        类型,否:单选 是:多选
survey_stime      日期              -        长日期,开始时间
survey_etime      日期              -        长日期,结束时间
-----------------------------------------------------------------

表三、调查结束表 表名:survey_vote
-----------------------------------------------------------------
字段                类型            长度          说明
-----------------------------------------------------------------
vote_no            自动编号          -          递增、主键、有索引无重复
vote_id            长整型          -          有索引有重复,小数位0
vote_answer        文本            100        调查答案
vote_count        长整型          -          投票数
-----------------------------------------------------------------

其中,survey_vote表和survey表的id字段有多对一的关系。并不一定要建立这个关系,
但是建立关系会使思路更明确。

三、包含文件
    这里所要用到的函数并不多,主要是对数据库进行操作的,如果要防止输入时的
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
%>


    到这里暂告一段落,我们已经完成了调查系统的功能、数据库及函数的设计,下一篇
我们来做文件设计,并逐个完成。再次申明,所有的《跟我学做》系列都仅是给朋友们一个
学习的机会,不欢迎索取完整的程序。对于图片等内容,会适当给出下载地址。为了方便大家
学习,下一篇会尽快发布。

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
xmxoxo        2003/3/26 22:30:00

vote_answer是文字部份,vote_id是对应的问题,应该是
vote_no=a的记录中vote_count加1
实现上在显示表单的时候,某个答案的value就是vote_no
liubo9528        2003/3/25 8:54:00
我要提问的链接坏了所以先借用一下
对于survey_vote表我有点问题:
vote_no            自动编号          -          递增、主键、有索引无重复
vote_id            长整型          -          有索引有重复,小数位0
vote_answer        文本            100        调查答案
vote_count        长整型          -          投票数
当一个用户对某一问题做出选择并提交后,他的数据是不是这样来处理的,
根据他的答案对相应的对数据库进行修改,如果是这样的话,vote_id
所起的作用是什么呢?
如果vote_id是对答案的编号,是不是用户选了A答案,那么相应的
vote_id=A的记录中,vote_answer不变,vote_count加1?
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2019 Yup Studio, all rights reserved.  
242.1875