📄 admin_voteman.asp

📁 大榕树网络文章管理系统
💻 ASP
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=4
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="admin_Function.asp" -->

<%
dim rs,page,i,filepath,errmsg
set rs=server.createobject("ADODB.Recordset")
rs.open"select * from vote order by voteid desc",conn,1,1
if rs.bof or rs.eof then
rs.close
set rs=nothing
call closeconn()
errmsg=errmsg + "<br><br><li>暂时还没有调查可管理！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_VoteAdd.asp'>添加新调查</a>］</li>"
errmsg=errmsg + "<br><br>"
call ShowErrMsg()
else
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")
rs.pagesize=15
if not isempty(page) then
   if not isnumeric(page) then
     page=1
	 else
	 page=cint(page)
	 end if
	 if page>rs.pagecount then
	    rs.absolutepage=rs.pagecount
		elseif page<=0 then
		rs.absolutepage=1
		else
		  rs.absolutepage=page
		  end if
		else
	rs.absolutepage=1
	end if
	page=rs.absolutepage
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>调查管理</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function checkdel()
{
if(confirm("是否要删除该调查，一旦删除，将不能恢复！"))
return true;
else
return false;
}
</script>
</head>

<body>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" class="txt1">欢迎来到调查管理面板</td>
  </tr>
  <tr>
    <td align="center" class="txt05">［<a href="admin_VoteAdd.asp">添加新的调查</a>］</td>
  </tr>
  <tr>
    <td><table width="98%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#f5f8f5">
      <tr align="center" class="txt1">
        <td>ID号</td>
        <td>调查主题</td>
        <td>添加时间</td>
        <td>状态</td>
        <td>操作</td>
      </tr>
	  <% for i=1 to rs.pagesize
	      if rs.eof then
		  exit for
		  end if %> 
      <tr align="center" class="txt05">
        <td><%=rs("voteid")%>&nbsp;</td>
        <td><%=rs("title")%>&nbsp;</td>
        <td><%=rs("addtime")%>&nbsp;</td>
        <td><%if rs("votetype")=1 then%>单选，<%else%>复选，<%end if%><%if rs("isnew")=true then%><img src="images/new.gif" width="24" height="11"><%else%><img src="images/old.gif" width="16" height="15"><%end if%></td>
        <td><a href="admin_VoteMod.asp?voteid=<%=rs("voteid")%>">修改</a>
        <%if session("adminpurview")<=2 then%> | <a href="admin_VoteDel.asp?voteid=<%=rs("voteid")%>&votedel=del" onclick="return checkdel();">删除</a>
          <input name="votedel" type="hidden" id="votedel" value="del"><%end if%></td>
      </tr>
	  <% rs.movenext
	    next
	    %>
    </table></td>
  </tr>
  <tr>
    <td align="center" class="txt03"><%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%>&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%

rs.close
set rs=nothing
call closeconn()
end if
%>
⌨️ 快捷键说明

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