<!--#include file="admin_inc.asp"-->
<!--#include file="FCKeditor/fckeditor.asp" -->
<%
'******************************************************************************************
' Software name: Max(马克斯) Content Management System
' Version:4.0
' Web: http://www.maxcms.net
' Author: 石头(maxcms2008@qq.com),yuet,长明,酒瓶
' Copyright (C) 2005-2009 马克斯官方 版权所有
' 法律申明：MaxCMS程序所有代码100%原创、未引入任何网上代码,对一切抄袭行为、坚决严肃追究法律责任
'******************************************************************************************
viewHead "新闻管理" & "-" & menuList(1,0)

dim action : action = getForm("action", "get")

dim m_title,m_content,m_author,m_color,m_hit
dim errStr : errStr="信息填写不完整"
dim page,id,where,keyword:keyword=ReplaceStr(getForm("keyword", "both"),"'","")
checkColorField
Select  case action
	case "add" : addNews
	case "addsave" : addSave
	case "edit" : editNews
	case "editsave" : editSave
	case "del" : delNews
	case "delgbook" : delGbook
	case "handled" : delHandled
	case "delall" : delAll
	case "delallgbook" :  delAllGbook
	case "reporterror" : reportError
	case "comment" : comment
	case "deltotalgbook": delTotalGbook
	case "deltotalcomment":delTotalComment
	case "viewinfo":viewInfo
	case else : main
End Select
viewFoot

Sub main
	dim dataListObj,newsArray,i,n,m_id,m_title,m_videoname
	id=getForm("id","get")
	page=getForm("page","get") 
	if isNul(page)  then page=1
	if page<1 then page=1 else page=clng(page)
	set dataListObj =  mainClassobj.createObject("MainClass.DataList")
	dataListObj.dataCurrentPage=page
	dataListObj.dataPageSize=30
	if isNul(where) then
		dataListObj.whereStr="m_type='news'"
	elseif where = "gbook" then
		dataListObj.whereStr="m_replyid=0"
	else
		dataListObj.whereStr="m_type='"&where&"'"
	end if
	if keyword<>"" then
		if where <> "gbook" then
			dataListObj.whereStr = dataListObj.whereStr & " AND (m_title LIKE '%"&keyword&"%' OR m_content LIKE '%"&keyword&"%' OR m_ip LIKE '"&ReplaceStr(keyword,"*","%")&"')"
		else
			dataListObj.whereStr = dataListObj.whereStr & " AND (m_content LIKE '%"&keyword&"%' OR m_ip LIKE '"&ReplaceStr(keyword,"*","%")&"')"
		end if
	end if
	dataListObj.primaryfield = "m_id"
	if where = "gbook" then
		dataListObj.fieldsStr = "m_id,m_author,m_content,m_addtime,m_ip"
		dataListObj.tableStr = "{pre}leaveword"
	else
		dataListObj.fieldsStr = "m_id,m_author,m_title,m_addtime,m_ip,m_content,m_videoid,m_color,m_hit,m_type"
		dataListObj.tableStr = "{pre}info"
	end if
	newsArray = dataListObj.getPageList()
	if page > dataListObj.pagesCount then page=dataListObj.pagesCount
%>
<div id="append_parent"></div>
<div class="container" id="cpcontainer">
<!--当前导航-->
<script type="text/JavaScript">if(parent.$('admincpnav')) parent.$('admincpnav').innerHTML='后台首页&nbsp;&raquo;&nbsp;<%=menuList(1,0)%>&nbsp;&raquo;&nbsp;<%echoNewsType(where)%>';</script>
<%
	if isNul(where) then
%>
<table align="left"><tr><td><input type="button" value="添加新闻" onClick="location.href='?action=add'" class="btn" /></td></tr></table>
<%
	end if
	if isArray(newsArray) then
		n=ubound(newsArray,2)
