开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > IP电话/视频会议 > 查看源码
vote_list.asp
资源名称：NetPhone.rar　[点击查看]
上传用户：xxtaishan
上传日期：2022-01-02
资源大小：4063k
文件大小：5k
源码类别：

IP电话/视频会议

开发平台：

ASP/ASPX

vote_list.asp：源码内容
  1. <!--#include file="vote_conn.asp"-->
  2. <%
  3. count=20
  4. d=request("id")
  6. if d="" then
  7.     d=0
  8.     page=1
  9.     n=1
  10. else
  11.     page=d
  12.     n=count*(int(d)-1)
  13. end if
  15. set rs=server.createobject("adodb.recordset")
  16. sql="select * from class order by id desc"
  17. rs.open sql,conn,3,1
  18. yushu=rs.recordcount mod count
  20. if yushu=0 then
  21.     totalpage=rs.recordcount/count
  22. else
  23.     totalpage=int(rs.recordcount/count)+1
  24. end if
  26. if int(page)>int(totalpage) then
  27.     page=totalpage
  28. end if
  30. k=0
  31. if d<>0 and int(d)<=int(totalpage) then
  32.     for i=1 to n
  33.         rs.movenext
  34.     next
  35. end if
  36. %>
  37. <html>
  38. <head>
  39. <link rel="stylesheet" type="text/css" href="STYLE.CSS">
  40. <title></title>
  41. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  42. </head>
  44. <body>
  45. <table width="68%" border="0" cellspacing="0" cellpadding="0" align="center" height="30">
  46.   <tr>
  47.     <td><a href="vote_add.asp">添加新的调查项目 </a></td>
  48.   </tr>
  49. </table>
  50. <div align="center">
  51. <center>
  52.     <table width="68%" height="307" border="0" cellpadding="0" cellspacing="0" class="border">
  53.       <tr>
  54.         <td height="26" class="title" width="100%">
  55. <div align="center"><strong>管 理 调 查</strong></div></td>
  56.       </tr>
  57.       <tr bordercolorlight="#000000" class="tdbg">
  58.         <td width="100%"> <br>
  59.             <br>
  60.             <div align="center">
  61.               <center>
  62.                 <table border="0" width="80%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" height="22">
  63.                   <tr>
  64.                     <td width="11%" height="20">
  65.                       <p align="center">ID</td>
  66.                     <td width="62%" height="20">
  67.                       <p align="center">标题</td>
  68.                     <td width="27%" height="20">
  69.                       <p align="center">管理</td>
  70.                   </tr>
  71.                 </table>
  72.               </center>
  73.             </div>
  74.             
  75.             <div align="center">
  76.               <center>
  77.                 
  78.               <table border="0" width="80%" cellspacing="0" cellpadding="0" height="27">
  79.                 <%do while not rs.eof%>
  80.                 <tr>
  81.                     <td width="11%" height="20">
  82.                     <p align="center"><%=rs("id")%></td>
  83.                     <td width="62%" height="20">
  84.                     <p align="center"><a href="vote_show.asp?classid=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td>
  85.                     <td width="27%" height="20">
  86.                     <p align="center"><a href="vote_edit.asp?id=<%=rs("id")%>&style=<%=rs("style")%>">修改</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  87.                       <a href="vote_save.asp?id=del&classid=<%=rs("id")%>">删除</a> 
  88.                   </td>
  89.                   </tr>
  90.   <%if k=count then 
  91.                    exit do
  92.                    end if
  93.                    rs.movenext
  94.                    loop%>
  95.                 </table>
  96.               </center>
  97.             </div>
  98.             
  99.             <form method='GET' action='vote_list.asp'>
  100.               <p align='center'>
  101.                 <% if page>1 then %>
  102.                 <a href='vote_list.asp?<%=(page-1)%>'>&lt;&lt;上一页</a>&nbsp;&nbsp;
  103.                 <%end if%>
  104.                 <% if int(page) < int(totalpage) then %>
  105.                 <a href='vote_list.asp?<%=(page+1)%>'>下一页&gt;&gt;</a>
  106.                 <% end if %>
  107.         【共<font color=red><%=totalpage%></font>页】【第<font color=red><%=page%></font>页】跳转到
  108.         <input style='border-style: solid; border-width: 1' type='text' name='id' size='3'>
  109.         页
  110.         <input type='submit' value='GO' style='border-style: solid; border-width: 1' name='B1'>
  111.         </form>
  112.           <table width="91%" border="0" cellspacing="0" cellpadding="0" height="86" align="center">
  113.             <tr> 
  114.               <td>
  115.                 <p><br>
  116.                   对于单个投票的调用代码说明：<br>
  117.   <%
  118.   dim t
  119.   t=request.servervariables("server_name")&request.servervariables("url")
  120.   t=replace(t,"vote_list.asp","")
  121.   %>
  122.                   &lt;script language="javascript" src=&quot;http://<%=t%>vote_script.asp?<font color="#FF0000">id=5</font>&quot;&gt;&lt;/script&gt;</p>
  123.                 <p align="center">请把这里的<font color="#FF0000">id=5</font>的<font color="#FF0000">5</font>改成相应投票的ID就可以了</p>
  124.               </td>
  125.             </tr>
  126.           </table>
  127.           <p><br>
  128.             <br>
  129.             <br>
  130.           </p>
  131.           </td>
  132.       </tr>
  133.     </table>
  134.   </center>
  135. </div>
  136. <%rs.close
  137. set rs=nothing
  138. conn.close
  139. set conn=nothing%>
  140. </body>
  141. </html>