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

时间：2008-5-31    作者：Deri    分类： 分享 

   <p>　　六、代码编写</p><p>　　做好了流程设计后，写代码就比较有条理了。让我们从简单的开始。在编写代码<br />之前，我们要先在数据库里输入一些记录，以便做测试。先加入一条调查问题，和几个<br />调查答案，并手工输入一些统计信息。</p><p>　　我们先来写显示调查表单的surveycode.asp 这个文件要在其它页面中被调用，所以我们写成JS和VBS混用的方式。调用的时候可以把它放在某个表格中，用下面的语句：</p><p>　　<code>＜SCRIPT Language="JavaScript" SRC="surveycode.asp?id=1"＞＜/SCRIPT＞</code></p><p>　　按照上面的流程，在显示表单前，先要判断一下调查是否存在，是否在进行中。另外，在表单中要提交一个隐藏的参数，来表示调查的问题编号(id)，答案提交的时候，提交的是答案的编号vote_no</p><p>　　文件名 surveycode.asp</p><p>　　<code>＜!--#include file="inc.asp" --＞<br />＜%<br />id=request.querystring("id")<br />if id＜＞"" then ''如果有参数<br />opendb my ''联接数据库<br />sql="select * from survey where survey_id="& id ''查询语句<br />searchtable my,sql,rs ''查询数据库<br />if not rs.eof then ''如果有这个调查记录<br />question=rs("survey_question") ''读出问题<br />surveytype=rs("survey_type") ''读出答案类型<br />stime=rs("survey_stime") ''读出开始时间<br />etime=rs("survey_etime") ''读出结束时间<br />closetable rs ''关闭表<br />if stime＜now() and etime＞now() then ''如果调查正在进行中<br />''下面输出调查表单<br />''先输出表单和问题,表单提交到survey_vote.asp<br />%＞<br />document.write("＜form action=''survey_vote.asp'' target=''_blank'' method=''post''＞");<br />document.write("＜table border=''1'' cellpadding=''2'' cellspacing=0'' bordercolorligh=''#000000''");<br />document.write(" bordercolordark=''#ffffff'' width=''100%'' align=''center''＞＜tbody＞");<br />document.write("＜tr＞＜td colspan=''2'' align=''center''＞＜b＞＜%=server.htmlencode(question)%＞＜/b＞＜/td＞＜/tr＞");<br />＜%<br />sql="select vote_no,vote_answer from survey_vote where vote_id="&id ''查询答案的SQL<br />searchtable my,sql,rs ''执行查询<br />if not rs.eof then ''如果有答案，就输出<br />for i=1 to rs.recordcount<br />%＞<br />document.write("＜tr＞＜td align=''right''＞＜input name=''res'' type=''");<br />＜%<br />if surveytype then ''判断类型，显示单选或者多选<br />%＞<br />document.write("checkbox");<br />＜%else%＞<br />document.write("radio");<br />＜%end if ''下面这句输出答案的文字和提交的值(vote_no)%＞<br />document.write("'' value=＜%=rs("vote_no")%＞＞＜/td＞＜td＞＜%=rs("vote_answer")%＞＜/td＞＜/tr＞");<br />＜%<br />rs.movenext<br />next<br />''下面几句输出一个隐藏的参数，传递问题编号(id)<br />''并用一个JS函数来定义点击查看后的链接<br />%＞<br />document.write("＜tr＞＜td colspan=''2'' align=''center''＞＜input type=''hidden'' name=''id'' value=''＜%=id%＞''＞");<br />document.write("＜input type=''submit'' class=button value=''投票''＞ ");<br />document.write("＜input type=button class=button value=''查看'' onclick=''jump(＜%=id%＞)''＞");<br />document.write("＜/td＞＜/tr＞＜/tbody＞＜/table＞＜/form＞");<br />function jump(id){<br />window.open("survey_vote.asp?id="+id,"survey")<br />}<br />＜%<br />end if<br />end if<br />end if<br />closetable rs<br />closedb my<br />end if<br />%＞</code></p>