%>
<table class="tb">
<tr class="thead"><th colspan="8"><em style="font-weight:bold"><%echoNewsType(where)%></em><em style="color:#000;">&nbsp;&nbsp;&nbsp;关键字：<input name="keyword" type="text" id="keyword" size="20" value="<%=keyword%>"> <input type="submit" name="selectBtn" value="查 询..." class="btn" onclick="location.href='?action=<%=action%>&where=<%=where%>&keyword='+escape($('keyword').value);" /><%if where<>"" then:echo "&nbsp;&nbsp;搜索IP:192.168.1.*":end if%></em></th></tr>
<form name="newslistform" method="post">
<tr><td>ID </td><td><%if isNul(where) then%>新闻标题<%elseif where="comment" then%>评论内容<%elseif where="reporterror" then%>报错内容<%elseif where="gbook" then%>留言内容<%end if%> </td>
<%if isNul(where) then%><td>点击率</td><% end if%>
<%if where="reporterror"  then%><td>错误数据名称(ID)</td><%elseif where="comment"  then%><td>评论数据名称(ID)</td><%end if %>
<%if where="comment" then%><td>评论者IP </td><%elseif where="reporterror" then%><td>报错IP </td><%elseif where="gbook" then%><td>留言者IP </td><%end if%>
<td>时间 </td><td><% if where="reporterror" then%>报错者<%elseif where="comment" then%>评论人<%elseif where="gbook" then%>评论人<%else%>颜色<%end if%></td> <td>操作</td> </tr>
		<%
        for i=0 to n
            m_id= trim(newsArray(0,i))
            m_title= trim(newsArray(2,i))
			if where<>"gbook" then m_color= trim(newsArray(7,i))
			if where <>"gbook" then 
		%>
    <tr bgcolor="#ffffff" ><td><input type="checkbox" value="<%=m_id%>" name="m_id"  class="checkbox" /><%=m_id%> </td><%if not isNul(where) then%><td >
			<%=showFace(getStrByLen(trim(newsArray(5,i)),40))%>  <a href="?action=viewinfo&type=<%=where%>&m_id=<%=newsArray(0,i)%>">查看详情</a> 
    </td><%else%><td><a href="<%="../"&newsDirName&"/?"&m_id&filesuffix%>" target="_blank"><%=showFace(getStrByLen(m_title,40))%></a></td><%end if%>
	<%
			else
	%>
	<tr bgcolor="#ffffff" ><td><input type="checkbox" value="<%=m_id%>" name="m_id"  class="checkbox" /><%=m_id%> </td><td title="<%=trim(newsArray(2,i))%>"><%=showFace(getStrByLen(newsArray(2,i),40))%> </td>
	<%
			end if 
	
			if isNul(where) then%><td><%= trim(newsArray(8,i)) %></td><% end if%>
	<%
			if where="reporterror" or where="comment" then
				%><td><%
				on error resume next
				dim newsRsObj,m_typeId : set newsRsObj = conn.db("select m_name,m_type,m_enname,m_datetime from {pre}data where m_id="&newsArray(6,i),"execute")
				m_videoname = newsRsObj(0)
				m_typeId = newsRsObj(1)
				if err  then m_videoname="" : err.clear
				if not isNul(m_videoname) then
					if where="reporterror" then 
				%>
				<a href='<%=getPlayLink2(m_typeId,newsArray(6,i),newsRsObj(2),newsRsObj(3),0,0)%>' target='_blank'><%=m_videoname%></a>
				(<%=newsArray(6,i)%>)<a href='admin_video.asp?action=edit&id=<%=newsArray(6,i)%>'> <font color="#FF0000">处理</font></a></td>
				<%
					else
						echo "<a href='"&getContentLink(newsArray(6,i),m_typeId,newsRsObj(2),newsRsObj(3),"")&"' target='_blank' >"&m_videoname&"("&newsArray(6,i)&")</a></td>"
					end if
				else
					echo "该数据已删除</td>"
				end if
				newsRsObj.close:SET newsRsObj=nothing
			end if 
	%>
	<%		if where="comment" OR where="reporterror" OR where="gbook" then%><td><%=newsArray(4,i)%></td><%end if%><td><%isCurrentDay(newsArray(3,i))%> </td><td><%
			if where="" then 
