admin_article.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

<%
'==================================
'=文 件 名：admin_article.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,cat_name,class_name,cat_id,class_id,poster,artfrom,title,keyword,content,art_id,remark_id,colname,totalart,Currentpage,totalpages,i,artgood,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=addart"><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 "addcat" 	'添加大分类
		call addcat()
	case "editcat"			'编辑大分类
		call editcat()
	case "delcat"		'删除大分类
		call delcat()
	case "addclass" 	'添加子分类
		call addclass()
	case "editclass"			'编辑子分类
		call editclass()
	case "delclass"		'删除子分类
		call delclass()
	case "list"			'文章列表
		call list()
	case "addart"	'添加文章
		call addart()
	case "editart"		'编辑已有文章
		call editart()
	case "delart"		'删除已有文章
		call delart()
	case "remarklist"		'文章评论列表
		call remarklist()
	case "delremark"		'删除文章评论
		call delremark()
	case else
		call list()
End Select
'==================================
'=过 程 名：list()
'=功    能：文章列表
'==================================
sub list()
if request.form("keyword")<>"" then
	keyword=checksql("文章关键词",request.form("keyword"),1,50)
end if
if request.querystring("cat_id")<>"" then
	cat_id=checksql("文章分类ID",request.querystring("cat_id"),0,4)
end if
if request.querystring("class_id")<>"" then
	class_id=checksql("文章子类ID",request.querystring("class_id"),0,4)
end if
if request.form("colname")<>"" then
	colname=checksql("搜索关键词",request.form("colname"),1,50)
end if
sql="select * from wapls_art order by istop=1,art_date desc"
if cat_id<>"" and class_id="" then
	sql="select * from wapls_art where cat_id="&cat_id&" order by istop=1,art_date desc"
elseif class_id<>"" and keyword="" then
	sql="select * from wapls_art where class_id="&class_id&" order by istop=1,art_date desc"
elseif keyword<>"" and colname<>"0" then
	sql="select  * from wapls_art where "&colname&" like '%"&keyword&"%' order by istop=1,art_date desc"
else
	sql="select  * from wapls_art order by istop=1,art_date 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">
	<form>
		<td width="40%" align="center">跳转到
		<select name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'>
		<option value="admin_art.asp">选择分类</option>
		<option value="admin_art.asp">文章管理首页</option>
		<%
		Set rscat = Server.CreateObject("ADODB.Recordset")
		sqlcat="SELECT * from wapls_art_cat"
		rscat.OPEN sqlcat,Conn,1,1
		do while not rscat.eof
		colparam1=rscat("cat_id")
		%>
		<option value="?cat_id=<%=rscat("cat_id")%>">----<%=rscat("cat_name")%>----</option>
		<%
		Set rsclass = Server.CreateObject("ADODB.Recordset")
		sqlclass="SELECT * from wapls_art_class where cat_id=" &colparam1& ""
		rsclass.OPEN sqlclass,Conn,1,1
		do while not rsclass.eof
		%>
		<option value='?cat_id=<%=rsclass("cat_id")%>&class_id=<%=rsclass("class_id")%>'><%=rsclass("class_name")%></option>
		<%
		rsclass.movenext
		loop
		rsclass.close
		set rsclass=nothing
		rscat.movenext
		loop
		rscat.close
		set rscat=nothing
		%>
		</select>
		</td>
	</form>
	<form name="form1" method="post" action="?action=list">
		<td width="67%" align="center"><select name="colname">
		<option value="art_title" selected>文章名称</option>
		<option value="art_content">文章内容</option>
		</select>
		<input type="text" name="keyword">
		&nbsp;&nbsp; <input type="submit" name="Submit" value="搜索">
		</td>
	</form>
	</tr>
