用ASP学做一个在线调查

八、列出所有调查的状态

　　现在我们来完成survey.asp，它的主要任务是列出所有的调查状态，包括：

　　1、调查的问题，链接到投票表单页面（直接写在本页中）；

　　2、调查的起启时间；

　　3、调查的结束时间；

　　4、调查的进行状态：未开始、进行中、已结束；

　　5、调查的投票数；

　　6、调查的类型，单选还是多选；

　　7、另外给出一个链接查看投票结果；

　　根据这些要求，查询相应的表就可以了，有些语句，比如得到投票总数，SQL语句其实在上面的survey_vote.asp中已经写过了。

　　列出所有调查的状态 survey.asp

＜!--#include file="inc.asp" --＞ ＜html＞ ＜head＞ ＜title＞在线调查列表＜/title＞ ＜link rel="stylesheet" href="main.css" type="text/css"＞ ＜/head＞ ＜body＞ ＜% id=request.querystring("id") ''获取参数 if id＜＞"" then ''如果有参数，则显示这个调查表单 response.write "＜SCRIPT Language=''JavaScript'' SRC=''surveycode.asp?id="&id&"''＞＜/SCRIPT＞" else ''否则调用子程序显示状态 disstat() end if ''-----显示状态子程序---- sub disstat() opendb my ''连接数据库 opentable my,"survey",rs ''直接打开表 ''下面用表格显示每个记录 ''先显示表头 %＞ ＜table width="760" border="1" cellspacing="0" cellpadding="2" align="center" bordercolorligh="#000000" bordercolordark="#ffffff"＞ ＜tr＞ ＜td colspan="8" align="center"＞＜b＞在线调查列表＜/b＞＜/td＞ ＜/tr＞ ＜tr ＞ ＜td width="50" align="center" height="20"＞编号＜/td＞ ＜td width="200" align="center" height="20"＞调查问题＜/td＞ ＜td width="50" align="center" height="20"＞类型＜/td＞ ＜td width="140" align="center" height="20"＞起启时间＜/td＞ ＜td width="140" align="center" height="20"＞结束时间＜/td＞ ＜td width="50" align="center" height="20"＞状态＜/td＞ ＜td width="80" align="center" height="20"＞已投票数＜/td＞ ＜td width="50" align="center" height="20"＞查看＜/td＞ ＜/tr＞ ＜% ''下面输出每个记录 do while not rs.eof ''先读出每个字段 id=rs("survey_id") question=rs("survey_question") ''读出类型 if rs("survey_type") then stype="多选" else stype="单选" end if stime=rs("survey_stime") etime=rs("survey_etime") ''判断状态 if now()＜stime then stat="未开始" else if now＜etime then stat="进行中" else stat="已结束" end if end if ''定义SQL语句，得到答案的数量总和 sql="select sum(vote_count) as total from survey_vote where vote_id="& id searchtable my,sql,tmprs ''查询 total=tmprs("total") closetable tmprs ''关闭表 ''下面输出一条记录 %＞ ＜tr ＞ ＜td align="center" height="20"＞＜%=id%＞＜/td＞ ＜td height="20"＞ ＜a href="survey.asp?id=＜%=id%＞"＞＜%=question%＞＜/a＞ ＜/td＞ ＜td align="center" height="20"＞＜%=stype%＞＜/td＞ ＜td align="center" height="20"＞＜%=stime%＞＜/td＞ ＜td align="center" height="20"＞＜%=etime%＞＜/td＞ ＜td align="center" height="20"＞＜%=stat%＞＜/td＞ ＜td align="center" height="20"＞＜%=total%＞＜/td＞ ＜td align="center" height="20"＞ ＜a href="survey_vote.asp?id=＜%=id%＞" target="_blank"＞查看＜/a＞ ＜/td＞ ＜/tr＞ ＜% rs.movenext ''移动到下一条，循环 loop %＞ ＜/table＞ ＜% closetable rs ''关闭表 closedb my ''关闭数据库 end sub ''---------------------- %＞ ＜/body＞ ＜/html＞

　　九、后台管理

　　在后台管理页面survey_manage.asp中，前面我们已经列出来它所要实现的管理功能。管理的流程是先显示出所有调查，对于还没有开始的调查，可以进行修改、删除；对于已经结束的调查，可以删除，不能修改；对于正在进行的调查，只能修改它的结束时间。用一个参数action来表示动作，含义如下：

　　1、无参数。表示第一次进入，显示登录表单

　　2、login 表示执行登录

　　3、logout 表示执行退出登录

　　4、showaddquestion 表示显示增加一个调查

　　5、showsurvey 表示显示一个调查

　　6、doaddsurvey 表示执行增加一个调查

　　7、doaddanswer 表示执行增加一个答案

　　8、dodelsurvey 表示删除一个调查

　　9、dodelanswer 表示删除一个答案

　　10、domodify 表示修改一个调查及答案

查看本文来源