%>
<select name="m_color"  style="width:100px" disabled="disabled">
		<option style="background-color:<%=m_color%>;color: <%=m_color%>" value="<%=m_color%>"><%=m_color%></option>
        <option style="background-color:#FF0000;color: #FF0000" value="#FF0000">红色</option> 
        <option style="background-color:#FF33CC;color: #FF33CC" value="#FF33CC">粉红</option>  
        <option style="background-color:#00FF00;color: #00FF00" value="#00FF00">绿色</option>
        <option style="background-color:#0000CC;color: #0000CC" value="#0000CC">深蓝</option>
        <option style="background-color:#FFFF00;color: #FFFF00" value="#FFFF00">黄色</option>
        <option style="background-color:#660099;color: #660099" value="#660099">紫色</option>
		</select>
<%			else 
				echo newsArray(1,i) 
			end if
	%> </td><td> 
	<%if isNul(where) then%> 
    	<a href="?action=edit&id=<%=m_id%>&where=<%=where%>">编辑</a> 
    <%end if%>
    <a onClick="if(confirm('确定要删除吗')){return true;}else{return false;}" <% if where = "gbook" then %>href="?action=delgbook&id=<%=m_id%>" <%else%>href="?action=del&id=<%=m_id%>"<%end if%> >删除</a></td></tr>
		<%
        next
        %>
    <tr>
    <td colspan="8">全选<input type="checkbox" name="chkall" id="chkall" class="checkbox" onClick="checkAll(this.checked,'input','m_id')" />反选<input type="checkbox" name="chkothers" id="chkothers" class="checkbox" onClick="checkOthers('input','m_id')" /><input type="submit" value="批量删除" onClick="if(confirm('确定要删除吗')){newslistform.action='?<% if where = "gbook" then %>action=delallgbook'<%else%>action=delall'<%end if %>;}else{return false}" class="btn"  />
    <% 
	if where = "gbook" then %>
    <input type="submit" value="全部删除" onClick="if(confirm('确定要删除全部吗')){newslistform.action='?action=deltotalgbook'}" class="btn"/>
	<%elseif where = "comment" then %>
	<input type="submit" value="全部删除" onClick="if(confirm('确定要删除全部吗')){newslistform.action='?action=deltotalcomment'}" class="btn"/>
    <% end if%>
	<%if where="reporterror" then%><!--<input type="submit" value="删除已处理报错" onclick="newslistform.action='?action=handled';" class="btn"  />--><%end if%>
	</td></tr>
	<tr>
    <td colspan="8"><div class="cuspages"><div class="pages">页次<%=page%>/<%=dataListObj.pagesCount%> 每页<%=dataListObj.dataPageSize%>总收录数据<%=dataListObj.recordsCount%>条 <a href="?page=1&where=<%=where%>&action=<%=action%>&keyword=<%=keyword%>">首页</a> <a href="?page=<%=(page-1)%>&where=<%=where%>&action=<%=action%>&keyword=<%=keyword%>">上一页</a> <%=makePageNumber(page, 10, dataListObj.pagesCount, "newslist")%><a href="?page=<%=(page+1)%>&where=<%=where%>&action=<%=action%>&keyword=<%=keyword%>">下一页</a> <a href="?page=<%=dataListObj.pagesCount%>&where=<%=where%>&action=<%=action%>&keyword=<%=keyword%>">尾页</a>&nbsp;&nbsp;跳转<input type="text" id="skip" value="" onkeyup="this.value=this.value.replace(/[^\d]+/,'')" style="width:40px"/>&nbsp;&nbsp;<input type="button" value="确定" class="btn" onclick="location.href='?page='+$('skip').value+'&where=<%=where%>&action=<%=action%>&keyword=<%=keyword%>';"/></div></div>
    </td></tr>
</form>
</table>
<%	else
		dim back
		if keyword<>"" then back=",<a href='javascript:history.go(-1)'><u>返回上一页</u></a>"
		die "<table class='tb'><tr><td>没有记录"&back&"</td></tr></table>"
	end if
	set dataListObj = nothing
End Sub

