admin_wisdom.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.QueryString("action"))
Case LCase("addwisdom")
	Call addwisdom()
Case LCase("deletenode")
	Call deletenode()
Case LCase("editnode")
	Call editNode()
Case Else
	Call adminList()
End Select
Call admin_foot()
sub adminList
if getPopedom("wisdomAdmin")=false then
	popedomMsg
	exit sub
end if
dim xmlpath,xmldom
xmlpath=server.mappath("../xml/wisdom.maosin")
Set xmldom=server.CreateObject("Microsoft.XMLDOM")
xmldom.async="false"
xmldom.Load(xmlpath)
%>
<script language="javascript">
  function showadd(){
  if(document.all("addpro").style.display=="block"){
  document.all("addpro").style.display="none";
  }else{
  document.all("addpro").style.display="block";
  }
  }
  function chtype(thisvalue){
  	var objvalue=thisvalue;
	if(objvalue==2){
		document.all("addtitle1").value="每天一句：";
		document.all("addwis1").value="";
		document.all("addwisdom2").style.display="block";
	}else{
		document.all("addtitle1").value="每日一贴：";
		document.all("addwisdom2").style.display="none";}
	if(objvalue==3){
		document.all("addtitle1").value="";
		document.all("addwis1").value="请直接在这里输入广告代码，支持HTML";
	}
  }
 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 ind=newrow.rowIndex;
	 if(newrow.style.display=="block"){
	  newrow.style.display="none";
	 mytable.rows(ind+1).style.display="block";
	  }
  }
  function put(val){
	  document.all("addtitle1").value+=val;
	  document.all("addtitle2").value+=val;	
  }
</script>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="text table_border mainTable"  id="mytable">
  <tr> 
    <td width="*" height="32" colspan="3" valign="middle" class="td_titleT"> 小贴士管理</td>
  </tr>
  <tr class="td_topT"> 
    <td width="80" height="24" valign="middle" align="center">类型</td>
    <td width="*" valign="middle" align="center">内容</td>
    <td width="90" valign="middle" align="center">操作</td>
  </tr>
