⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 listvote.asp

📁 一个FLASH投票源代码,支持多种定义,并附有后台管理
💻 ASP
字号:
<!--#include file="isy.asp"-->
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>显示管理投票 . 公用投票系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="favote.css" rel="stylesheet" type="text/css">
</head>

<body>
<img src="images/top.gif" border="0" usemap="#Map">
<map name="Map">
  <area shape="rect" coords="319,40,423,59" href="listvote.asp">
  <area shape="rect" coords="424,40,521,59" href="addvote.asp">
  <area shape="rect" coords="522,40,628,59" href="editcvote.asp">
  <area shape="rect" coords="629,40,711,59" href="out.asp">
  <area shape="rect" coords="544,10,628,27" href="help.asp" target="_blank">
  <area shape="rect" coords="628,10,707,27" href="http://www.blogcn.com/blog/?u=yifa" target="_blank">
</map>
<% 
			set rs=server.CreateObject("ADODB.Recordset")
 		 	sql="select * from votepro order by id desc"
 		 	rs.open sql,conn,3,1
			if rs.eof then Response.Redirect("rep.asp?operate=rsf")
		 	rs.pagesize=15
		 	thispage=CInt(Trim(Request.QueryString("PAGE")))
			if thispage="" then thispage=1
			if thispage<1 then thispage=1
			if thispage>rs.pagecount then thispage=rs.pagecount
			rs.absolutepage=thispage
 %>
<table width="720" border="0" align="center" cellpadding="1" cellspacing="2">
  <tr> 
    <td  style="border:1px solid #666666;padding:3px;"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
        <tr> 
          <td class="en">All:<%=rs.recordcount%> Per:<%=rs.pagesize%></td>
          <td class="en"> <div align="right">Page:&lt; 
              <% 
		for pagenum=1 to rs.pagecount
		response.Write("&nbsp;<a href=listvote.asp?PAGE="&pagenum&" class=page>"&pagenum&"</a>")
		next
	 %>
              &gt; ThisPage:<%= thispage %> AllPage:<%= rs.pagecount %> </div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="69" style="border:1px solid #666666;padding:3px;"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
        <tr> 
          <td width="3%" bgcolor="#DDDDDD">&nbsp;</td>
          <td width="2%" bgcolor="#E4E6CE"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif">ID</font></div></td>
          <td width="37%" bgcolor="#8FE9FC"> 
            <div align="center">投票项目</div></td>
          <td width="9%" bgcolor="#EDFAB1"> 
            <div align="center">选项条目</div></td>
          <td width="19%" bgcolor="#E3BFC8"> 
            <div align="center">发起时间</div></td>
          <td width="9%" bgcolor="#D1FBBD"> 
            <div align="center">投票总数</div></td>
          <td width="7%" bgcolor="#F7F7F7">
<div align="center">开/关</div></td>
          <td width="7%" bgcolor="#EEEEEE"> 
            <div align="center">修改</div></td>
          <td width="7%" bgcolor="#E3E3E3"> 
            <div align="center">删除</div></td>
        </tr>
        <% 
for i=1 to rs.pagesize
   %>
        <tr> 
          <td><a href="../flashvote.swf?thisvoteid=<%= rs("id") %>" target="_blank"><img src="images/dot.gif" width="22" height="21" border="0"></a></td>
          <td bgcolor="#F9F9F7"  class="en" style="border-bottom:1px solid #E0F2FF;"><div align="center"><%= rs("id") %></div></td>
          <td bgcolor="#E0F8FE" style="border-bottom:1px solid #E0F2FF;padding-left:8px;"><a href="thisvote.asp?voteid=<%= rs("id") %>" target="_blank"><%= rs("voteco") %></a></td>
          <td bgcolor="#F7FCDA" class="en" style="border-bottom:1px solid #F3FBC8;"> 
            <div align="center"> 
              <%
			  votecount=0
	 for j=1 to 5
		if isnull(rs("cs_"&j)) then exit for
		votecount=votecount+rs("cs_"&j&"_num")
	next
	Response.Write(j-1)
	 %>
            </div></td>
          <td bgcolor="#FCF8F9" class="en" style="border-bottom:1px solid #FAF8F2;"><div align="center"><%= rs("vote_time") %></div></td>
          <td bgcolor="#EFFFEE" class="en" style="border-bottom:1px solid #DDFFED;"><div align="center"><%=votecount%></div></td>
          <td><div align="center"><%   if rs("oorc")=true then %><a href="oorcvote.asp?voteid=<%= rs("id") %>&oorc=close" onClick="javascript:if(!confirm('确认关闭此投票')){return false;}"><img src="images/open.gif" alt="关闭此投票" width="22" height="21" border="0"></a><% else %><a href="oorcvote.asp?voteid=<%= rs("id") %>&oorc=open" onClick="javascript:if(!confirm('确认打开此投票')){return false;}"><img src="images/close.gif" alt="打开此投票" width="22" height="21" border="0"></a><%  end if %></div></td>
          <td><div align="center"><a href="editvote.asp?voteid=<%= rs("id") %>"><img src="images/edit.gif" alt="修改" width="22" height="21" border="0"></a></div></td>
          <td><div align="center"><a href="delvote.asp?voteid=<%= rs("id") %>" onClick="javascript:if(!confirm('确认删除此投票')){return false;}"><img src="images/del.gif" alt="删除" width="22" height="21" border="0"></a></div></td>
        </tr>
        <% 
  rs.movenext
  if rs.eof then exit for
  next
  closers
closedb
   %>
      </table></td>
  </tr>
  <tr> 
    <td style="border:1px solid #666666;padding:3px;">图标说明:<img src="images/dot.gif" alt="打开flash投票演示" width="22" height="21" align="absmiddle"> 
      打开flash投票演示 <img src="images/open.gif" alt="打开的投票" width="22" height="21" align="absmiddle">打开的投票 
      <img src="images/close.gif" alt="关闭的投票" width="22" height="21" align="absmiddle"> 
      关闭的投票 <img src="images/edit.gif" alt="编辑投票按钮" width="22" height="21" align="absmiddle">编辑投票按钮 
      <img src="images/del.gif" alt="删除投票按钮" width="22" height="21" align="absmiddle"> 
      删除投票按钮</td>
  </tr>
  <tr>
    <td style="border:1px solid #666666;padding:3px;"><div align="center">设计制作:<strong>蚁伐</strong> 
        Email:postmaster@lygpc.com</div></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -