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

　2006-04-08 11:59:55　来源：WEB开发网　　　

核心提示： 在显示投票过程中，我们用session变量survey_ok来表示是否已经投过票，用ASP学做一个在线调查(2)(3)，另外，这显示统计中，用一个参数action来表示动作，含义如下：1、无参数，引用CSS文件来控制表格的样式，你们可以根据自己的要求自己加入

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

现在我们来完成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＞
九、后台管理