</table>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td align="right">
		<%
		dim flname
		flname=""
		if request.querystring("class_id")<>"" then
			sql="select class_name from wapls_art_class where class_id="&request.querystring("class_id")
			set rsclass=conn.execute(sql)
			flname=rsclass("class_name")
			rsclass.close
			set rsclass=nothing
			elseif request.querystring("class_id")="" and request.querystring("cat_id")<>"" then
			sql="select cat_name from wapls_art_cat where cat_id="&request.querystring("cat_id")
			set rscat=conn.execute(sql)
			flname=rscat("cat_name")
			rscat.close
			set rscat=nothing
		end if%>
		<font color="#ff6600"><%=flname%></font>分类共有<%=rs.recordcount%>篇文章</td>
	</tr>
</table>
<br>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td colspan="3" class="td_title">文章管理</td>
	</tr>
	<tr align="center" class="tablebody">
		<td  width="13%">编号</td>
		<td  width="70%">文章标题</td>
		<td  width="20%">操作</td>
	</tr>
<%
if not rs.eof then
	rs.movefirst
	perpage=cint(perpage)
	rs.pagesize=perpage
	if trim(request("page"))<>"" then
		currentpage=cint(request.querystring("page"))
		if currentpage>rs.pagecount then
			currentpage=rs.pagecount
		end if
	else
		currentpage=1
	end if
	totalart=rs.recordcount
	if currentpage<>1 then
		if(currentpage-1)*perpage<totalart then
			rs.move(currentpage-1)*perpage
		end if
	end if
	if (totalart mod perpage)=0 then
		totalpages=totalart\perpage
	else
		totalpages=totalart\perpage+1
	end if
	i=0
	do while not rs.eof and i<perpage
	sql="select class_name from wapls_art_class where class_id="&rs("class_id")
	set rsclass=conn.execute(sql)
	classname=rsclass(0)
	rsclass.close:set rsclass=nothing
	sql="select cat_name from wapls_art_cat where cat_id="&rs("cat_id")
	set rscat=conn.execute(sql)
	catname=rscat(0)
	rscat.close:set rscat=nothing
	%>
	<tr class="tablebody">
		<td align="center"><%=rs("art_id")%></td>
		<td><span class="disable_font">[<%=catname%>|<%=classname%>]</span> <%=rs("art_title")%>&nbsp;<%if DateDiff("d",rs("art_date"),now())<1 then%><img src="images/new.gif" border="0"><%end if %><%if rs("user_view")=1 then%>&nbsp;<img src="images/userview.gif" border="0" alt="会员文章，此条需消费<%=rs("moneypay")%>个金币"><%elseif rs("user_view")=2 then%>&nbsp;<img src="images/vipview.gif" border="0" alt="VIP会员文章，此条需消费<%=rs("moneypay")%>个金币"><%end if%><%if rs("art_good")=1 then%>&nbsp;<span class="current_font">[荐]</span><%elseif rs("art_good")=2 then%>&nbsp;<span class="current_font">[精]</span><%end if%><%if rs("istop")=1 then%>&nbsp;<img src="images/ztop.gif" border="0" alt="置顶文章"><%end if%></td>
		<td align="center">
		<button onClick="window.location='?action=editart&art_id=<%=rs("art_id")%>&page=<%=currentpage%>'">编辑</button>&nbsp;<button onClick="window.location='?action=delart&art_id=<%=rs("art_id")%>&page=<%=currentpage%>'">删除</button></td>
	</tr>
	<%
	i=i+1
	rs.movenext
	loop
	else
	if rs.eof and rs.bof then
	%>
	<tr align="center" class="tablebody">
		<td colspan="3" height="70" class="disable_font">当前没有文章！</td>
	</tr>
	<%
	end if
end if
%>
</table>
<%if totalart>perpage then%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form" method="post" action="">
	<tr class="tablebody">
		<td align="center"><%showpage totalart,perpage,"admin_article.asp?action=list&"%></td>
	</tr>
	</form>
