zoom.asp

功能强大的一个b/s工作站

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<%
if request.querystring("action")="vote" then
  call index_vote()
end if

sub index_vote()
openadmin
today=formatdatetime(now(),2)
sql="select top 1 * from votetopic where vt_expiredate>="&today&" order by vt_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF" align="center">
        <tr> 
          <td class="newshead" bgcolor="#FFFFFF">:: VoteOnline</td>
        </tr>
      </table>
      <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#EFEBEF" class="chinese" align="center">
        <form name="form1" method="post" action="">
          <tr> 
            <td align="center"><%=rs("vt_name")%></td>
          </tr>
<%sql="select * from voteitem where vt_id="&rs("vt_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
          <tr> 
            <td align="center"> 
              <input type="radio" name="item_id" value="<%=rs2("item_id")%>">
              <%=rs2("item_name")%></td>
          </tr>
<%rs2.movenext
loop
if rs2.eof and rs2.bof then%>
          <tr> 
            <td align="center">当前没有投票选项！</td>
          </tr>
<%end if
rs2.close
set rs2=nothing%>
          <tr> 
            <td align="center" height="30"> 
              <input type="submit" name="Submit" value="投票" class="button">
              &nbsp;&nbsp; 
              <input type="button" name="Submit" value="结果" class="button">
            </td>
          </tr>
        </form>
      </table>
<%
rs.close
set rs=nothing
end sub%>