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

📄 votemanage.asp

📁 购物系统(本版为正式商业版
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.asp';</script>"
response.End
end if
'if session("flag")>1 then
'response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限!</b></font></div>"
'response.End
'end if
'if qx15<>1 then
'response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限!</b></font></div>"
'response.End
'end if

set rs=server.createobject("adodb.recordset")
rs.open "select * From shop_toupiao order by id desc",conn,1,1
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css.css" rel=stylesheet>
<title>投票管理</title>
</head>
<body  topmargin="0">
<center>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/right_top2.gif">
    <tr>
      <td width="1%">&nbsp;</td>
      <td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
          <tr>
            <td width="30%" height="32" style="font-size:14px;color:#000000">&nbsp;<strong><b>管理投票</b></strong></td>
            <td width="70%" align="right">&nbsp;</td>
          </tr>
      </table></td>
    </tr>
  </table>
  <br>
  <table border="0" width="90%" cellspacing="1" cellpadding="3" style="border-collapse: collapse" align=center bgcolor="#9DB2D4">
      <tr height=20 bgcolor="#C7D3E6"> 
        <td width="14%" align="center">分类</td>
        <td width="14%" align="center"> 是否显示</td>
        <td width="11%" align="center">ID</td>
        <td width="40%" align="center">主题</td>
        <td width="10%" align="center">修改</td>
        <td width="11%" align="center">删除</td>
      </tr>
      <%
do while not rs.eof
%>
      <tr height=20 bgcolor="#F0F3F8"> 
        <td width="14%" align="center"> 
		
          <%if rs("classid")=0 then
		  	response.write "首页"
else		  
		  set rs1=server.createobject("adodb.recordset")
        rs1.open "select * from shop_anclass where anclassid="&rs("classid"),conn,1,1
	if rs1.eof and rs1.bof then
	response.write "请先添加栏目。"
	response.end
	else
	response.write rs1("anclass")
	end if
        rs1.close
		end if
%>
        </td>
        <td width="14%" align="center"><%if rs("IsChecked")=1 then%>显示<%else%>不显示<%end if%></td>
        <td width="11%" align="center"><%=rs("ID")%> </td>
        <td width="40%"><%=rs("Title")%> </td>
        <td width="10%" align="center"> 
          <input onClick="javascript:window.open('voteModify.asp?id=<%=rs("ID")%>','_self','')" type="button" value="修改" name="button1" class="go-wenbenkuang">
        </td>
        <td width="11%" align="center"> 
          <input onClick="javascript:window.open('voteDel.asp?id=<%=rs("ID")%>','_self','')" type="button" value="删除" name="button2" class="go-wenbenkuang">
        </td>
      </tr>
      <%
rs.movenext
loop
rs.close
%>
      <tr bgcolor="#F0F3F8"> 
        <td colspan=6 align=center><input onClick="javascript:window.open('voteAdd.asp','_self','')" type="button" value="添加新投票" name="button" class="go-wenbenkuang"> 
        </td>
      </tr>
  </table>
<%
set rs=nothing
conn.close
set conn=nothing%>
</center>
</body></html>

⌨️ 快捷键说明

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