用ASP学做一个在线调查(2)

核心提示： 在surveycode.asp完成后，我们实现上已经确定了以下几点：1、在survey_vote.asp中，用ASP学做一个在线调查(2)(2)，如果querystring参数id有值，则是查看结果；2、在survey_vote.asp中，得到答案的数量总和sql="select

在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" --＞
＜html＞
＜head＞
＜title＞调查统计结果＜/title＞
＜link rel="stylesheet" href="main.css" type="text/css"＞
＜/head＞
＜body＞
＜%
''上一句先加入包含文件，引用函数。
id=request.querystring("id") ''获取querystring参数id
opendb my ''连接数据库
if id="" then ''如果没有，则不是直接看结果
id=request.form("id") ''获取form参数id
if id＜＞"" then ''如果有值，则是要先统计
surveycount() ''调用统计子程序
end if
end if
if id＜＞"" then
disp_survey() ''不管是哪种，最后都显示结果
end if
closedb my ''关闭数据库
''-----统计子程序-----
sub surveycount()
if session("survey_ok")="" then ''如果还没投票
no=request.form("res") ''得到答案的编号
if no＜＞"" then
''定义SQL语句，让提交的答案数量+1
sql="update survey_vote set vote_count=vote_count+1 where vote_no= in (" & no &")"
my.execute sql
end if
session("survey_ok")="ok"
end if
end sub
''------------------
''---显示结果子程序---
sub disp_survey()
''定义SQL语句，得到调查的问题
sql="select survey_question from survey where survey_id=" & id
searchtable my,sql,rs ''执行查询
question=rs("survey_question") ''把问题存到question中
closetable rs ''关闭表
''定义SQL语句，得到答案的数量总和
sql="select sum(vote_count) as total from survey_vote where vote_id="& id
searchtable my,sql,rs
total=rs("total")
closetable rs ''关闭表
''定义SQL语句，得到所有的答案文本部份及投票数
sql="select vote_answer,vote_count from survey_vote where vote_id=" & id
searchtable my,sql,rs ''执行查询
''下面用表格来输出统计表
%＞
＜table width="500" border="1" align="center" cellpadding="2" cellspacing="0"
bordercolorligh="#000000" bordercolordark="#ffffff"＞
＜tr＞
＜td colspan="4" align="center"＞＜b＞调查统计结果＜/b＞＜/td＞
＜/tr＞
＜tr＞
＜td colspan="4"＞＜b＞调查问题：＜%=question%＞＜/b＞＜/td＞
＜/tr＞
＜tr ＞
＜td width="150" align="center" height="20"＞答案＜/td＞
＜td width="150" align="center" height="20"＞投票率＜/td＞
＜td width="100" align="center" height="20"＞比例＜/td＞
＜td width="100" align="center" height="20"＞票数＜/td＞
＜/tr＞
＜%do while not rs.eof
if total=0 then
percent=0 ''如果没人投票，则百分比为0
else
percent=int(rs("vote_count")/total*10000)/100 ''计算百分比
end if
%＞
＜tr＞
＜td width="150" align="center"＞＜%=rs("vote_answer")%＞＜/td＞
＜td width="150" align="left"＞
＜table border="0" width="＜%=percent%＞" bgcolor="#CCCC00" height="10"＞
＜tr＞
＜td＞＜/td＞
＜/tr＞
＜/table＞
＜/td＞
＜td width="100" align="center"＞＜%=percent%＞%＜/td＞
＜td width="100" align="center"＞＜%=rs("vote_count")%＞＜/td＞
＜/tr＞
＜%
rs.movenext
loop
%＞
＜tr＞
＜td colspan="4"＞ 至 ＜%=now()%＞ 止，共有 ＜%=total%＞ 张投票
＜a href="javascript:window.close()"＞关闭窗口＜/a＞
＜/td＞
＜/tr＞
＜/table＞
＜%
closetable rs ''关闭表
end sub
''------------------
%＞
＜/body＞
＜/html＞