www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/admin_news.asp
<!--#include file="../Conn.asp" --> <!--#include file="seeion.asp"--> <!--#include file="page.asp" --> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <link rel="stylesheet" type="text/css" id="css" href="images/style.css"> <title>新闻管理</title> <script language="javascript"> <!-- function CheckAll(){ for (var i=0;i<eval(form1.elements.length);i++){ var e=form1.elements[i]; if (e.name!="allbox") e.checked=form1.allbox.checked; } } --> </script> <% Function DelHtml(Str1) Dim regEx Set regEx = New RegExp regEx.Pattern = "(<[^>]*?>)" regEx.Global = True regEx.IgnoreCase = True DelHtml = replace(regEx.Replace(""&str1,"")," ","") End Function %> </head> <body> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" > <tr> <td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">新闻管理</div></td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1"> <form id="form1" name="form1" method="post" action="admin_news.asp?del=checkbox"> <tr> <div style="text-align:left; background-color:#F1F5F8; height:25px; padding:2px 10px 2px 10px;"> <select name="ssfl" id="jumpMenu" onChange="window.open(this.options[this.selectedIndex].value,'_self')"> <option>---分类查看---</option> <% dim rsk set rsk=server.CreateObject("adodb.recordset") rsk.open "select * from news_fl order by id asc",conn,1,1 response.Write("<option value=""?id="">全部新闻</option>") while not rsk.eof response.Write("<option value=""?id=" & rsk("id") & """>" & rsk("title") & "</option>") rsk.movenext wend rsk.close set rsc=nothing %> </select></div> <td> <% id= request.QueryString("id") set rs=server.createobject("adodb.recordset") if id<>"" then exec="select * from news where ssfl="& id &" order by zhiding desc,data desc " else exec="select * from news order by zhiding desc,data desc" end if rs.open exec,conn,1,1 if rs.eof then response.write ("<div style=""padding:10px;"">暂无记录!</div>") else rs.PageSize =20 '每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %> <% for i=1 to rs.pagesize j=i if j mod 2=0 then bg="#F1F5F8" else bg="#FFFFFF" end if %></td> </tr> <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>"> <td colspan="2" ><table width="100%" border="0" cellpadding="5" cellspacing="0"> <tr> <td width="8%" class="td"><input name="ID" type="checkbox" id="ID" value="<%=rs("id")%>" /><%=rs("id")%></td> <td width="9%" class="td"> <% dim rsc set rsc=server.CreateObject("adodb.recordset") rsc.open "select * from news_fl",conn,1,1 while not rsc.eof if rs("ssfl")=rsc("id") then response.Write("<a href=""?id=" & rsc("id") & """><font color=#003399>[" & rsc("title") & "]</font></a>") end if rsc.movenext wend rsc.close set rsc=nothing %></td> <td width="40%" height="25" class="td"> <a href="xiugai_news.asp?id=<%=rs("id")%>"><%=InterceptString(DelHtml(rs("title")),40)%></a> <% if rs("tuijian")=1 then response.Write("<font color=#FF0000>[推荐]</font>") else end if %> <% if IsNull(rs("img")) or rs("img")="" then else response.write ("<img src=""images/showimg.gif"" alt=""图片新闻""/>") end if %><% if rs("zhiding")=1 then response.Write("<font color=#FF0000>[置顶]</font>") else end if %></td> <td width="12%" class="td"><%=rs("zz")%></td> <td width="17%" class="td"><%=rs("data")%></td> <td width="7%" class="td"><div align="center"> <input type="button" name="Submit3" value="修改" onclick="window.location.href='xiugai_news.asp?id=<%=rs("id")%>' " class="btn"/> </div></td> <%if session("qx")=2 then%> <td width="7%" class="td"> <div align="center"> <input type="button" name="Submit" value="删除" onclick="javascript:if(confirm('确定删除?删除后不可恢复!')){window.location.href='admin_news.asp?id=<%=rs("id")%>&del=ok';}else{history.go(0);}" class="btn"/> </div></td><%end if%> </tr> </table> <% rs.movenext if rs.eof then exit for next %> <% end if %></td> </tr> <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='<%=bg%>'" bgcolor="<%=bg%>"> <td height="30"> <div style="padding-left:5px;"> <input type="checkbox" name="allbox" onclick="CheckAll()" /> <label> <select name="lx"> <option selected="selected" value="">操作类型</option> <option value="1">加入推荐</option> <option value="2">取消推荐</option> <option value="4">更新时间</option> <option value="3">批量删除</option> </select> <input type="submit" name="button" id="button" value="提交" class="btn"/> </label></div> </td> </form><td height="30"><%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>") rs.close set rs=nothing %></td></tr> </table></td> </tr> </table> </body> </html> <% if request("del")="ok" then set rs=server.createobject("adodb.recordset") id=Request.QueryString("id") sql="select * from news where id="&id rs.open sql,conn,2,3 rs.delete rs.update Response.Write "<script>alert('当前新闻删除成功!');window.location.href='admin_news.asp';</script>" end if %> <% if Request.QueryString("del")="checkbox" then if Request("id")="" then Response.Write "<script>alert('错误!请选择要操作的记录!');window.location.href='admin_news.asp';</script>" response.end() end if dim sql lx=request.Form("lx") if lx="" then Response.Write "<script>alert('错误!请选择操作类型!');window.location.href='admin_news.asp';</script>" response.end end if if lx=1 then sql="update news set tuijian=1 where id in ("&Request("id")&")" conn.execute(sql) elseif lx=2 then sql="update news set tuijian=0 where id in ("&Request("id")&")" conn.execute(sql) elseif lx=4 then sql="update news set data=Now() where id in ("&Request("id")&")" conn.execute(sql) else sql="delete from news where id in ("&Request("id")&")" conn.Execute ( sql ) end if conn.close set conn=nothing Response.Write "<script>alert('恭喜!操作成功!');window.location.href='admin_news.asp';</script>" end if %>