您现在的位置：网页制作教程网 >> 网络编程 >> Asp教程 >> ASP实例教程 >> 文章正文

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

作者:AspCool

来源:AspCool

热度:

2006-12-2 11:11:24

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

  　　八、列出所有调查的状态

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

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

  　　2、调查的起启时间；

  　　3、调查的结束时间；

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

  　　5、调查的投票数；

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

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

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

  　　列出所有调查的状态 survey.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 表示修改一个调查及答案

我来说两句：

查看评论