manage_info.asp

全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述： 软件名称：全球商务网站系统 当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）

<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<SCRIPT language=javascript1.2 src="../css/iXs_Main.js"></SCRIPT>
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全选"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "选择全部";}}
</script>
<title>帮助信息管理</title>
<%
if not isempty(request("selAnnounce")) then
newsidlist=request("selAnnounce")
if instr(newsidlist,",")>0 then
dim newsidarr
newsidArr=split(newsidlist)
dim log_newsid
for i = 0 to ubound(newsidarr)
log_newsid=clng(newsidarr(i))
call deleteannounce(log_newsid)
next
else
call deleteannounce(clng(newsidlist))
end if
end if
keywords=replace_text(request("keywords"))
if request("typeid")>"" then
if Chkrequest(request("typeid")) then
typeid=request("typeid")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
end if

set rs=server.createobject("adodb.recordset") 
sql="select * from news"
if typeid>"" then sql=sql&" where typeid="&typeid&""
if keywords>"" then sql=sql&" and title like '%"&keywords&"%'"

sql=sql&" order by newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 

msg_per_page=20 '定义每页显示记录条数
%>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class="tableBorder"> 
  <tr class='topbg'> 
    <th height='22' colspan='5' class="tableHeaderText">商业信息管理</th> 
  </tr> 
  <tr class='tdbg'> 
    <td width='82' height='30' class="forumRowHighlight"><strong>管理导航：</strong></td> 
    <td colspan='4' class="forumRowHighlight"><a href='Admin_Article.asp?ChannelID=1&Passed=All'>资讯管理首页</a>&nbsp;|&nbsp;<a href='Admin_Article.asp?ChannelID=1&Action=Add&AddType=2&ClassID=0&SpecialID=0'>添加资讯</a>&nbsp;|&nbsp;<a href='Admin_Article.asp?ChannelID=1&ManageType=Check&Passed=False'>审核资讯</a></td> 
  </tr> 
  <tr class='tdbg'> 
    <td width='82' height='30' class="forumRowHighlight"><strong>管理选项：</strong></td> 
    <td class="forumRowHighlight"> <input name='Passed' type='radio' value='All' onclick='submit();' checked> 
      所有资讯&nbsp;&nbsp;&nbsp;&nbsp; 
      <input name='Passed' type='radio' value='False' onclick='submit();'> 
      未审核的资讯&nbsp;&nbsp;&nbsp;&nbsp; 
      <input name='Passed' type='radio' value='True' onclick='submit();'> 
      已审核的资讯&nbsp;&nbsp;&nbsp;&nbsp; 
      <input name='Passed' type='radio' value='True' onclick='submit();'> 
      已生成HTML的资讯</td> 
  </tr> 
  <tr class='tdbg'> 
    <td height='30' class="forumRowHighlight"><strong>搜索选项：</strong></td> 
    <td class="forumRowHighlight"><FORM name=searchForm action="index.asp" method=post onsubmit="javascript:if(doSearch()==false) return false;"> 
        <input name="keywords" type="text" value="<%=keywords%>"> 
&nbsp;所属类别：
        <select name="typeid" size="1"> 
          <%
set rs1=conn.execute("select * from newsType")
do while not rs1.eof
response.write "<option value='"&rs1("typeid")&"'>"&rs1("type")&" 类信息</option>"&chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%> 
        </select> 
        <input type="submit" value="立刻查找" id=submit name=submit> 
      </form></td> 
  </tr> 
</table> 
<br> 
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class="tableBorder"> 
  <tr class="forumRowHighlight"> 
    <td height='22' class="forumRowHighlight">|&nbsp;<a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=1'>业界</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=8'>民企</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=13'>营销</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=23'>人力资源</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=30'>组织战略</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=37'>职场人生</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=42'>综合管理</a> | <a href='Admin_Article.asp?ChannelID=1&Action=Manage&ManageType=&ClassID=52'>行业分析</a> | </td> 
  </tr> 
  <tr class="forumRowHighlight"> 
    <td height='22' class=forumRow>&nbsp;</td> 
  </tr> 
</table> 
<SCRIPT LANGUAGE='JavaScript' SRC='/js/search.js' TYPE='text/javascript'></script> 
<!--#include file="../../inc/headpage.asp"--> 
<Form name="search" method="POST" action="index.asp"> 
  <table wnewsidth="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder"> 
    <tr> 
      <th height=25 colspan="8" class="tableHeaderText">商业资讯信息列表</th> 
    <tr> 
      <td colspan="8"> <%
if rs.eof then
response.Write"<br><br><div align='center'>暂无资讯信息</div><br><br>"
else
%> </td> 
    </tr> 
    <tr height=25 class=bodytitle> 
      <td height='22' width='30' align='center'><strong>选中</strong></td> 
      <td width='25' align='center'><strong>ID</strong></td> 
      <td align='center' ><strong>资讯标题</strong></td> 
      <td width='40' align='center' ><strong>点击数</strong></td> 
      <td width='80' align='center' ><strong>资讯属性</strong></td> 
      <td width='40' align='center' ><strong>已审核</strong></td> 
      <td width='40' align='center' ><strong>已生成</strong></td> 
      <td width='180' align='center' ><strong>常规管理操作</strong></td> 
    </tr> 
    <%
do while not rs.eof and rowcount > 0%> 
    <tr height="20"> 
      <td align="left" class=forumRow><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("newsid"))%>'></td> 
      <td align="left" class=forumRow>&nbsp;</td> 
      <td align="left" class=forumRow>&nbsp;</td> 
      <td align="left" class=forumRow>&nbsp;</td> 
      <td align="left" class=forumRow>&nbsp;</td> 
      <td align="left" class=forumRow>&nbsp;</td> 
      <td align="left" class=forumRow>&nbsp;</td> 
      <td align="left" class=forumRow>&nbsp;</td> 
    </tr> 
    <%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rs.movenext
loop
end if
%> 
    <tr height="20" bgcolor="#ffffff"> 
      <td colspan="8" align="left" class=forumRow> <input name="button" type=button onClick="this.value=check(this.form)" value=" 全部选定 "> 
&nbsp;&nbsp;&nbsp;&nbsp;        <input name="submit2" type='submit' value='删除选定资讯'> </td> 
    </tr> 
    <tr height="20" bgcolor="#ffffff"> 
      <td colspan="8" align="center" class=forumrowHighLight><b><%=listPages("index.asp?typeid="&typeid&"&keywords="&keywords&"")%></b></td> 
    </tr> 
  </table> 
</form> 
<%
sub deleteannounce(newsid)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [news] where newsid="&cstr(newsid)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%> 
<!--#include file="../copy.asp" -->