<!--#include file="../Include/conig.asp"-->
<!--#include file="../Include/Inc_Page.asp"-->
<!--#include file="Admin_check.asp"-->
<%
response.expires = 0 
response.expiresabsolute = now() - 1 
response.addHeader "pragma","no-cache" 
response.addHeader "cache-control","private" 
Response.cachecontrol = "no-cache"
if Instr(session("AdminPurview"),"|912,")=0 then 
  response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  response.end
end if
'========判断是否具有管理权限 
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>投票记录</title>
<LINK href="images/Admin_css.css" type=text/css rel=stylesheet>
<script language="javascript" src="images/Admin.js"></script>
</head>
<body>
<br>
<table width="99%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<form name="myform" method="POST" action="?action=delAll&cli=<%=cli%>">
<tr> 
  <td height="25" colspan="9" align=left background="images/th_bg.gif" class="admintitle">投票记录</td>
</tr>
    <tr bgcolor="#f1f3f5" style="font-weight:bold;">
    <td width="5%" height="25" align="center" bgcolor="#EBF2F9" class="ButtonList">序号</td>
    <td width="8%" align="center" bgcolor="#EBF2F9" class="ButtonList">评选序号</td>
    <td width="8%" align="center" bgcolor="#EBF2F9" class="ButtonList">会员序号</td>
    <td width="8%" height="25" align="center" bgcolor="#EBF2F9" class="ButtonList">投票IP</td>
    <td width="10%" height="25" align="center" bgcolor="#EBF2F9" class="ButtonList">投票来路</td>  
    <td width="35%" height="25" align="center" bgcolor="#EBF2F9" class="ButtonList">来访域名</td> 
    <td width="20%" height="25" align="center" bgcolor="#EBF2F9" class="ButtonList">投票时间</td> 
    <td width="10%" height="25" align="center" bgcolor="#EBF2F9" class="ButtonList">管理</td>
   <td width="50" height="25" align="center" bgcolor="#EBF2F9" class="ButtonList"><input onClick="CheckOthers(this.form)" name="buttonOtherSelect" type="button" class="button"  id="submitOtherSelect" value="选择" style="HEIGHT: 18px;WIDTH: 32px;"></td>
    </tr>
<%
Set mypage=new xdownpage
mypage.getconn=conn
mysql="select * from Web_rui_v_Record order by id desc"
mypage.getsql=mysql
mypage.pagesize=15
set rs=mypage.getrs()
for i=1 to mypage.pagesize
    if not rs.eof then 
%>
    <tr>
    <td height="25" align="center" bgcolor="#EBF2F9"><%=rs("ID")%></td>
    <td bgcolor="#EBF2F9"><a href="Admin_Po.asp?Result=Modify&ID=<%=rs("Voteid")%>"><%=left(GlHtml(rs("Voteid")),30)%></a></td>
    <td align="center" bgcolor="#EBF2F9"><%=rs("Userid")%></td>
    <td align="center" bgcolor="#EBF2F9"><%=rs("Hostip")%></td>
    <td align="center" bgcolor="#EBF2F9"><%=rs("HostAd")%></td>
    <td bgcolor="#EBF2F9"><%=rs("HostUl")%></td>
    <td align="center" bgcolor="#EBF2F9"><%=rs("AddTime")%></td>
    <td align="center" bgcolor="#EBF2F9"><a href="?action=del&SelectID=<%=rs("ID")%>">删除</a></td>
    <td lign="center" bgcolor="#EBF2F9"><input type="checkbox" value="<%=rs("ID")%>" name="ID" onClick="unselectall(this.form)" style="border:0;"></td>
    </tr>
<%
rs.movenext
    else
         exit for
    end if
next
%>
<tr><td height="25" align="center" bgcolor="#EBF2F9"><input name="Action" type="hidden"  value="Del"><input name="chkAll" type="checkbox" id="chkAll" onClick=CheckAll(this.form) value="checkbox" style="border:0"></td>
  <td colspan="9" align="right" bgcolor="#EBF2F9"><input name="Del" type="submit" class="button" id="Del" value="删除记录"></td>
  </tr>
<tr><td bgcolor="#EBF2F9" colspan="9">
<div class="LPageBar">
<%=mypage.showpage()%>
</div>
</td>
</tr>
</form>
</table>
<%
dim SelectID,ID
If Request.QueryString("action")="delAll" Then
   ID=Trim(Request("ID"))
	set rs=conn.execute("delete from Web_rui_v_Record where ID In (" & ID & ")")
   	Response.write"<script>alert(""删除成功！"");location.href=""Admin_Record.asp"";</script>"
End If
if Request.QueryString("action")="del" then 
	SelectID=request("SelectID")
    if SelectID<>"" then  conn.execute "delete from Web_rui_v_Record where id in ("&SelectID&")"
	Response.write"<script>alert(""删除成功！"");location.href=""Admin_Record.asp"";</script>"
end if
rs.close
set rs=nothing
%>
</body>
</html>