用ASP学做一个在线调查

六、代码编写

　　做好了流程设计后，写代码就比较有条理了。让我们从简单的开始。在编写代码
之前，我们要先在数据库里输入一些记录，以便做测试。先加入一条调查问题，和几个
调查答案，并手工输入一些统计信息。

　我们先来写显示调查表单的surveycode.asp 这个文件要在其它页面中被调用，所以我们写成JS和VBS混用的方式。调用的时候可以把它放在某个表格中，用下面的语句：

＜SCRIPT Language="JavaScript" SRC="surveycode.asp?id=1"＞＜/SCRIPT＞

　　按照上面的流程，在显示表单前，先要判断一下调查是否存在，是否在进行中。另外，在表单中要提交一个隐藏的参数，来表示调查的问题编号(id)，答案提交的时候，提交的是答案的编号vote_no

　　文件名 surveycode.asp

＜!--#include file="inc.asp" --＞ ＜% id=request.querystring("id") if id＜＞"" then ''如果有参数 opendb my ''联接数据库 sql="select * from survey where survey_id="& id ''查询语句 searchtable my,sql,rs ''查询数据库 if not rs.eof then ''如果有这个调查记录 question=rs("survey_question") ''读出问题 surveytype=rs("survey_type") ''读出答案类型 stime=rs("survey_stime") ''读出开始时间 etime=rs("survey_etime") ''读出结束时间 closetable rs ''关闭表 if stime＜now() and etime＞now() then ''如果调查正在进行中 ''下面输出调查表单 ''先输出表单和问题,表单提交到survey_vote.asp %＞ document.write("＜form action=''survey_vote.asp'' target=''_blank'' method=''post''＞"); document.write("＜table border=''1'' cellpadding=''2'' cellspacing=0'' bordercolorligh=''#000000''"); document.write(" bordercolordark=''#ffffff'' width=''100%'' align=''center''＞＜tbody＞"); document.write("＜tr＞＜td colspan=''2'' align=''center''＞＜b＞＜%=server.htmlencode(question)%＞＜/b＞＜/td＞＜/tr＞"); ＜% sql="select vote_no,vote_answer from survey_vote where vote_id="&id ''查询答案的SQL searchtable my,sql,rs ''执行查询 if not rs.eof then ''如果有答案，就输出 for i=1 to rs.recordcount %＞ document.write("＜tr＞＜td align=''right''＞＜input name=''res'' type=''"); ＜% if surveytype then ''判断类型，显示单选或者多选 %＞ document.write("checkbox"); ＜%else%＞ document.write("radio"); ＜%end if ''下面这句输出答案的文字和提交的值(vote_no)%＞ document.write("'' value=＜%=rs("vote_no")%＞＞＜/td＞＜td＞＜%=rs("vote_answer")%＞＜/td＞＜/tr＞"); ＜% rs.movenext next ''下面几句输出一个隐藏的参数，传递问题编号(id) ''并用一个JS函数来定义点击查看后的链接 %＞ document.write("＜tr＞＜td colspan=''2'' align=''center''＞＜input type=''hidden'' name=''id'' value=''＜%=id%＞''＞"); document.write("＜input type=''submit'' class=button value=''投票''＞ "); document.write("＜input type=button class=button value=''查看'' onclick=''jump(＜%=id%＞)''＞"); document.write("＜/td＞＜/tr＞＜/tbody＞＜/table＞＜/form＞"); function jump(id){ window.open("survey_vote.asp?id="+id,"survey") } ＜% end if end if end if closetable rs closedb my end if %＞

　　在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＞

　　在显示投票过程中，我们用session变量survey_ok来表示是否已经投过票。另外，这显示统计中，引用CSS文件来控制表格的样式，你们可以根据自己的要求自己加入。