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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
managevote.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：2k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

managevote.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%
  3. dim cls
  4. if session("admin")="" then
  5. Response.Redirect("admin.asp")
  6. else
  7. if session("flag")<>"0" then
  9. cls = Instr(session("flag"), "votefig")
  10. if cls <= 0 then
  11. %>
  12. <script language="javascript">
  13. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  14.   location.href="login.asp";
  15. else
  16.   location.href="index.asp";
  17. </script>
  18. <%
  19. end if
  20. end if
  21. end if
  22. %>
  23. <%
  24. set rs=server.createobject("adodb.recordset")
  25. rs.open "select * from vote order by id desc",conn,1,1
  26. %>
  27. <html>
  28. <head>
  29. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  30. <LINK href="../images/css.css" rel=stylesheet>
  31. <head>
  32. <body>
  34. <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
  35. <form method="POST" action="setvote.asp">
  36. <tr> 
  37. <td colspan="5" align="center" background="../images/admin_bg_1.gif"><b><font color="#ffffff">商城投票管理 </font></b></td>
  38. </tr>
  39. <tr > 
  40. <td width="10%" align="center" bgcolor="fbc2c2">选择</td>
  41. <td width="10%" align="center" bgcolor="fbc2c2">ID</td>
  42. <td width="60%" align="center" bgcolor="fbc2c2">主题</td>
  43. <td width="10%" align="center" bgcolor="fbc2c2">修改</td>
  44. <td width="10%" align="center" bgcolor="fbc2c2">删除</td>
  45. </tr>
  46. <%
  47. do while not rs.eof
  48. %>
  49. <tr > 
  50. <td width="10%" align="center"> 
  51. <input type="radio" value=<%=rs("ID")%><%if rs("IsChecked")=1 then%> checked<%end if%> name="Checked"></td>
  52. <td width="10%" align="center"><%=rs("ID")%>　</td>
  53. <td width="60%"><%=rs("Title")%>　</td>
  54. <td width="10%" align="center"> 
  55. <input onClick="javascript:window.open('modifyvote.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button1" style="font-family: 宋体; font-size: 9pt"></td>
  56. <td width="10%" align="center"> 
  57. <input onClick="javascript:window.open('delvote.asp?id=<%=rs("ID")%>','_self','')" type="button" value="删除" name="button2" style="font-family: 宋体; font-size: 9pt"></td>
  58. </tr>
  59. <%
  60. rs.movenext
  61. loop
  62. rs.close
  63. %>
  64. <tr> 
  65. <td colspan=5 align=center bgcolor=#fbf4f4> 
  66. <input type="submit" value="选定投票项" name="submit" style="font-family: 宋体; font-size: 9pt"> <input onClick="javascript:window.open('addvote.asp','_self','')" type="button" value="添加新投票" name="button" style="font-family: 宋体; font-size: 9pt">
  67. </td>
  68. </tr>
  69. </form>
  70. </table>
  71. <%
  72. set rs=nothing
  73. conn.close
  74. set conn=nothing
  75. %>
  76. </body>
  77. </html>