📄 admin_news.asp
字号:
<%
'==================================
'=文 件 名：admin_news.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：新闻系统管理
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then
errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
response.End
end if
dim page,catname,cat_id,newsposter,newsfrom,keyword,title,newscontent,news_id,remark_id,newspic,userview,istop
if request.querystring("page")<>"" then
page=checksql("新闻分页",request.querystring("page"),0,8)
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr align="center" class="tablebody">
<td width="20%" class="td_title"><a href="?action=catlist"><font color="#ffffff">分类管理</font></a></td>
<td width="20%" class="td_title"><a href="?action=addcat"><font color="#ffffff">新增分类</font></a></td>
<td width="20%" class="td_title"><a href="?action=list"><font color="#ffffff">新闻管理</font></a></td>
<td width="20%" class="td_title"><a href="?action=addnews"><font color="#ffffff">新增新闻</font></a></td>
<td width="20%" class="td_title"><a href="?action=remarklist"><font color="#ffffff">评论管理</font></a></td>
</tr>
</table>
<br>
<%
'==================================
'=功 能：主调代码，相应功能皆有说明
'==================================
Select case request.QueryString("action")
case "catlist" '分类列表
call catlist()
case "editcat" '编辑分类
call editcat()
case "delcat" '删除分类
call delcat()
case "addcat" '新增分类
call addcat()
case "list" '新闻列表
call list()
case "editnews" '编辑新闻
call editnews()
case "delnews" '删除新闻
call delnews()
case "addnews" '新增新闻
call addnews()
case "remarklist" '新闻评论列表
call remarklist()
case "delremark" '删除新闻评论
call delremark()
case else
call list()
End Select
'==================================
'=过 程 名：catlist
'=功 能：新闻分类列表
'==================================
sub catlist()
%>
<table cellspacing="1" cellpadding="5" class="tableborder" align="center">
<tr class="tablebody">
<td colspan="5" class="td_title">新闻分类管理</td>
</tr>
<tr align="center" class="tablebody">
<td width="5%">编号</td>
<td width="5%">排序</td>
<td width="35%">分类名称</td>
<td width="35%">链接地址</td>
<td width="20%">操作</td>
</tr>
<%
sql="select * from wapls_news_cat order by cat_num asc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr class="tablebody">
<td align="center"><%=rs("cat_id")%></td>
<td align="center"><%=rs("cat_num")%></td>
<td><%=rs("cat_name")%> [<%if rs("cat_br")=1 then%>换行<%else%><span class="current_font">不换行</span><%end if%>]</td><td><input size="30" type="text" value="News.asp?Action=cat&id=<%=rs("cat_id")%>" onmouseover="this.focus()" onfocus="this.select()"></td>
<td align="center"><button onClick="window.location
='?id=<%=rs("cat_id")%>&action=editcat'">编辑</button> <button onClick="window.location
='?id=<%=rs("cat_id")%>&action=delcat'">删除</button></td>
</tr>
<%
rs.movenext
loop
if rs.bof and rs.eof then
%>
<tr align="center" class="tablebody">
<td colspan="5" height="70" class="disable_font">当前没有新闻分类！</td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
<%
end sub
'==================================
'=过 程 名：addcat
'=功 能：新添新闻分类
'==================================
sub addcat()
'数据库操作
if request.form("addcat")="true" then
catname=checksql("分类名称",request.form("cat_name"),1,20)
catnum=checksql("分类排序",request.form("cat_num"),1,5)
if request.form("cat_br")="" then
cat_br=0
elseif request.form("cat_br")=1 then
cat_br=1
else
cat_br=0
end if
sql="select * from wapls_news_cat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("cat_name")=catname
rs("cat_num")=catnum
rs("cat_br")=cat_br
rs.update
rs.close
set rs=nothing
response.redirect "?action=catlist"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td class="td_title" colspan="2">新的新闻分类</td>
</tr>
<tr class="tablebody">
<td align="center">名 称</td>
<td><input type="text" name="cat_name" size="20" maxlength="20"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
</tr>
<tr class="tablebody">
<td align="center">排 序</td>
<td><input type="text" name="cat_num" size="5" maxlength="5" value="1"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
</tr>
<tr class="tablebody">
<td align="center">换 行</td>
<td><input type="checkbox" name="cat_br" value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
</tr>
<tr class="tablebody">
<td class="tablebody" align="center" height="30" colspan="2">
<input type="submit" name="Submit" value="确定新增">
<input type="reset" name="reset" value="清空重写">
<input type="hidden" name="addcat" value="true">
</td>
</tr>
</form>
</table>
<%
end sub
'==================================
'=过 程 名：editcat
'=功 能：编辑新闻分类
'==================================
sub editcat()
if request.form("editcat")="true" then
catname=checksql("分类名称",request.form("cat_name"),1,20)
cat_id=checksql("分类ID",request.form("id"),0,8)
catnum=checksql("分类排序",request.form("cat_num"),1,5)
if request.form("cat_br")="" then
cat_br=0
elseif request.form("cat_br")=1 then
cat_br=1
else
cat_br=0
end if
sql="select * from wapls_news_cat where cat_id="& cat_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("cat_name")=catname
rs("cat_num")=catnum
rs("cat_br")=cat_br
rs.update
rs.close
set rs=nothing
response.redirect "?action=catlist"
end if
cat_id=checksql("分类ID",request.querystring("id"),0,8)
sql="select * from wapls_news_cat where cat_id="&cat_id
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="?action=editcat">
<tr class="tablebody">
<td class="td_title" colspan="2">编辑新闻分类</td>
</tr>
<tr class="tablebody">
<td align="center">名 称</td>
<td><input type="text" name="cat_name" size="20" maxlength="20" value="<%=rs3("cat_name")%>"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
</tr>
<tr class="tablebody">
<td align="center">排 序</td>
<td><input type="text" name="cat_num" size="5" maxlength="5" value="<%=rs3("cat_num")%>"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
</tr>
<tr class="tablebody">
<td align="center">换 行</td>
<td><input type="checkbox" name="cat_br" <%if rs3("cat_br")=1 then%> checked <%end if%> value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
</tr>
<tr class="tablebody">
<td class="tablebody" align="center" height="30" colspan="2">
<input type="submit" name="Submit" value="确定修改">
<input type="reset" name="reset" value="清空重写">
<input type="hidden" name="id" value="<%=rs3("cat_id")%>">
<input type="hidden" name="editcat" value="true">
</td>
</tr>
</form>
</table>
<%
rs3.close
set rs3=nothing
end sub
'==================================
'=过 程 名：delcat
'=功 能：删除新闻分类
'==================================
sub delcat()
cat_id=checksql("分类ID",request.querystring("id"),0,8)
if request.form("delcat")="true" then
dim datainthiscat
datainthiscat=conn.Execute("select count(*) from wapls_news where cat_id="&cat_id)(0)
if datainthiscat<>0 then
response.write "<script>window.alert('此分类下有"&datainthiscat&"条数据，不能删除此分类！如真要删除此分类，请先转移此分类下的数据，再进行删除分类操作！');window.location='javascript:history.go(-1);';</script>"
response.End
end if
sql="select * from wapls_news_cat where cat_id="& cat_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "admin_news.asp?action=catlist"
end if
sql="select * from wapls_news_cat where cat_id="&cat_id
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form1" method="post" action="">
<tr class="tablebody">
<td class="td_title">删除新闻分类</td>
</tr>
<tr class="tablebody">
<td align="center" height="50">分类名称：<input type="text" name="cat_name" size="20" maxlength="10" value="<%=rs3("cat_name")%>" disabled> * <span class="disable_font">[10个字以内]</span></td>
</tr>
<tr class="tablebody">
<td class="tablebody" align="center" height="30">
<input type="submit" name="Submit" value="确定删除" onclick="{if(confirm('您确定要删除『<%=rs3("cat_name")%>』这个分类吗?\n\n注意：删除后不可恢复！')){return true;}return false;}">
<input type="hidden" name="id" value="<%=rs3("cat_id")%>">
<input type="hidden" name="delcat" value="true">
</td>
</tr>
</form>
</table>
<%
rs3.close
set rs3=nothing
end sub
'==================================
'=过 程 名：list
'=功 能：新闻列表
'==================================
sub list()
dim totalnews,Currentpage,totalpages,k
if request.querystring("cat_id")<>"" then
cat_id=checksql("新闻分类ID",request.querystring("cat_id"),0,8)
sql="select * from wapls_news where cat_id="&cat_id&" order by istop=1,news_date DESC"
else
sql="select * from wapls_news order by istop=1,news_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr class="tablebody">
<td colspan="3" class="td_title">新闻管理</td>
</tr>
<tr class="tablebody">
<td colspan="3" align="center">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -