admin_news.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 671 行 · 第 1/2 页

ASP
671 行
字号
12
<%Admin="news"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format1.asp"-->
<%
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  response.end
else
if Request.form("MM_insert") then
if request.Form("action")="newnewcat" then
sql="select * from newcat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim cat_name,sid
sid=request.form("id")
cat_name=trim(replace(request.form("cat_name"),"'",""))
if cat_name="" then
  founderr=true
   Response.Write("<script language=javascript>alert('你必须填写新闻分类');history.back(1);</script>")
else
  rs("cat_name")=cat_name
end if
  rs("sid")=sid
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_news.asp"
end if
end if
if request.Form("action")="editnewcat" then
if request.Form("id")="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
Response.Write("<script language=javascript>alert('非法的id参数');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from newcat where cat_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
cat_name=trim(replace(request.form("cat_name"),"'",""))
if cat_name="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须填写新闻分类');history.back(1);</script>")
else
  rs("cat_name")=cat_name
end if

if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_news.asp"
end if
end if
if request.Form("action")="delnewcat" then
if request.Form("id")="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
Response.Write("<script language=javascript>alert('非法的id参数');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from newcat where cat_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
  rs.delete
  rs.close
  set rs=nothing
  response.redirect "admin_news.asp"
end if
end if
sql="select * from newcat where sid=0 order by cat_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%if request.QueryString("action")="" then%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <tr> 
          <td colspan="3" class=lanyuss>新闻分类管理</font></td>
        </tr>
        <tr align="center"> 
          <td width="10%" class=lanyuqs>编号</td>
          <td width="70%" class=lanyuqs>分类名称</td>
          <td width="20%" class=lanyuqs>操作</td>
        </tr>
        <%do while not rs.eof%>
        <tr> 
          <td align="center" class=lanyuds><%=rs("cat_id")%></td>
          <td class=lanyuds><font color=#008000><%=rs("cat_name")%></font>  [<a href="admin_news.asp?id=<%=rs("cat_id")%>&action=newnewcat">添加子分类</a>]</td>
          <td align="center" class=lanyuds><a href="admin_news.asp?id=<%=rs("cat_id")%>&action=editnewcat">编辑</a> 
            <a href="admin_news.asp?id=<%=rs("cat_id")%>&action=delnewcat">删除</a> 
            </td>
        </tr>

<%sql="select * from newcat where sid="&rs("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<tr class=lanyuds><td align="right"></td><td>├ <%=rs2("cat_name")%></td><td align="center"><a href="admin_news.asp?id=<%=rs2("cat_id")%>&action=editnewcat">编辑</a> 
            <a href="admin_news.asp?id=<%=rs2("cat_id")%>&action=delnewcat">删除</a></td></tr>
<%
rs2.movenext
loop
response.write "<tr class=lanyuqs><td colspan=3 align=center>"
if rs2.bof and rs2.eof then
response.write "此大类没有子分类！"
end if
rs2.close
set rs2=nothing
%>
        <%rs.movenext
loop
if rs.bof and rs.eof then%>
        <tr align="center"> 
          <td colspan="3" class=lanyuds>当前没有新闻分类！</td>
        </tr>
        <%end if%>
      </table>
      <%end if
	  if request.QueryString("action")="newnewcat" then%>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<%sql="select * from newcat where cat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
        <form name="form1" method="post" action="admin_news.asp">
		<tr> 
            <td class=lanyuss>新的新闻分类</td>
        </tr>
        <tr> 
          <td class=lanyuds>分类名称
              <input type="text" name="cat_name" size="40">
          </td>
        </tr>
        <tr> 
            <td class=lanyuqs align="center" height="30">
              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="reset" value="清空重写" class="button">
              [<a href="admin_news.asp">返回</a>] </td>
        </tr>   <input type="hidden" name="id" value="<%=rs("cat_id")%>">
		<input type="hidden" name="action" value="newnewcat">
		<input type="hidden" name="MM_insert" value="true">
		</form>
      </table>
	  <%end if
	  if request.QueryString("action")="editnewcat" then
	  if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的id参数');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from newcat where cat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
	  %>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="admin_news.asp">
          <tr> 
            <td class=lanyuss>修改新闻分类</font></td>
          </tr>
          <tr> 
            <td class=lanyuds>分类名称- 
              <input name="cat_name" type="text" class="textarea" id="cat_name" size="40" value="<%=rs("cat_name")%>"> 
            </td>
          </tr>
          <tr> 
            <td class=lanyuqs align="center" height="30"> <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              <input name="reset" type="reset" class="button" id="reset" value="清空重写">
              [<a href="admin_news.asp">返回</a>] </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("cat_id")%>">
		  <input type="hidden" name="action" value="editnewcat">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
	  <%end if
	  	  if request.QueryString("action")="delnewcat" then
	  if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的id参数');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from newcat where cat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
	  %>
      <table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="form1" method="post" action="admin_news.asp">
          <tr> 
            <td class=lanyuss>删除新闻分类</font></td>
          </tr>
          <tr> 
            <td class=lanyuds>分类名称- <%=rs("cat_name")%>
            </td>
          </tr>
          <tr> 
            <td class=lanyuqs align="center" height="30"> <input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
              [<a href="admin_news.asp">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("cat_id")%>">
          <input type="hidden" name="action" value="delnewcat">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%end if
end if
if request.form("operation")="DEL" then
    num=request.form("news_id").Count
    for i=1 to num
      conn.execute("delete from news where news_id="&request.form("news_id")(i))
    next
  end if%>
<form name=form method=post action="admin_news.asp?action=cat">
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<%if request.QueryString("action")="cat" then
dim totalnews,Currentpage,totalpages,i,colname
sql="select * from news order by istop desc,news_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <tr> 
          <td colspan="8" class=lanyuss>新闻管理</td>
        </tr>
        <tr align="center"> 
          <td class=lanyuqs width="5%">选中</td>
          <td class=lanyuqs width="45%">新闻标题</td>
          <td class=lanyuqs width="10%">分类</td>
          <td class=lanyuqs width="20%">发表时间</td>
          <td class=lanyuqs width="5%">评论</td>
          <td class=lanyuqs width="15%">操作</td>
        </tr>
<%if not rs.eof then
rs.movefirst
rs.pagesize=newsperpage 
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalnews=rs.recordcount
   if currentpage<>1 then
      if(currentpage-1)*newsperpage<totalnews then
	     rs.move(currentpage-1)*newsperpage
		 dim bookmark
		 bookmark=rs.bookmark
	  end if
   end if
   if (totalnews mod newsperpage)=0 then
      totalpages=totalnews\newsperpage
   else
      totalpages=totalnews\newsperpage+1
   end if
   i=0
do while not rs.eof and i<newsperpage%>
<% 
sql="select cat_id,cat_name from newcat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1   
if rs("istop")="1" then      
folder="「置顶」"       
else
folder=""       
end if      
%> 
         <tr class=lanyuds>
          <td align="center"><input type=checkbox Name=news_id Value=<%=rs("news_id")%>></td> 
          <td><a href="shownews.asp?news_id=<%=rs("news_id")%>&cat_id=<%=rs("cat_id")%>" target="_blank"><%=rs("news_title")%></a>&nbsp;<font color="red"><%=folder%></font></td> 
          <td align="center"><%=rscat("cat_name")%></td>
          <td><%=rs("news_date")%></td>
          <td align="center"><font color=red><%=rs("reviewcount")%></font></td>
          <td align="center"> <a href="admin_view.asp?action=news&news_id=<%=rs("news_id")%>">评论</a> <a href="admin_news.asp?news_id=<%=rs("news_id")%>&cat_id=<%=rs("cat_id")%>&action=editnew">编辑</a>
 </td>
        </tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
        <tr align="center"> 
          <td class=lanyuds colspan="3">当前没有新闻！</td>
        </tr>
<%
end if
end if%>
12

admin_news.asp - 源码说明

本页面展示了「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程序」中的 admin_news.asp 源码文件，采用 ASP 编程语言编写，共 671 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与6.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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