<p> </p>

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

   <p>　　在显示投票过程中，我们用session变量survey_ok来表示是否已经投过票。另外，这显示统计中，引用CSS文件来控制表格的样式，你们可以根据自己的要求自己加入。<br />　　八、列出所有调查的状态</p><p>　　现在我们来完成survey.asp，它的主要任务是列出所有的调查状态，包括：</p><p>　　1、调查的问题，链接到投票表单页面（直接写在本页中）；</p><p>　　2、调查的起启时间；</p><p>　　3、调查的结束时间；</p><p>　　4、调查的进行状态：未开始、进行中、已结束；</p><p>　　5、调查的投票数；</p><p>　　6、调查的类型，单选还是多选；</p><p>　　7、另外给出一个链接查看投票结果；</p><p>　　根据这些要求，查询相应的表就可以了，有些语句，比如得到投票总数，SQL语句其实在上面的survey_vote.asp中已经写过了。</p><p>　　列出所有调查的状态 survey.asp</p><p>　　<br /><code>＜!--#include file="inc.asp" --＞<br />＜html＞<br />＜head＞<br />＜title＞在线调查列表＜/title＞<br />＜link rel="stylesheet" href="main.css" type="text/css"＞<br />＜/head＞<br />＜body＞<br />＜%<br />id=request.querystring("id") ''获取参数<br />if id＜＞"" then ''如果有参数，则显示这个调查表单<br />response.write "＜SCRIPT Language=''JavaScript'' SRC=''surveycode.asp?id="&id&"''＞＜/SCRIPT＞"<br />else ''否则调用子程序显示状态<br />disstat()<br />end if<br />''-----显示状态子程序----<br />sub disstat()<br />opendb my ''连接数据库<br />opentable my,"survey",rs ''直接打开表<br />''下面用表格显示每个记录<br />''先显示表头<br />%＞<br />＜table width="760" border="1" cellspacing="0" cellpadding="2"<br />align="center" bordercolorligh="#000000" bordercolordark="#ffffff"＞<br />＜tr＞<br />＜td colspan="8" align="center"＞＜b＞在线调查列表＜/b＞＜/td＞<br />＜/tr＞<br />＜tr ＞<br />＜td width="50" align="center" height="20"＞编号＜/td＞<br />＜td width="200" align="center" height="20"＞调查问题＜/td＞<br />＜td width="50" align="center" height="20"＞类型＜/td＞<br />＜td width="140" align="center" height="20"＞起启时间＜/td＞<br />＜td width="140" align="center" height="20"＞结束时间＜/td＞<br />＜td width="50" align="center" height="20"＞状态＜/td＞<br />＜td width="80" align="center" height="20"＞已投票数＜/td＞<br />＜td width="50" align="center" height="20"＞查看＜/td＞<br />＜/tr＞<br />＜%<br />''下面输出每个记录<br />do while not rs.eof<br />''先读出每个字段<br />id=rs("survey_id")<br />question=rs("survey_question")<br />''读出类型<br />if rs("survey_type") then<br />stype="多选"<br />else<br />stype="单选"<br />end if<br />stime=rs("survey_stime")<br />etime=rs("survey_etime")<br />''判断状态<br />if now()＜stime then<br />stat="未开始"<br />else<br />if now＜etime then<br />stat="进行中"<br />else<br />stat="已结束"<br />end if<br />end if<br />''定义SQL语句，得到答案的数量总和<br />sql="select sum(vote_count) as total from survey_vote where vote_id="& id<br />searchtable my,sql,tmprs ''查询<br />total=tmprs("total")<br />closetable tmprs ''关闭表<br />''下面输出一条记录<br />%＞<br />＜tr ＞<br />＜td align="center" height="20"＞＜%=id%＞＜/td＞<br />＜td height="20"＞<br />＜a href="survey.asp?id=＜%=id%＞"＞＜%=question%＞＜/a＞<br />＜/td＞<br />＜td align="center" height="20"＞＜%=stype%＞＜/td＞<br />＜td align="center" height="20"＞＜%=stime%＞＜/td＞<br />＜td align="center" height="20"＞＜%=etime%＞＜/td＞<br />＜td align="center" height="20"＞＜%=stat%＞＜/td＞<br />＜td align="center" height="20"＞＜%=total%＞＜/td＞<br />＜td align="center" height="20"＞<br />＜a href="survey_vote.asp?id=＜%=id%＞" target="_blank"＞查看＜/a＞<br />＜/td＞<br />＜/tr＞<br />＜%<br />rs.movenext ''移动到下一条，循环<br />loop<br />%＞<br />＜/table＞<br />＜%<br />closetable rs ''关闭表<br />closedb my ''关闭数据库<br />end sub<br />''----------------------<br />%＞<br />＜/body＞<br />＜/html＞</code><br />&#160;九、后台管理</p></p><p>　　在后台管理页面survey_manage.asp中，前面我们已经列出来它所要实现的管理功能。管理的流程是先显示出所有调查，对于还没有开始的调查，可以进行修改、删除；对于已经结束的调查，可以删除，不能修改；对于正在进行的调查，只能修改它的结束时间。用一个参数action来表示动作，含义如下：</p><p>　　1、无参数。表示第一次进入，显示登录表单</p><p>　　2、login 表示执行登录</p><p>　　3、logout 表示执行退出登录</p><p>　　4、showaddquestion 表示显示增加一个调查</p><p>　　5、showsurvey 表示显示一个调查</p><p>　　6、doaddsurvey 表示执行增加一个调查</p><p>　　7、doaddanswer 表示执行增加一个答案</p><p>　　8、dodelsurvey 表示删除一个调查</p><p>　　9、dodelanswer 表示删除一个答案</p><p>　　10、domodify 表示修改一个调查及答案</p></p>