Sub addNews
%>
<div class="container" id="cpcontainer">
<form action="?action=addsave" method="post">
<table class="tb" >
<tr class="thead"><th colspan="2"><%echoNewsType(where)%></th></tr>
<tr><td width="14%">新闻标题：</td><td><input type="text" size="100"  name="m_title"  /><font color="red">＊</font></td></tr>
<tr><td >新闻标题颜色：</td><td > <select name="m_color" style="width:100px">
		<option value="" selected>标题颜色</option>
        <option style="background-color:#FF0000;color: #FF0000" value="#FF0000">红色</option> 
        <option style="background-color:#FF33CC;color: #FF33CC" value="#FF33CC">粉红</option>  
        <option style="background-color:#00FF00;color: #00FF00" value="#00FF00">绿色</option>
        <option style="background-color:#0000CC;color: #0000CC" value="#0000CC">深蓝</option>
        <option style="background-color:#FFFF00;color: #FFFF00" value="#FFFF00">黄色</option>
        <option style="background-color:#660099;color: #660099" value="#660099">紫色</option>
        <option style="" value="">无  色</option>
		</select></td></tr>
<tr><td >新闻点击率：</td><td>
<input type="text" maxlength="9"  name="m_hit" value="0">
</td></tr>
<tr><td>新闻内容：</td><td>  
  <%Dim oFCKeditor:Set oFCKeditor = New FCKeditor:oFCKeditor.BasePath="fckeditor/":oFCKeditor.ToolbarSet="maxcms":oFCKeditor.Width="640":oFCKeditor.Height="300":oFCKeditor.Create "m_content"%><font color="red">＊</font>
</td></tr>
<tr><td></td><td><input type="submit" value="添   加" class="btn" />&nbsp;<input type="button" value="返   回"  class="btn" onClick="javascript:history.go(-1)" /></td></tr>
</table>
</form>
<%	
End Sub

Sub editNews
	id=getForm("id","get") : page = getForm("page","get") : where = getForm("where","get")
	dim rsObj : set rsObj=conn.db("select * from {pre}info where m_id="&id,"records1")
	m_color=rsObj("m_color")
%>
<div class="container" id="cpcontainer">
<form action="?action=editsave&id=<%=id%>&where=<%=where%>" method="post">
<table class="tb">
<tr class="thead"><th colspan="2"><%echoNewsType(where)%></th></tr>
<tr><td width="14%">新闻标题：</td><td><input type="text" size="80"  name="m_title" value="<%=rsObj("m_title")%>" /><font color="red">＊</font></td></tr>
<tr><td>新闻标题颜色：</td><td>
		<select name="m_color" style="width:100px">
		<option style="background-color:<%=m_color%>;color: <%=m_color%>" value="<%=m_color%>"><%=m_color%></option>
        <option style="background-color:#FF0000;color: #FF0000" value="#FF0000">红色</option> 
        <option style="background-color:#FF33CC;color: #FF33CC" value="#FF33CC">粉红</option>  
        <option style="background-color:#00FF00;color: #00FF00" value="#00FF00">绿色</option>
        <option style="background-color:#0000CC;color: #0000CC" value="#0000CC">深蓝</option>
        <option style="background-color:#FFFF00;color: #FFFF00" value="#FFFF00">黄色</option>
        <option style="background-color:#660099;color: #660099" value="#660099">紫色</option>
        <option style="" value="">无  色</option>
		</select>
</td></tr>
<tr><td >新闻点击率：</td><td>
<input type="text"  maxlength="9"  name="m_hit" value="<%= rsObj("m_hit")%>">
</td></tr>
<tr><td>新闻内容：</td><td> 
  <%Dim oFCKeditor:Set oFCKeditor = New FCKeditor:oFCKeditor.BasePath="fckeditor/":oFCKeditor.ToolbarSet="maxcms":oFCKeditor.Width="640":oFCKeditor.Height="300":oFCKeditor.Value=decodeHtml(rsObj("m_content")):oFCKeditor.Create "m_content"%>
  <font color="red">＊</font>
  </td></tr>
<tr><td></td><td ><input type="hidden"  value="<%=getRefer()%>" name="refer"/><input type="submit" value="修    改" class="btn" />&nbsp;<input type="button" value="返    回" onClick="self.location.href='<%=getRefer()%>'" class="btn" /></td></tr>
</table>
</form>
<%
	rsObj.close
	set rsObj=nothing
End Sub

