admin_message.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="../include/admin_setting.asp"-->
<!--#include file="admin_function.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
Call admin_top()
Select Case LCase(Request("action"))
Case LCase("saveMsg")
	Call saveMsg()
Case LCase("delmsg")
	Call delmsg()
Case LCase("saveUpdate")
	Call saveUpdate()
Case LCase("showSet")
	Call showSet()
Case Else
	Call msgList()
End Select
Call admin_foot()

Sub msgList()
if getPopedom("afficheAdmin")=false then
	popedomMsg
	exit sub
end if
dim xmlpath,xmldom,showtype
xmlpath=server.mappath("../xml/message.maosin")
set xmldom=Server.CreateObject("Microsoft.XMLDOM")
xmldom.async="false"
xmldom.load(xmlpath)
showtype=cint(xmldom.documentElement.getattributeNode("showType").value)
%>
<script type="text/javascript">
  function showadd(){
  if(document.all("addpro").style.display=="block"){
  document.all("addpro").style.display="none";
  }else{
  document.all("addpro").style.display="block";
  }
  }
  function editpro(objrow){
  var myrow=objrow.parentElement.parentElement
  var ind=myrow.rowIndex;//表行号 
	  if(myrow.style.display=="block"){
	  myrow.style.display="none";
	  mytable.rows(ind-1).style.display="block";
	  }
  }
  
  function clearnre(newrow){
 // var myrow=newrow.parentElement.parentElement
 	var ind=newrow.rowIndex;//表行号  
	 if(newrow.style.display=="block"){
	  newrow.style.display="none";
	 mytable.rows(ind+1).style.display="block";
	  }
  }
  function setNum(obj){
  if (obj.showtype.value=="num"){
	  var num=prompt("请输入要显示的公告条数：","1");
	  obj.showNum.value=num;
  }else{
  	obj.showNum.value=obj.showtype.value;	
  }
  }
  </script>
