www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/DownAnnounce.asp
<!--#include file="check.asp"--> <!--#include file="mdb_path_down.asp"--> <% '强制浏览器重新访问服务器下载页面,而不是从缓存读取页面 Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <style> td{font-size:9pt;line-height:140%} </style> </head> <% const MaxPerPage=18 dim totalPut dim CurrentPage dim TotalPages dim i,j dim idlist dim newsnote if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if if not isempty(request("selAnnounce")) then idlist=request("selAnnounce") if instr(idlist,",")>0 then dim idarr idArr=split(newsidlist) dim id for i = 0 to ubound(idarr) id=clng(idarr(i)) call deleteannounce(id) next else call deleteannounce(clng(idlist)) end if end if dim sql dim rs %> <body> <table border="0" width="92%" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="100%" align="center"> <a href="downAnnounceAdd.asp"><h3 style="margin:0px;">添加公告</h3></a> <form method=Post action="downAnnounce.asp" style="margin:0px;"> <table border="0" cellspacing="1" width="589" class="tableBorder" cellpadding="2"> <tr> <th width="46" align="center" height="20" class="tableHeaderText"><STRONG><FONT color="#FFFFFF">ID</FONT></STRONG></th> <th class="tableHeaderText" width="400" align="center"><STRONG><FONT color="#FFFFFF">公告内容</FONT></STRONG></th> <th width="68" class="tableHeaderText" align="center"> <input type='submit' class=buttonface value='删 除'> </th> </tr> <tr> <td class="forumrow" colspan="3" align="center" height="20"><% if title<>"" then sql="select * from news where newsnote like '%"&trim(newsnote)&"%' order by id desc" else sql="select * from news order by id desc" end if Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'> 还 没 有 任 何 公 告 </p>" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpage totalput,MaxPerPage,"downAnnounce.asp" showContent showpage totalput,MaxPerPage,"downAnnounce.asp" else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showpage totalput,MaxPerPage,"downAnnounce.asp" showContent showpage totalput,MaxPerPage,"downAnnounce.asp" else currentPage=1 showpage totalput,MaxPerPage,"downAnnounce.asp" showContent showpage totalput,MaxPerPage,"downAnnounce.asp" end if end if rs.close end if set rs=nothing conn.close set conn=nothing sub showContent dim i i=0 %> </td> </tr> <%do while not rs.eof%> <tr> <td height="11" width="46" class="forumrow"><p align="center"><%=rs("id")%> </td> <td width="400" class="forumrow"><a href="DownAnnounceEdit.asp?id=<%=rs("id")%>"><%=Server.HTMLEncode(rs("newsname"))%></a> </td> <td width="68" class="forumrow"><p align="center"> <input type='checkbox' name='selAnnounce' value='<%=cstr(rs("ID"))%>'> </td> </tr> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> <tr align="center"> <th height="11" colspan="3"> <% end sub function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "<p align='center'> " if CurrentPage<2 then response.write "<font color='#000080'>首页 上一页</font> " else response.write "<a href="&filename&"?page=1>首页</a> " response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> " end if if n-currentpage<1 then response.write "<font color='#000080'>下一页 尾页</font>" else response.write "<a href="&filename&"?page="&(CurrentPage+1)&">" response.write "下一页</a> <a href="&filename&"?page="&n&">尾页</a>" end if response.write "<font color='#000080'> 页次:</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> " response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>个软件 <b>"&maxperpage&"</b>个公告/页</font> " end function sub deleteannounce(id) dim rs,sql set rs=server.createobject("adodb.recordset") sql="delete from news where id="&cstr(id) conn.execute sql if err.Number<>0 then err.clear response.write "删 除 失 败 !<br>" else response.write "操作成功!<br>" end if End sub %> </td> </tr> </table> </form> </td> </tr> </table> </body> </html>