Sub viewInfo
	dim id,viewType : id=getForm("m_id","get"):viewType=getForm("type","get")
   	dim rsObj:set rsObj=conn.db("select m_content from {pre}info where m_id="&id,"records1")
%>
<div class="container" id="cpcontainer">
<table class="tb">
<tr class="thead"><th colspan="2"><%if viewType="reporterror" then echo "报错" else if viewType="comment" then  echo "评论"%>详情查看</th></tr>
<tr><td>
<%
if not rsObj.eof then 
	if viewType="reporterror" then echo replaceStr(rsObj(0),chr(13)&chr(10),"<br/>") else if viewType="comment" then echo showFace(rsObj(0)) 
else
	echo "没有找到记录"
end if
%>
</td></tr>
<tr><td><input type="button" value="返    回" onClick="self.location.href='<%=getRefer()%>'" class="btn" /></td></tr>
</table>
<%
	rsObj.close:set rsObj=nothing
End Sub

Sub addSave
	m_title =getForm("m_title","post") : m_content =encodeHtml(getForm("m_content","post")) : m_color=getForm("m_color","post"):m_hit = Clng(getForm("m_hit","post"))
	if isNul(m_title) or isNul(m_content) then die errStr
	'if isNul(m_author) then m_author="网站管理员"
	conn.db  "insert into {pre}info(m_title,m_type,m_color,m_content,m_addtime,m_hit) values('"&m_title&"','news','"&m_color&"','"&m_content&"','"&now()&"',"&m_hit&")","execute" 
	alertMsg "添加成功","admin_news.asp" 
End Sub

Sub checkColorField
	'if not checkField("m_color","{pre}info") then conn.db "alter table {pre}info add m_color varchar(20)","execute"
End Sub

Sub delAll
	dim refer : refer=getRefer
	dim ids : ids=replaceStr(getForm("m_id","post")," ","")
	conn.db "delete from {pre}info where m_id in ("&ids&")","execute" 
	alertMsg "",refer
End Sub

'<!--7.02开始-->
Sub delAllGbook
	dim refer : refer=getRefer
	dim ids : ids=replaceStr(getForm("m_id","post")," ","")
	conn.db "delete from {pre}leaveword where m_id in ("&ids&")","execute"
	alertMsg "",refer
End Sub

Sub delTotalGbook
	dim refer : refer=getRefer
	conn.db "delete from {pre}leaveword ","execute"
	alertMsg "",refer
End Sub



Sub delTotalComment
	dim refer : refer=getRefer
	conn.db "delete from {pre}info where m_type='comment'","execute"
	alertMsg "",refer
End Sub
'<!--7.02结束 -->
Sub delNews
	dim refer : refer=getRefer
	id = getForm("id","get")
	conn.db "delete from {pre}info where m_id="&id,"execute"
	alertMsg "",refer
End Sub


Sub delGbook
	dim refer : refer=getRefer
	id = getForm("id","get")
	conn.db "delete from {pre}leaveword where m_id="&id,"execute"
	alertMsg "",refer
End Sub

Sub editsave
	dim refer
	id=getForm("id","get") : where = getForm("where","get") : refer=getForm("refer","post") : m_title =getForm("m_title","post") : m_content =encodeHtml(getForm("m_content","post")) : m_color=getForm("m_color","post") :m_hit = Clng(getForm("m_hit","post"))
	if isNul(m_title) or isNul(m_content) then die errStr
	'if isNul(m_author) then m_author="网站管理员"
	if isNul(where) then where="news"
	conn.db  "update {pre}info set m_hit = '"&m_hit&"',m_title='"&m_title&"',m_type='"&where&"',m_color='"&m_color&"',m_content='"&m_content&"',m_addtime='"&now()&"' where m_id="&id,"execute" 
	alertMsg "编辑成功",refer 
End Sub

Sub comment
	where = getForm("where","get")
	main
End Sub

Sub reportError
	where = getForm("where","get")
	main
End Sub

Sub echoNewsType(str)
	if  str="reporterror" then
		echo "报错处理"
	elseif str="comment" then
		echo "评论管理"
	elseif str="gbook" then
		echo "留言管理"
	else 
		echo "新闻管理" 
	end if
End Sub


%>