vote_manage.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 65 行

<!--#include file=conn.asp-->
<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF
%>
<%set rs=server.CreateObject("adodb.recordset")
  sql="select * from vote_bigclass order by id desc"
  rs.open sql,conn
%>
<link href="news.css" rel="stylesheet" type="text/css">

<br>
<br>
<br>
<br>
<br>
<br>
<table width="70%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td height="25" valign="middle" bgcolor="abb8d6"> 
      <div align="center"><strong>以下是您所有的投票主题，请进行各自的操作：</strong></div></td>
  </tr>
</table>
<form name="form1" method="post" action="">
  <div align="center">
    <%
if rs.eof and rs.bof then
   response.write "目前还没有投票"
else
%>
    </div>
  <table width="70%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#000000">
    <%do while not rs.eof
       if rs("current")=true then
	      current="激活"
	   else
	      current="未激活"
	   end if
  %>
    <tr bgcolor="#FFFFFF"> 
      <td width="44%" height="21"><a class=bai1 href="vote_edit.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
      <td width="12%"> 
        <div align="center"><a href="vote_add_choice.asp?id=<%=rs("id")%>" class="bai1">添加选项</a></div></td>
      <td width="7%"> 
        <div align="center"><a href="vote_del.asp?id=<%=rs("id")%>" class="bai1" onClick="return test()">删除</a> 
        </div></td>
    </tr>
    <%rs.movenext
	  loop
	  rs.close
	  set rs=nothing
	  %>
  </table>
  <p>&nbsp;  </p>
  <p align="center">
    <%end if%>
  </p>
</form>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>