<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../setup.asp"-->
<!--#include file="conn.asp"-->
<%
id=request("id")
if request("doact")="del" then
conn.execute("delete from vname where id="&cint(id))
conn.execute("delete from vitem where vid="&cint(id))
end if%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../img/css.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=site_name%></title>
<script language=javascript>
function SureDel(id)
{
    if ( confirm("警告!你是否真的要删除？"))
        {
            window.location.href = "viewvote.asp?doact=del&id=" + id
        }
}
</script>
</head>
<body>
<table style="border:1px solid #6699CC" width="641" border="0" align="center" cellpadding="1" cellspacing="0" bordercolor="#CCCCCC">
  <tr valign="top"> 
    <td height="44" colspan="6" align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="27" align="center" bgcolor="#6699CC"><font color="#FFFFFF"><strong>本站历史全部投票</strong></font></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td width="39">序号</td>
    <td width="339">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 投票标题</td>
    <td width="27">&nbsp;</td>
    <td width="37">&nbsp;</td>
    <td width="100">是否可重复投票&nbsp;</td>
    <td width="61">投票类型&nbsp;</td>
  </tr>
  <%set rs=server.createobject("ADODB.recordset")
sql="select * from vname "
rs.open sql,conn,1,1
	do while not rs.eof %>
  <tr> 
    <td height="4" colspan="6">
      <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="4"  background="../img/dline.gif"></td>
        </tr>
      </table>
	 </td>
  </tr>
  <tr> 
    <td height="20">&nbsp;<%=rs("id")%></td>
    <td> &nbsp;&nbsp;&nbsp;&nbsp;<%=rs("title")%></td>
    <td><a href="toupiao.asp?vid=<%=rs("id")%>" class="xiahua" target="_blank">投票</a></td>
    <td>&nbsp;&nbsp;<a href="view.asp?vid=<%=rs("id")%>" class="xiahua" target="_blank">结果</a></td>
    <td align="center"> 
      <%if rs("cf")="y" then response.Write("可以") else response.Write("不可以") end if%>
      &nbsp;</td>
    <td align="center"> 
      <%if rs("kind")="1" then response.Write("单选") else response.Write("多选") end if%>
      &nbsp;</td>
  </tr>
  <%rs.movenext
	loop
	rs.close
	conn.close
	%>
</table>
<br /> 
</body>
</html>