</table>
<%
end if
rs.close
set rs=nothing
%>
<br>
<%end sub
'==================================
'=过 程 名：catlist()
'=功    能：文章分类列表
'==================================
sub catlist()
sql="select * from wapls_art_cat order by cat_num"
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 width="20%" class="td_title">大类名称</td>
		<td width="80%" class="td_title">子 分 类 列 表</td>
	</tr>
	<%
	do while not rs.eof
	%>
	<tr class="tablebody">
		<td rowspan="2" align="center"><strong><%=rs("cat_name")%></strong>&nbsp;编号:<%=rs("cat_id")%><br>排序:<%=rs("cat_num")%><br>[<%if rs("cat_br")=1 then%>换行<%else%><span class="current_font">不换行</span><%end if%>]</td></td>
		<td><button onClick="window.location='?action=addclass&catname=<%=rs("cat_name")%>'">新建子分类</button>
		<button onClick="window.location='?action=editcat&id=<%=rs("cat_id")%>&name=<%=rs("cat_name")%>'">修改大分类</button>
		<button onClick="window.location='?action=delcat&id=<%=rs("cat_id")%>&name=<%=rs("cat_name")%>'">删除大分类</button>&nbsp;&nbsp;&nbsp;链接地址:<input size="30" type="text" value="article.asp?Action=cat&id=<%=rs("cat_id")%>" onmouseover="this.focus()" onfocus="this.select()">
		</td>
	</tr>
	<tr class="tablebody">
		<td style="line-height:150%">
		<table border="0" width="100%">
		<%
		sql="select * from wapls_art_class where cat_id="&rs("cat_id")&" order by class_num"
		set rs2=server.createobject("adodb.recordset")
		rs2.open sql,conn,1,1
		do while not rs2.eof%>
		<tr>
		<td width="205">·<%=rs2("class_name")%>&nbsp;编号:<%=rs2("class_id")%>&nbsp;排序:<%=rs2("class_num")%>&nbsp;<%if rs2("class_br")=1 then%>换行<%else%><span class="current_font">不换行</span><%end if%></td>
		<td width="*"><button onClick="window.location='?action=editclass&id=<%=rs2("class_id")%>&catid=<%=rs("cat_id")%>&name=<%=rs2("class_name")%>'">编辑</button>
		<button onClick="window.location='?action=delclass&id=<%=rs2("class_id")%>&catid=<%=rs("cat_id")%>&name=<%=rs2("class_name")%>'">删除</button>&nbsp;&nbsp;&nbsp;链接地址:<input size="30" type="text" value="article.asp?Action=cla&id=<%=rs2("class_id")%>" onmouseover="this.focus()" onfocus="this.select()"></td>
		</tr>
		<%
		rs2.movenext
		loop
		if rs2.bof and rs2.eof then
		response.write "·当前没有子分类！"
		end if
		rs2.close
		set rs2=nothing
		response.write"</table>"
		rs.movenext
		loop
		if rs.bof and rs.eof then
		response.write "<tr class=""tablebody""><td align=""center"" height=""70"" colspan=""2"" class=""disable_font"">当前没有分类！</td></tr>"
		end if
		rs.close
		set rs=nothing
		%>
		</td>
	</tr>
</table>
<br>
<div align="center" class="current_font">* 注意：在设置了一级分类后，必须同时设置二级分类，否则在输入文章时，不能正确选择分类选项！</div>
<%end sub
'==================================
'=过 程 名：addcat()
'=功    能：添加大分类
'==================================
sub addcat()
if request.Form("addcat")="true" then
	cat_name=checksql("文章分类名称",request.form("cat_name"),1,20)
	cat_num=checksql("分类排序",request.form("cat_num"),1,5)
	cat_title=checksql("栏目说明",request.form("cat_title"),1,0)
	if request.form("cat_br")="" then
		cat_br=0
	elseif request.form("cat_br")=1 then
		cat_br=1
	else