<%
dim rscount,pagesizes,pages,pageNo,currentPage,pagetitle,position,position_
rscount=xmldom.DocumentElement.childNodes.length
pagesizes=15
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 name="updateform" action="?action=editnode" method="post">
  <tr class="td_bgcolor" align="center" id="id<%=xmlchildes(position_).childNodes(0).text%>" style="display:none;"> 
    <td height="39" valign="middle">
	<input type="hidden" name="id" value=<%=xmlchildes(position_).childNodes(0).text%> size="4">
	<select name="type">
	<%if cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=1 then%>
        <option value="1" selected="selected">每日一贴</option>
		<option value="2">英语贴</option>
		<option value="3">广告贴</option>
	<%elseif cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=2 then%>
		<option value="1">每日一贴</option>
        <option value="2" selected="selected">英语贴</option>
		<option value="3">广告贴</option>
	<%else%>
		<option value="1">每日一贴</option>
        <option value="2">英语贴</option>
		<option value="3" selected="selected">广告贴</option>
	<%end if%>
      </select></td>
    <td valign="middle" align="left">
	<%if cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=1 then%>
		<div>
		<input name="title1" id="title1<%=xmlchildes(position_).childNodes(0).text%>" type="text"  value="<%=xmlchildes(position_).childNodes(1).Text%>" size="10"/> 
		<input type="text" name="wis1" id="wis1<%=xmlchildes(position_).childNodes(0).text%>" value="<%=xmlchildes(position_).childNodes(2).Text%>" size="45"/>
		<select name="color1">
		<option value="<%=xmlchildes(position_).childNodes(2).getattributeNode("color").value%>" style="background-color:<%=xmlchildes(position_).childNodes(2).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>
		<select name="bgcolor1">
		  <option value="<%=xmlchildes(position_).childNodes(2).getattributeNode("bgcolor").value%>" style="background-color:<%=xmlchildes(position_).childNodes(2).getattributeNode("bgcolor").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>
		</div>
		<div style="display:black;">
		<input name="title2" id="titel2<%=xmlchildes(position_).childNodes(0).text%>" type="text" value="翻译" size="10"/> 
		<input type="text" name="wis2" id="wis2<%=xmlchildes(position_).childNodes(0).text%>" size="45"/>
		<select name="color2">
		<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>
		  <select name="bgcolor2">
		  <option value="#ffffff">背景颜色</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></div>
	<%elseif cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=2 then%>
		<div>
		<input name="title1" type="text"  value="<%=xmlchildes(position_).childNodes(1).Text%>" size="10"/> 
		<input type="text" name="wis1" value="<%=xmlchildes(position_).childNodes(2).Text%>" size="45"/>
		<select name="color1">
		<option value="<%=xmlchildes(position_).childNodes(2).getattributeNode("color").value%>" style="background-color:<%=xmlchildes(position_).childNodes(2).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>
		<select name="bgcolor1">
		  <option value="<%=xmlchildes(position_).childNodes(2).getattributeNode("bgcolor").value%>" style="background-color:<%=xmlchildes(position_).childNodes(2).getattributeNode("bgcolor").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>
		</div>
		<div style="display:black;">
		<input name="title2" value="<%=xmlchildes(position_).childNodes(3).Text%>" type="text" size="10"/> 
		<input type="text" name="wis2" value="<%=xmlchildes(position_).childNodes(4).Text%>" size="45"/>
		<select name="color2">
		<option value="<%=xmlchildes(position_).childNodes(4).getattributeNode("color").value%>" style="background-color:<%=xmlchildes(position_).childNodes(4).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>
		<select name="bgcolor2">
		  <option value="<%=xmlchildes(position_).childNodes(4).getattributeNode("bgcolor").value%>" style="background-color:<%=xmlchildes(position_).childNodes(4).getattributeNode("bgcolor").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>
		</div>
	<%else%>
		<div>
		<input name="title1" id="title1<%=xmlchildes(position_).childNodes(0).text%>" type="text"  value="<%=xmlchildes(position_).childNodes(1).Text%>" size="10"/> 
		<input type="text" name="wis1" id="wis1<%=xmlchildes(position_).childNodes(0).text%>" value="<%=xmlchildes(position_).childNodes(2).Text%>" size="45"/>
		<select name="color1">
		<option value="<%=xmlchildes(position_).childNodes(2).getattributeNode("color").value%>" style="background-color:<%=xmlchildes(position_).childNodes(2).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>
		<select name="bgcolor1">
		  <option value="<%=xmlchildes(position_).childNodes(2).getattributeNode("bgcolor").value%>" style="background-color:<%=xmlchildes(position_).childNodes(2).getattributeNode("bgcolor").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>
		</div>
		<div style="display:black;">
		<input name="title2" id="title2<%=xmlchildes(position_).childNodes(0).text%>" type="text" value="翻译" size="10"/> 
		<input type="text" name="wis2" id="wis2<%=xmlchildes(position_).childNodes(0).text%>" size="45"/>
		<select name="color2">
		<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>
		  <select name="bgcolor2">
		  <option value="#ffffff">背景颜色</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></div>
	<%end if%>
	</td>
    <td valign="middle"><input type="submit" name="Submit" value="更新"/> <button onClick="clearnre(id<%=xmlchildes(position_).childNodes(0).text%>)" name="clearn">取消</button></td>
  </tr></form>
  <tr class="td_bgcolor" align="center" style="display:block;"> 
    <td height="39" valign="middle">
	<%if cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=1 then%>
        每日一贴
	<%elseif cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=2 then%>
        英语贴
	<%else%>
		广告贴
	<%end if%>
      </select></td>
    <td valign="middle" align="left">
	<%if cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=1 then%>
	<div style="height:22px;padding-top:5px;background-color:<%=xmlchildes(position_).childNodes(2).getattributeNode("bgcolor").value%>"><%=xmlchildes(position_).childNodes(1).Text&"<font color="""&xmlchildes(position_).childNodes(2).getattributeNode("color").value&""">"&xmlchildes(position_).childNodes(2).text&"</font>"%></div>
	<%elseif cint(xmlchildes(position_).childNodes(0).getattributeNode("type").value)=2 then%>
	<div style="height:20px;padding-top:5px;background-color:<%=xmlchildes(position_).childNodes(2).getattributeNode("bgcolor").value%>"><%=xmlchildes(position_).childNodes(1).Text&"<font color="""&xmlchildes(position_).childNodes(2).getattributeNode("color").value&""">"&xmlchildes(position_).childNodes(2).text&"</font>"%></div>
	<div style="height:20px;padding-top:5px;border-top:1px dotted #ffffff;background-color:<%=xmlchildes(position_).childNodes(4).getattributeNode("bgcolor").value%>"><%=xmlchildes(position_).childNodes(3).Text&"<font color="""&xmlchildes(position_).childNodes(4).getattributeNode("color").value&""">"&xmlchildes(position_).childNodes(4).text&"</font>"%></div>
	<%else%>
	<%=xmlchildes(position_).childNodes(2).text%>
	<%end if%>
	</td>