📄 annouce.asp

📁 通用考勤系统
💻 ASP
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：ctplr@163.com          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<script language=javascript>
<!--


function checkAll(){
  for(i=0;i<document.anntable.chknum.length;i++){
   document.anntable.chknum[i].checked=true;
}
}
 function uncheckAll(){
 for(i=0;i<document.anntable.chknum.length;i++){
   document.anntable.chknum[i].checked=false;
}
}

function switchAll()
{
 var num=document.anntable.chknum.length;
 if(num>1)
 {
 for(var i=0;i<num;i++) 
     {  
        if(document.anntable.chknum[i].checked==false)
        {
          document.anntable.chknum[i].checked=true;
        }
        else
        {
         document.anntable.chknum[i].checked=false;
        }
     } 
     }
     else
     {
       if(document.anntable.chknum.checked==false)
        {
          document.anntable.chknum.checked=true;
        }
        else
        {
         document.anntable.chknum.checked=false;
        }
     }
}



//-->
</script>
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=left.css rel=stylesheet>
 
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<%

if (session("qx")>3 or session("qx")=0) then
response.write "对不起```您没有操作权限！"
else
%><center>
<table background=../images/loginIn2.gif width=100%><tr>
<td align=center><img src=images/gglist.GIF><br><b><font color=yellow>
[<a href=ann_add.asp>增加公告</a>]
</font>
</td></tr></table>


 
<% 
num=annoucenum
rs.PageSize=num
if Request.QueryString("page")<>"" then 
curpage=cint(Request.QueryString("page")) 
else
curpage=1
end if
sql="select * from annouce ORDER by id DESC"
rs.open sql,cn,1,1
pagenum=rs.PageCount  
if curpage>pagenum then 
curpage=pagenum
end if 
rs.AbsolutePage =curpage
if (rs.eof and rs.bof)  then 
response.write "没有记录"
else
      response.write"<form name='anntable' action='annouce_do.asp?action=alldel' method=post><table bordercolor=#0055aa   border=1>"
response.write "<tr><td  class=tdwhtimg align=center><font color=green>标题</td><td  align=center width=25% class=tdwhtimg> <font color=green>发布者</td><td  class=tdwhtimg  align=center><font color=green>发布时间</td><td   class=tdwhtimg align=center><font color=green>操作</td></tr>"
    do while not rs.eof and num>0 
title=rs("title")
text=rs("text")
zuozhe=rs("zuozhe")
ftime=rs("time")
id=rs("id")
%>
 
<!--#include file="qx.asp"-->

   <tr><td   align=center class=td2><a href=quickview.asp?id=<%=id%> title="快速察看" target=_blank><%=title %></a></td>
   <td   align=center class=td1><%=zuozhe%></td>
   <td   align=center class=td2 > <%=ftime%></td>
    <td   align=center class=td1>
   <% if  (session("qx")<3 and  session("qx")>0) then 
     response.write"<a href=annouce_xiugai.asp?action=gonggaoxiugai&id="&id&">修改</a>"
     elseif (session("qx")=3) then 
        if zuozhe=session("name") then
          response.write"<a href=annouce_xiugai.asp?action=gonggaoxiugai&id="&id&">修改</a>"
        else
          response.write"<font color=#aaaaaa title='您只能修改自己的文章'>修改</font>"
        end if
  end if
      if session("qx")=1 then %> 
          <a href=annouce_do.asp?action=del&id=<%=id%>&title=<%=title%>  onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a>
          <input type=checkbox value=<%=id%> name=chknum>
   <%end if%>
</td>
   </tr>
   <%  rs.movenext
num=num-1
loop
%>

<tr><td colspan=4 align=right class=td3>
<input type=button value="全选" onClick="checkAll()" class=bbox>
<input type=button value="全否" onClick="uncheckAll()" class=bbox>
<input type=button value="反选" onClick="switchAll()" class=bbox>
<input type=submit value="删除所选"  class=ibox onclick="{if(confirm('确定要删除这些项目?')){return true;}return false;}">
 </td>
</tr></table>
</form>

<%
end if
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "



Response.Write "[<a href=annouce.asp?page=1>首 页</a>]  "
if curpage>1 then 
Response.Write "[<b><a name=up href=annouce.asp?page=" & (curpage-1) & " >上一页</a></b> ]&nbsp;"
end if

if curpage<pagenum then
Response.Write "[<b><a name=down href=annouce.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if 

Response.Write "  [<a href=annouce.asp?page="&pagenum&">尾 页</a>]"
Response.Write "  当前是第[<font color=red>"&curpage&"</font>]页</center>"


 

rs.Close 
set rs=nothing
cn.close
set cn=nothing
%>
<%end if%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
⌨️ 快捷键说明

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