<table width="100%" border="0" cellpadding="2"  cellspacing="1" class="text table_border mainTable"  id="mytable">
  <tr> 
    <td height="25" colspan="5" valign="middle" class="td_titleT">公告管理 | <a href="#" onclick="showadd()"><font color="#ffffff">添加公告</font></a> | &nbsp;显示类型：<form action="admin_message.asp?action=showSet" method="post" style="margin:0px;display:inline;" title="设置方法：&#10;滚动显示：表示滚动的显示全部公告；&#10静止(n条)：表示静止显示“n” 条公告；&#10;滚动条(all)：表示全部显示，自动显示滚动条。"><input type="hidden" name="showNum" id="showNum"/><select name="showtype" onChange="setNum(this.form)"><option value="0" <%if showtype=0 then response.write("selected")%>>滚动显示</option><option value="num" <%if showtype>=1 then response.write("selected")%>>静止(<%if showtype<1 then :response.write("n") :else :response.write(showtype) :end if%>条)</option><option value="-1" <%if showtype=-1 then response.write("selected")%>>滚动条(all)</option></select> <input tabindex="0" type="submit" name="submit1" value="设置"/></form></td>
  </tr>
  <tr class="td_topT"> 
    <td width="45" height="24" align="center" valign="middle">编号ID</td>
    <td width="*" align="center" valign="middle">内容</td>
    <td width="100" align="center" valign="middle">公告属性</td>
    <td width="180" align="center" valign="middle">添加 时间/人</td>
    <td width="100" align="center" valign="middle">操作选项</td>
  </tr>
  <form action="admin_message.asp?action=saveMsg" name="addForm" method="post">
  <tr class="td_bgcolor"  onMouseOver="mouseOver(this)" onMouseOut="mouseOut(this)" id="addpro" style="display:none;"> 
    <td height="42" align="center" valign="middle">自动</td>
    <td align="left" valign="middle"> <textarea name="addcontent" cols="47" rows="3" id="addcontent"></textarea><br/><a href="javascript:edit_size(-5,'addcontent')"><img src="images/minus.gif" align="bottom" border="0"></a><a href="javascript:edit_size(5,'addcontent')"><img src="images/plus.gif" align="bottom" border="0"></a></td>
    <td align="center" valign="middle">
	<select name="msgType" id="msgType">
	<option value="1">首页公告</option><option value="2">首页消息</option>
	</select> <br> 
	<select name="color" id="color">
	  <option value="#000000">颜色选择</option>
	  <%
	  colorStr=split(colorRS,",")
	  for i=0 to ubound(colorStr)
		  Response.Write ("<option style=""background-color:"& colorStr(i) &";color: "& colorStr(i) &""" value="""&colorStr(i)&""">"&colorStr(i)&"</option>")
	  next
	  %>
     </select> <br> </td>
    <td align="center" valign="middle">
	  时  &nbsp;间：<input name="joinTime" class="wenbenkang" type="text" value="<%=date%>" id="joinTime" size="14"> <br/>
      发布人：<input name="joinUser" class="wenbenkang" type="text" id="joinUser" size="14"></td>
    <td valign="middle" align="center"><input name="save" type="submit" value="添加"/>&nbsp;<input type="button" onClick="javascript:showadd();" value="取消"/></td>
  </tr>
 </form>
<%
dim rscount,pagesizes,pages,pageNo,currentPage,pagetitle,position,position_
rscount=xmldom.DocumentElement.childNodes.length
pagesizes=10
pages=cint(rscount+pagesizes-1)\pagesizes'总页数
pageNo=Request.QueryString("pageNo")
if pageNo="" then
currentPage=1
else
currentPage=pageNo
end if
	pagetitle="&nbsp;&nbsp;<a href='?pageNo=1'>首页</a>"
if currentPage>1 then
	pagetitle=pagetitle&"&nbsp;&nbsp;<a href='?pageNo="&currentPage-1&"'>上一页</a>"
else
	pagetitle=pagetitle&"&nbsp;&nbsp;上一页"
end if
if Cint(currentPage)<Cint(pages) then
	pagetitle=pagetitle&"&nbsp;&nbsp;<a href='?pageNo="&currentPage+1&"'>下一页</a>"
else
	pagetitle=pagetitle&"&nbsp;&nbsp;下一页"
end if
	pagetitle=pagetitle&"&nbsp;&nbsp;<a href='?pageNo="&pages&"'>尾页</a>"
if currentPage=1 then
position=0
else
position=pagesizes*currentPage-pagesizes
end if
dim xmlchildes,line
set xmlchildes=xmldom.documentElement.childNodes
line=0
do while position<rscount and line<pagesizes
position_=rscount-position-1
%>  
  <form action="admin_message.asp?action=saveUpdate" name="editForm" method="post">
  <tr class="td_bgcolor"  onMouseOver="mouseOver(this)" onMouseOut="mouseOut(this)" id="id<%=xmlchildes(position_).childNodes(0).text%>" style="display:none;"> 
    <td height="42" align="center" valign="middle"><input type="text" name="id" size="4" readonly value="<%=xmlchildes(position_).childNodes(0).text%>"/></td>
    <td align="left" valign="middle"> <textarea name="content" cols="47" rows="3" id="editcontent<%=xmlchildes(position_).childNodes(0).text%>"><%=xmlchildes(position_).childNodes(1).text%></textarea><br/><a href="javascript:edit_size(-5,'editcontent<%=xmlchildes(position_).childNodes(0).text%>')"><img src="images/minus.gif" align="bottom" border="0"></a><a href="javascript:edit_size(5,'editcontent<%=xmlchildes(position_).childNodes(0).text%>')"><img src="images/plus.gif" align="bottom" border="0"></a></td>
    <td align="center" valign="middle">
	<select name="msgType" id="msgType">
	<%if cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=1 then%>
	<option value="1" selected>首页公告</option>
	<option value="2">首页消息</option>
	<%else%>
	<option value="1">首页公告</option>
	<option value="2" selected>首页消息</option>	
	<%end if%>
	</select><br/> 
	<select name="color" id="color">
	<option value="<%=xmlchildes(position_).childnodes(1).getattributeNode("color").value%>" style="background-color:<%=xmlchildes(position_).childnodes(1).getattributeNode("color").value%>" selected>颜色选择</option>
	 <%
	  colorStr=split(colorRS,",")
	  for i=0 to ubound(colorStr)
		  Response.Write ("<option style=""background-color:"& colorStr(i) &";color: "& colorStr(i) &""" value="""&colorStr(i)&""">"&colorStr(i)&"</option>")
	  next
	  %>
     </select> <br> </td>
    <td align="center" valign="middle">
	  时  &nbsp;间：<input name="joinTime" class="wenbenkang" type="text" value="<%response.write(xmlchildes(position_).childNodes(2).text)%>" id="joinTime" size="14"> <br/>
      发布人：<input name="joinUser" class="wenbenkang" type="text" id="joinUser" value="<%=xmlchildes(position_).childNodes(3).text%>" size="14"></td>
    <td valign="middle" align="center"><input name="saveupdate" type="submit" value="更新"/>&nbsp;<input type="button" onClick="clearnre(id<%=xmlchildes(position_).childNodes(0).text%>)" name="clearn" value="返回"/></td>
  </tr>
 </form>
  <tr class="td_bgcolor"  onMouseOver="mouseOver(this)" onMouseOut="mouseOut(this)" style="display:block;"> 
    <td height="42" align="center" valign="middle"><%=xmlchildes(position_).childNodes(0).text%></td>
    <td align="left" valign="middle"> <div style="border:1px solid #0096CE;padding:2px;height:40px;width:350px;word-break:break-all;overflow-y:auto;color:<%=xmlchildes(position_).childnodes(1).getattributeNode("color").value%>;" id="coentent<%=xmlchildes(position_).childNodes(0).text%>"><%=xmlchildes(position_).childNodes(1).text%></div><a href="javascript:allSize(-50,'coentent<%=xmlchildes(position_).childNodes(0).text%>')"><img src="images/minus.gif" align="bottom" border="0"></a><a href="javascript:allSize(50,'coentent<%=xmlchildes(position_).childNodes(0).text%>')"><img src="images/plus.gif" align="bottom" border="0"></a></td>