<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->
<!--#include file="Include/Session.asp"-->
<%
Const CheckNewVersion=true   '是否检测获得官方最新版本信息
response.cachecontrol="no-cache"
response.addHeader "pragma","no-cache"
response.expires=-1
response.expiresAbsolute=now-1
Response.CharSet="gb2312"
'****************************************************
' Software name:Kesion CMS 9.5
' Email: service@kesion.com . 营销QQ:4000080263  Tel:400-008-0263
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New Admin_Index
KSCls.Kesion()
Set KSCls = Nothing

Class Admin_Index
        Private KS
		Private Sub Class_Initialize()
		  Set KS=New PublicCls
		  CheckChannelStatus
		End Sub
        Private Sub Class_Terminate()
		 Set KS=Nothing
		End Sub
		
		Sub CheckChannelStatus()
		 if session(KS.SiteSN&"setmodelstatus")<>ChannelNotOnStr then
		 conn.execute("update ks_channel set channelstatus=0 where channelid<100 and channelid in(" & channelNotOnStr & ")")
		 session(KS.SiteSN&"setmodelstatus")=ChannelNotOnStr
		 Call KS.DelCahe(KS.SiteSN & "_ChannelConfig")
		 end if
		End Sub

		Public Sub Kesion()
		    Call CheckSetting()
			Select Case KS.G("Action")
			 Case "Main" Call KS_Main()
			 Case "ver"  Call GetRemoteVer()
			 Case "copyright" Call CopyRight()
			 Case "setTips" Call setTips()
			 Case "ajax1" Call ajax1()
			 Case Else  Call KS_Index()
			End Select
		End Sub
		Sub KS_Index()
		%><!DOCTYPE html>
<html>
<head>
<title><%=KS.Setting(0)%>-网站后台管理系统 Powered by KesionCMS V<%=GetVersion%></title>
<meta charset="gb2312" />
<link href="images/frame.css" rel=stylesheet>
<script type="text/javascript" src="../ks_inc/jquery.js"></script>
<script type="text/javascript" src="../ks_inc/common.js"></script>
<script type="text/javascript" src="images/jquery.tools.min.js"></script>
<script type="text/javascript" src="../ks_inc/lhgdialog.js"></script>
<!--[if IE 6]>
<script src="../js/iepng.js" ></script>
<script >
   EvPNG.fix('div, ul, img, li, input'); 
</script>
<![endif]-->
<script> 
<!--
   //保存复制,移动的对象,模拟剪切板功能
  function CommonCopyCutObj(ChannelID, PasteTypeID, SourceFolderID, FolderID, ContentID)
  {
   this.ChannelID=ChannelID;             //频道ID
   this.PasteTypeID=PasteTypeID;         //操作类型 0---无任何操作,1---剪切,2---复制
   this.SourceFolderID=SourceFolderID;   //所在的源目录
   this.FolderID=FolderID;               //目录ID
   this.ContentID=ContentID;             //文章或图片等ID
  }
  function CommonCommentBack(FromUrl)
  {
    this.FromUrl=FromUrl;             //保存来源页的地址
  }
  //初始化对象实例
 var CommonCopyCut=null;
 var CommonComment=null;
 var DocumentReadyTF=false;
 $(document).ready(function(){
    fHideFocus("A");
	if (DocumentReadyTF==true) return;
	CommonCopyCut=new CommonCopyCutObj(0,0,0,'0','0');
	CommonComment=new CommonCommentBack(0);
	DocumentReadyTF=true;
});
 
var box=null;
function openWin(title,url,isreload,width,height){ 
	if (width==null) width=760;
	if (height == null) height = 450;
	box = jQuery.dialog({ id:'topbox',lock: true, title: title, content: "url:" + url, width: width, height: height, close: function() {
			   if (isreload) {
				 frames['MainFrame'].location.reload();
				}
			  }
	 });
}
function fHideFocus(tName){
	aTag=document.getElementsByTagName(tName);
	for(i=0;i<aTag.length;i++)aTag[i].onfocus=function(){this.blur();};
}
		
function out(src){
 $.dialog.confirm("确定要退出系统吗？",function(){location.href='Login.asp?Action=LoginOut';},function(){});
 }
function modifyPass(){
openWin('修改后台登录密码','KS.Admin.asp?Action=SetPass',false,520,265)
}
function getNewMessage()
 {
  var url = '../user/UserAjax.asp';
  jQuery.get(url,{action:'GetAdminMessage'},function(d){ 
      if (d==0){jQuery('#newmessage').hide();}else{jQuery('#newmessage').show();jQuery('#newmessage').attr("title","有"+d+"条新消息!");}
   });
 }
function setCookieTips(tf){
	var v=0;
	if (tf){ v=0;}else{v=1;} 
	jQuery.ajax({ 
	url: "index.asp",
	cache: false,
	data: "action=setTips&v="+v,
	success: function(d){ if (d!='success'){alert(d);}}});
}
setTimeout('getNewMessage()', 3000);
function showleft(id)
{ 
    $("#TabPage li").attr("class","");
	$("#left_tab"+id).attr("class",'curr');
	var dvs=$(".leftbox");
	for (var i=0;i<dvs.length;i++){if (dvs[i].id==('left'+id)){$("#"+dvs[i].id).show('fast');}else{$("#"+dvs[i].id).hide('fast');}}
}

//-->
</script>


</head>
<body style="overflow:hidden" scroll="no" oncontextmenu="return false" onselectstart="return false" ondragstart="return false" onbeforecopy="return false" oncopy=document.selection.empty() onselect=document.selection.empty()> 

<script type="text/javascript" src="images/jsScroller.js"></script>
<script type="text/javascript" src="images/jsScrollbar.js"></script>
<script type="text/javascript">
var scroller  = null;
var scrollbar = null;

$(document).ready(function(){
  rz();
  $(window).resize(function () { 
   rz();
  });
});


function rz(){
 var h=$(window).height()-$("#topframe").height()-$("#bottomframe").height();
 $("#Container").height(h);
 $(".Scrollbar-Track").height(h);
 $(".backmain").height(h);
 $("#mainright").width($(window).width()-170)
 $("#MainFrame").height(h-32);
  
  if (navigator.userAgent.indexOf('Firefox') >= 0 || !-[1,]&&!window.XMLHttpRequest){ //firefox ie6浏览器左边出现滚动条
    $("#Container").attr("style","overflow-x:hidden;overflow-y:auto;height:"+h+"px");
	$("#News").attr("style","overflow:visible");
	$("#About").attr("style","overflow:visible");
	$("#Extra").attr("style","overflow:visible");
	$("#Scrollbar-Container").hide();
  }else{
    scroller  = new jsScroller(document.getElementById("News"), 400, 180);
    scrollbar = new jsScrollbar (document.getElementById("Scrollbar-Container"), scroller, true, scrollbarEvent);
	$("#News").attr("style","overflow:hidden");
	$("#About").attr("style","overflow:hidden");
	$("#Extra").attr("style","overflow:hidden");
	$("#Scrollbar-Container").show();
  }
}

var screen1=false;    
function ChangeLeftFrameStatu()    { 
	$('#leftframe').toggle();  
	if(screen1==false){            
	$("#mainright").width($(window).width());        
	screen1=true;            
	$("#co").html("√ 打开左栏");
	}else if(screen1==true){           
	screen1=false; 
	$("#co").html("<font color=red>×</font> 关闭左栏");
	$("#mainright").width($(window).width()-170);   
	}    
}


function scrollbarEvent (o, type) {
	if (type == "mousedown") {
		if (o.className == "Scrollbar-Track") o.style.backgroundUrl = "images/bg15.png";
		else o.style.backgroundUrl = "images/bg15.png";
	} else {
		if (o.className == "Scrollbar-Track") o.style.backgroundUrl = "images/bg15.png";
		else o.style.backgroundUrl = "images/bg15.png";
	}
}

function swapIt(o) {
	o.blur();
	if (o.className == "current") return false;
  
	var list = document.getElementById("Navigation").getElementsByTagName("a");
	for (var i = 0; i < list.length; i++) {
		if (list[i].className == "current") {
			list[i].className = "";
			document.getElementById(list[i].title).y = -scroller._y;
		}
		if (list[i].title == o.title) o.className = "current";
	}
  
	list = document.getElementById("Container").childNodes;
	for (var i = 0; i < list.length; i++) {
		if (list[i].tagName == "DIV") list[i].style.display = "none";
	}
  
	var top = document.getElementById(o.title);
	top.style.display = "block";
	scrollbar.swapContent(top);
	if (top.y) scrollbar.scrollTo(0, top.y);
  
	return false;
}
</script>


			
<!--右下角提示-->		  
<%If instr(KS.Setting(16),"3")>0 Then%>
	 <style>
		.boxvislist ul li {  line-height:25px; background:url(images/artarrow.gif) no-repeat 0px 10px; padding-left:10px; }
		.boxvislist ul li a{color:#006699;}
	</style>
	<script src="../ks_inc/boxtcshow.js"></script>
	<script type="text/javascript">
					var checkPerSecond=60; //60秒检测一次
					var checkInterval=null;
					$(document).ready(function(){
							checkMsg();
							checkInterval=setInterval("checkMsg();", 1000*checkPerSecond);
					});
					function checkMsg(){
							$.ajax({type:"get",async:false,url:"index.asp?Action=ajax1",cache:false,dataType:"html",success:function(d){
								if (d!=''){	
									$('ul[id=shoporder_s245]').html(d)
									$.dialog.notice({
										title: '<img src="images/bg30.png" align="absmiddle"/> 消息提示',
										width: 260,  
										content:$('div[id=righttips]').html(),
										time: 30
									});
								}
							}});			  																																							
					}
					
			   </script>
			   
				<div style="display:none;"  id="righttips">
					<div align="left" class="boxvislist" style=" font-size:14px; color:#006699; width:250px; background:#FFFFFF; overflow:hidden ">
						<ul id="shoporder_s245">
							
						</ul>
					</div>	
					<div style="text-align:right"><input type="checkbox" onClick="stopInterval()">不再提示</div>
				</div>
		<%end if%>
<!--右下角提示结束--->



	<div class="menubox" id="topframe">
		<div class="menuleft">
			
			<span>version V<%=GetVersion%></span>
		</div>
		<div class="menucenter">
			<div style="color:#fff;height:36px;line-height:36px;">
			    <div id='ajaxmsg'> <img src='images/loading.gif'> 请稍候,正在执行您的请求...  </div>
				<%
				Dim KSAnnounceDisplayFlag:KSAnnounceDisplayFlag=""
			    If Instr(KS.Setting(16),"1")=0 Then
				 Response.Write "<span class=""announceleft"">当前时间：</span><script src=""../ks_inc/time/3.js""></script>"
				 KSAnnounceDisplayFlag=" style=""display:none"""
				End If
				%>
				<span class="announceleft"<%=KSAnnounceDisplayFlag%>>官方公告：</span>
				<span class="announceright"<%=KSAnnounceDisplayFlag%>><iframe scrolling=no src="http://www.kesion.com/websystem/GetofficialInfo.asp" name="ShowAnnounce" id="ShowAnnounce" height="22" width="100%" marginheight="0" marginwidth="0" frameborder="0" align="middle" allowtransparency="true"></iframe>
				</span>
			</div>
			<div class="clear"></div>
			<ul id="TabPage">
				<li class="curr" id="left_tab1" title="内容管理" onClick="javascript:showleft(1);"><a href="javascript:;">内容</a></li>
				<li id="left_tab2" <%If Instr(Request.Cookies(KS.SiteSn)("ModelPower"),"sysset0")>0 and Request.Cookies(KS.SiteSn)("SuperTF")<>"1" then response.Write(" style='display:none' ") %>onclick="javascript:showleft(2);" title="系统管理"><a  href="javascript:;">设置</a></li>
				<li id="left_tab3" <%If Instr(Request.Cookies(KS.SiteSn)("ModelPower"),"subsys1")<=0 and Request.Cookies(KS.SiteSn)("SuperTF")<>"1" then response.Write(" style='display:none' ") %>onclick="javascript:showleft(3);" title="相关操作"><a href="javascript:;">相关</a></li>
				<li id="left_tab4" <%If Instr(Request.Cookies(KS.SiteSn)("ModelPower"),"model1")<=0 and Request.Cookies(KS.SiteSn)("SuperTF")<>"1" then response.Write(" style='display:none' ") %>onclick="javascript:showleft(4);" title="模型管理"><a href="javascript:;">模型</a></li>
				<li id="left_tab5" <%If Instr(Request.Cookies(KS.SiteSn)("ModelPower"),"lab1")<=0 and Request.Cookies(KS.SiteSn)("SuperTF")<>"1" then response.Write(" style='display:none' ") %>onclick="javascript:showleft(5);" title="标签"><a href="javascript:;">标签</a></li>
				<li id="left_tab6" <%If Instr(Request.Cookies(KS.SiteSn)("ModelPower"),"user1")<=0 and Request.Cookies(KS.SiteSn)("SuperTF")<>"1" then response.Write(" style='display:none' ") %>onclick="javascript:showleft(6);" title="用户管理"><a href="javascript:;">用户</a></li>
				<li id="left_tab7" title="插件" <%If Instr(Request.Cookies(KS.SiteSn)("ModelPower"),"other1")<=0 and Request.Cookies(KS.SiteSn)("SuperTF")<>"1" then response.Write(" style='display:none' ") %>onclick="javascript:showleft(7);" title="插件"><a href="javascript:;">插件</a></li>
				
			</ul>
		</div>
		<div class="menuright">
		 <ul><li><a href="../" target="_blank"><img src="images/bg08.png" title="网站首页" /></a></li>
		 <li><a href="../User/User_Message.asp?action=inbox" target="_blank"><img src="images/bg09.png" alt="站内短信" /><span id='newmessage' style="display:none"><img src="images/bg17.png" style="position:absolute;margin:1px 0px 0px -5px" /></span></a></li>
		<%If KS.ReturnPowerResult(0, "KMUA10010") Then%>
		<li><a href="javascript:;" onClick="modifyPass()" title="修改密码"><img src="images/bg12.png" /></a></li>
		<%end if
		If KS.ReturnPowerResult(0, "KMST20000") Then
		%>
		<li><a href="KS.CleanCache.asp" target="MainFrame" title="更新缓存"><img src="images/bg13.png" /></a></li>
	  <%end if%>
	  <li><a href="javascript:;" target="_top" onClick="return out(this)" title="安全退出"><img src="images/bg14.png" /></a></li>
	  </ul></div>


</div>
		
	</div>
	
	<div class="clear"></div>
	<div class="backmain">
	   <div id="leftframe">
		<div id="Container">
		  <div id="News">
			<div class="Scroller-Container">
				<div class="left">
					<div class="navigationbg"></div>
					<div class="clear"></div>

					<script>
							$(document).ready(function(){
							   <%dim ii
							    for ii=1 to 7
								%>
								/* Slide Toogle */
								$("#left<%=ii%>").find("div.navigation").click(function()
								{
									var arrow = $(this).find("span.arrow");
								    $("#left<%=ii%>").find("ul.menu").hide();
									$(this).parent().find("ul.menu").slideToggle();
								});
							 <%next%>
							});
					</script>
					
		<%
		Dim SQL,I,ModelXML
		Dim RSC:Set RSC=Conn.Execute("Select ChannelID,ChannelName,ChannelTable,ItemName,BasicType,ModelEname,ChannelStatus From KS_Channel Order By ChannelID")
		If Not RSC.Eof Then
		  SQL=RSC.GetRows(-1)
		  Set ModelXML=KS.ArrayToxml(SQL,RSC,"row","ModelXML")
		End If
		RSC.Close:Set RSC=Nothing
		
		
		on error resume next

		With Response
		.Write "<script language=""javascript"">"
		.Write " var ChannelID=null;" & vbcrlf
		.Write " var BasicType=null;" & vbcrlf
		For I=0 To Ubound(SQL,2)
		 .Write " var SearchPower" & SQL(0,I) & "='" & KS.ReturnPowerResult(SQL(0,I), "M"&SQL(0,I)&"10008")&"';    //搜索权限" & vbCrLf
       Next
		.Write " var SearchSpecialPower='" & KS.ReturnPowerResult(0, "KMSP10004") & "';    //搜索专题权限" & vbCrLf
		.Write " var SearchLinkPower='" & KS.ReturnPowerResult(0, "KMCT10001") & "';       //搜索友情链接的权限" & vbCrLf
		.Write " var SearchAdminPower='" & KS.ReturnPowerResult(0, "KMUA10001") & "';      //搜索管理员权限" & vbCrLf
		.Write " var SearchSysLabelPower='" & KS.ReturnPowerResult(0, "KMTL10001") & "';   //搜索系统函数标签权限" & vbCrLf
		.Write " var SearchDIYFunctionLabelPower='" & KS.ReturnPowerResult(0, "KMTL10002") & "';   //搜索自定义函数标签权限" & vbCrLf
		.Write " var SearchFreeLabelPower='" & KS.ReturnPowerResult(0, "KMTL10003") & "';  //搜索自定义静态标签权限" & vbCrLf
		.Write " var SearchSysJSPower='" & KS.ReturnPowerResult(0, "KMTL10004") & "';      //搜索系统JS权限" & vbCrLf
		.Write " var SearchFreeJSPower='" & KS.ReturnPowerResult(0, "KMTL10005") & "';     //搜索自由JS权限" & vbCrLf
		.Write "</script>"
		.Write "<script src=""Include/SetFocus.js""></script>"
		End With%>
		<script language="JavaScript">
		//Version 9.0
		//Powered By Kesion.Com
		var normal='#BED3D8';     //color;
		var zindex=10000;         //z-index;
		var openTF=false;
		var width=170,height=$(window).height()-15;
		var left=0,top=0,title='搜索小助理';
		var SearchBodyStr=''
						   +'<table style="width:170px;height:100%" border="0" cellspacing="0" cellpadding="0">'
						   +'<form name="searchform" target="MainFrame" method="post">'
						   +'<tr> '
						   +'<td height="25"><strong>按下面任意或全部条件<br/>进行搜索</strong></td>'
						   +' </tr>'
						   +'<tr><td height="25">全部或部分关键字</td></tr>'
						   +'<tr><td height="25"><input style="width:90%" type="text" id="KeyWord" name="KeyWord"></td></tr>'
						   +'  <tr><td height="25">搜索范围</td></tr>'
						   +'  <tr><td height="25"> <select style="width:95%" id="SearchArea" name="SearchArea" onchange="SetSearchTypeOption(this.options[this.selectedIndex].text)">'
						   +'     </select></td></tr>' 
						   +'<tr><td height="25">搜索类型</td></tr>'
						   +'<tr><td height="25"><select style="width:95%" id="SearchType" name="SearchType">'
						   +'</select></td></tr>'
						   +'  <tr id="DateArea" onclick="setstatus(this)" style="cursor:pointer"><td height="25"><strong>什么时候修改的?</strong></td></tr>'
						   +'  <tr style="display:none"><td height="25">开始日期<input type="text" style="width:80%" name="StartDate" id="StartDate">'
						   +'  </td></tr>'
						   +'  <tr style="display:none"><td height="25">结束日期<input type="text" style="width:80%" name="EndDate" id="EndDate">'
						   +' </td></tr>'
						   +'  <tr><td height="40" align="center"><input type="submit" name="SearchButton" value="开始搜索" onclick="return(SearchFormSubmit())"></td></tr>'
						   +'</form>'
						   +'  <tr><td><br/><br/><strong>使用说明:</strong></td></tr>'
						   +'  <tr><td valign="top" style="height:250px;padding-right:10px;"> ① 您可以利用本搜索助理来搜索文章、图片、下载、动漫、专题、标签、JS等,但不能搜索（目录）诸如频道名称、栏目名称，标签目录等<br/>'
						   +'  ② 按 <font color=red>Ctrl+F</font> 可以快速进行打开或关闭搜索小助理<br/><br/><br/><br/></td></tr>'
						   +'</table>'
				var str=""
					   +"<div id='SearchBox' style='display:none;z-index:" + zindex + ";width:" + width + "px;height:" + height + "px;left:" + left + "px;top:" + top + "px;background-color:" + normal + ";color:black;font-size:12px;font-family:Verdana, Arial, Helvetica, sans-serif;position:absolute;cursor:default;border:7px solid " + normal + ";'>"
					   + "<div style='background-color:" + normal + ";width:" + (width) + "px;height:22px;color:white;'>"
									   + "<span style='width:" + (width-2*12-4) + ";padding-left:3px;font-weight:bold;'>" + title + "</span>"
									   + "<span id='Close' style='padding:88px;cursor:hand;padding-right:0px;width:20px;border-width:0px;color:white;font-family:webdings;' onclick='CloseSearchBox()'>r</span>"
					   + "</div>"
					   + "<div style='width:160px;overflow:hidden;height:" + (height-40) + "px;background-color:white;line-height:14px;word-break:break-all;padding:6px;'>" + SearchBodyStr + "</div>"
					   + "</div>"
					   + "<div style='display:none;width:" + width + "px;height:" + height + "px;top:" + top + "px;left:" + left + "px;z-index:" + (zindex-1) + ";position:absolute;background-color:black;filter:alpha(opacity=40);'></div>";
		//关闭;
		function CloseSearchBox(){$("#SearchBox").hide('slow');openTF=false;SearchBodyStr=null;str=null;}
		function initial()
		{if (!openTF){document.body.insertAdjacentHTML("beforeEnd",str);openTF=true;}
		}
		//初始化;
		function initializeSearch(SearchArea,sChannelID,sBasicType)
		{
		 initial();
		 initialSearchAreaOption(SearchArea);
		 ChannelID=sChannelID;
		 BasicType=sBasicType;
		if (jQuery('#SearchBox')[0].style.display=='none')
		 {jQuery('#SearchBox').show('fast');
		  if (document.forms[0].disabled==false) document.forms[0].focus();
		 }
		 else
		 jQuery('#SearchBox').hide('fast');
		}
		<%
		 Dim ModelList,ModelEList,ChannelIDList
		 For I=0 To Ubound(SQL,2)
		  If SQL(0,I)<>6 and SQL(6,I)=1 Then
			  ModelList=ModelList & "'" & SQL(1,I) & "',"
			  ModelElist=ModelElist & "'" & SQL(4,I) & "',"
			  ChannelIDList=ChannelIDList & "'" & SQL(0,I) &"',"
		  End If
		 Next
		%>
		var sTextArr,ChannelIDArr;
		function initialSearchAreaOption(SearchArea)
		{	 var EF=false;
			 sTextArr=new Array(<%=ModelList%>'专题中心','友情链接站点','系统函数标签','自定义函数标签','自定义静态标签','系统 JS','自由 JS','管理员')
			 ChannelIDArr=new Array(<%=ChannelIDList%>'专题中心','友情链接站点','系统函数标签','自定义函数标签','自定义静态标签','系统 JS','自由 JS','管理员')
			 var valueArr=new Array(<%=ModelElist%>'Special','Link','SysLabel','DIYFunctionLabel','FreeLabel','SysJS','FreeJS','Manager')
			  for(var i=0;i<valueArr.length;++i)
			   if (SearchArea==sTextArr[i]){ 
				  EF=true;
				  break;
				 }
			  if (!EF) return false; 
			  jQuery('#KeyWord').val('');
			  jQuery('#SearchArea').empty();
			  for (var i=0;i<sTextArr.length;++i)
				{
				   if (SearchArea==sTextArr[i]){
					jQuery('#SearchArea').append("<option value='"+valueArr[i]+"' selected>"+sTextArr[i]+"</option>");
					}else{
					jQuery('#SearchArea').append("<option value='"+valueArr[i]+"'>"+sTextArr[i]+"</option>");
					}
				} 
			//进行权限检查,对没有权限的搜索模块,进行屏蔽	
			 var n=0;
			for (var i=1000;i<sTextArr.length;++i)
			   {   var removeTF=false;
				   if (valueArr[i]!=SearchArea)
				  { 
				  
				  <%For I=0 To Ubound(SQL,2)
				    If SQL(6,I)=1 Then 
				   %>
				  if (SearchPower<%=SQL(0,i)%>=='False')
					   removeTF=true;
				  <%
				    End If
				  NEXT%>
		 
					if (valueArr[i]=='Special' && SearchSpecialPower=='False') removeTF=true;
					if (valueArr[i]=='Link' && SearchLinkPower=='False') removeTF=true;
					if (valueArr[i]=='SysLabel' && SearchSysLabelPower=='False') removeTF=true;
					if (valueArr[i]=='DIYFunctionLabel' && SearchDIYFunctionLabelPower=='False') removeTF=true;
					if (valueArr[i]=='FreeLabel' && SearchFreeLabelPower=='False') removeTF=true;
					if (valueArr[i]=='SysJS' && SearchSysJSPower=='False')  removeTF=true;
					if (valueArr[i]=='FreeJS' && SearchFreeJSPower=='False')  removeTF=true;
					if (valueArr[i]=='Manager' && SearchAdminPower=='False') removeTF=true;
				   }
				  if (removeTF==true)  
					{document.all.SearchArea.options.remove(i-n);
					 n++;
					}	
			   }
			SetSearchTypeOption(SearchArea); 
		}
		function SetSearchTypeOption(AreaType)
		{	
			  //改变选择范围时，取得正确的模型ID
			  for(var i=0;i<sTextArr.length;++i)
			   if (AreaType==sTextArr[i]) 
				{ 
				  ChannelID=ChannelIDArr[i];
				  break;
				 }
			var TextArr=new Array();
			jQuery('#SearchType').empty();
		  switch (AreaType)
		  {
		   <%For I=0 To Ubound(SQL,2)
		      If SQL(6,I)=1 Then 
			%>
			case '<%= SQL(1,I)%>':
				 if (SearchPower<%= SQL(0,I)%>=='False')          //搜索权限检查
				 {
				  DisabledSearchFluctuation(true);
				  return;
				 }
				 else
				 {
				  DisabledSearchFluctuation(false);
				  jQuery('#DateArea').show();
				  TextArr=new Array('<%=SQL(3,I)%>标题','<%=SQL(3,I)%>内容','<%=SQL(3,I)%>关键字','<%=SQL(3,I)%>作者','<%=SQL(3,I)%>录入')
				  }
				  break;
		   <% End If
		   Next%>
			case '专题中心':
				 if (SearchSpecialPower=='False')        //搜索专题权限检查
				 {
				   DisabledSearchFluctuation(true);
				   return;
				 }
				 else
				 {
				  DisabledSearchFluctuation(false);
				  jQuery('#DateArea').show();
				  TextArr=new Array('专题名称','简要说明')
				 }
				 break;
			case '友情链接站点':
				 if (SearchLinkPower=='False'){DisabledSearchFluctuation(true); return; }
				 else{ DisabledSearchFluctuation(false);jQuery('#DateArea').show();TextArr=new Array('站点名称','站点描述');}
				 break;
			case '系统函数标签':
				 if (SearchSysLabelPower=='False'){DisabledSearchFluctuation(true);return;}
				 else{DisabledSearchFluctuation(false);jQuery('#DateArea').show();TextArr=new Array('系统标签名称','系统标签描述');}
				 break;
			case '自定义函数标签':
				 if (SearchDIYFunctionLabelPower=='False')       //搜索自定义函数标签权限检查
				 {
				   DisabledSearchFluctuation(true);
				   return;
				 }else{
				  DisabledSearchFluctuation(false);
				 jQuery('#DateArea').show();
				 TextArr=new Array('自定义函数标签名称','自定义函数标签描述')
				 }
				 break;
			case '自定义静态标签':
				 if (SearchFreeLabelPower=='False')       //搜索自定义静态标签权限检查
				 {
				   DisabledSearchFluctuation(true);
				   return;
				 }else{
				 jQuery('#DateArea').show()
				 TextArr=new Array('自定义静态标签名称','自定义静态标签描述','自定义静态标签内容')
				 }
				 break;
			case '系统 JS':
				 if (SearchSysJSPower=='False')       //搜索系统JS权限检查
				 {
				   DisabledSearchFluctuation(true);
				   return;
				 }else{
				 jQuery('#DateArea').show();
				 TextArr=new Array('系统JS 名称','系统JS 描述','系统JS 文件名')
				 }
				 break;
			case '自由 JS' :
				 if (SearchFreeJSPower=='False')       //搜索自由JS权限检查
				 {
				   DisabledSearchFluctuation(true);
				   return;
				 }else{
				 jQuery('#DateArea').show();
				 TextArr=new Array('自由JS 名称','自由JS 描述','自由JS 文件名')
				 }
				 break;
			case '管理员':	 
				  if (SearchAdminPower=='False')          //搜索管理员权限检查
				 {
				  DisabledSearchFluctuation(true);
				  return;
				 }else{
				  DisabledSearchFluctuation(false);
				 jQuery('#DateArea').show();
				 TextArr=new Array('管理员名称','管理员简介')
				}
				break;
		  }
		  for (var i=0;i<TextArr.length;++i){
			jQuery('#SearchType').append("<option value='"+i+"'>"+TextArr[i]+"</option>");
			}
		}
		function setstatus(Obj)
		  {var today=new Date()
			if (Obj.nextSibling.style.display=='none')
			 {
			  Obj.nextSibling.style.display='';
			  jQuery('#StartDate').val(today.getYear()+'-'+(today.getMonth()+1)+'-'+today.getDate());
			 }
			else 
			{
			 Obj.nextSibling.style.display='none';
			 jQuery('#StartDate').val('');
			 }
			if (Obj.nextSibling.nextSibling.style.display=='none')
			{
			 Obj.nextSibling.nextSibling.style.display='';
			  jQuery('#EndDate').val(today.getYear()+'-'+(today.getMonth()+1)+'-'+today.getDate());
			}
			else 
			 {
			 Obj.nextSibling.nextSibling.style.display='none';
			 jQuery('#EndDate').val('');
			 }
		  }
		 function SearchFormSubmit()
		  { var form=document.forms[0];
			if (form.elements[0].value=='')
			 {
			   alert('请输入关键字!')
			   form.elements[0].focus();
			   return false;
			 }
		   switch (form.elements[1].value)
			{
			  case '1':
			  case '2':
			  case '3':
			  case '4':
			  case '5':
			  case '7':
			  case '8':
				   form.action="KS.ItemInfo.asp?ChannelID="+ChannelID;
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("文档搜索管理 >> <font color=red>搜索结果</font>")+'&ButtonSymbol=Search';
				   break;
			  case 'Special':
				   form.action="KS.Special.asp?Action=SpecialList";
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("专题管理 >> <font color=red>搜索专题结果</font>")+'&ButtonSymbol=SpecialSearch';
				   break;
			  case 'Link':
				   form.action="KS.FriendLink.asp";
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("常规管理 >> 友情链接管理 >> <font color=red>搜索友情链接站点结果</font>")+'&ButtonSymbol=LinkSearch';
				   break;
			  case 'SysLabel'  :
				   form.action="Include/Label_Main.asp?LabelType=0";
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("标签管理 >> <font color=red>搜索系统函数标签结果</font>")+'&ButtonSymbol=SysLabelSearch';
				   break;
			 case 'DIYFunctionLabel'  :
				   form.action="Include/Label_Main.asp?LabelType=5";
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("标签管理 >> <font color=red>搜索自定义函数标签结果</font>")+'&ButtonSymbol=DIYFunctionSearch';
				   break;
			  case 'FreeLabel'  :
				   form.action="Include/Label_Main.asp?LabelType=1";
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("标签管理 >> <font color=red>搜索自由标签结果</font>")+'&ButtonSymbol=FreeLabelSearch';
				   break;
			  case 'SysJS'     :
				   form.action="Include/JS_Main.asp?JSType=0";
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("JS管理 >> <font color=red>搜索系统JS结果</font>")+'&ButtonSymbol=SysJSSearch';
				   break;
			  case 'FreeJS'     :
				   form.action="Include/JS_Main.asp?JSType=1";
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("JS管理 >> <font color=red>搜索自由JS结果</font>")+'&ButtonSymbol=FreeJSSearch';
				   break;
			  case 'Manager'     :
				   form.action="KS.Admin.asp";
				   parent.frames['BottomFrame'].location.href='KS.Split.asp?OpStr='+escape("管理员管理 >> <font color=red>搜索管理员结果</font>")+'&ButtonSymbol=ManagerSearch';
				   break;
			}
			form.submit();
		  }
		function DisabledSearchFluctuation(Flag)
		{ if (Flag==true)
		   document.all.KeyWord.value='对不起,权限不足!'; 
		  var AllBtnArray=document.body.getElementsByTagName('INPUT'),CurrObj=null;
			for (var i=0;i<AllBtnArray.length;i++)
			{
				CurrObj=AllBtnArray[i];
				CurrObj.disabled=Flag;
			}
			AllBtnArray=document.body.getElementsByTagName('SELECT'),CurrObj=null;
			for (var i=0;i<AllBtnArray.length;i++)
			{
				CurrObj=AllBtnArray[i];
				CurrObj.disabled=Flag;
			}
		}
		</script>
		<%If Session("ShowCount")="" Then
		.Write " <ifr" & "ame src=""http://ww" &"w."&"k" &"e" & "si" &"on." & "co" & "m" & "/WebS" & "ystem/Co" & "unt.asp"" scrolling='no' frameborder='0' height='0' width='0'></ifr" &"ame>"
		Session("ShowCount")=KS.C("AdminName")
		End If			
		%>
					
					
					
					
					

					<div id="content">
							<div id="expmenu-freebie">
								 
								 <!---第一块开始---->
								  <div id="left1" class="leftbox">
									<!-- navigation Start -->
									<div class="expmenu">
										
											<div class="navigation">
												<div class="navtitle"><img src="images/icon01.png" align="texttop" />内容管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu">
											
											  <%
											   For I=0 To Ubound(SQL,2)
												  If SQL(6,I)=1 Then 
												   IF instr(KS.C("ModelPower"),sql(5,i) & "0")=0 and SQL(0,I)<>6 and SQL(0,I)<>9 And SQL(0,I)<>10 Then
												   Dim ItemManageUrl
												   Select Case  SQL(4,I)
													Case 1 :ItemManageUrl="KS.Article.asp"
													Case 2 :ItemManageUrl="KS.Picture.asp"
													Case 3 :ItemManageUrl="KS.Down.asp"
													Case 4 :ItemManageUrl="KS.Flash.asp"
													Case 5 :ItemManageUrl="KS.Shop.asp"
													Case 7 :ItemManageUrl="KS.Movie.asp"
													Case 8 :ItemManageUrl="KS.Supply.asp"
												   End Select
												  
												   %>
												   <li> <span onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>添加<%=SQL(3,I)%></font>','AddInfo','<%=ItemManageUrl%>?Action=Add&ChannelID=<%=SQL(0,I)%>',<%=SQL(0,I)%>);"><a href="#" title="添加">&nbsp;</a></span>
												   <a href="javascript:void(0)" title="<%=SQL(1,I)%>" onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red><%=SQL(3,I)%>管理</font>','ViewFolder','KS.ItemInfo.asp?ChannelID=<%=SQL(0,I)%>',<%=SQL(0,I)%>);"><%=KS.Gottopic(SQL(1,I),8)%></a>
												  
												   </li>
												   <div class="clear"></div>
												   <%
												   End If
												 End If
											   Next
											   %>
											</ul>
											<ul class="menu">
												<script type="text/javascript">
												   var toggle=getCookie("ctips");
												   if (toggle==null) toggle='show';
													$(document).ready(function(){
													TipsToggle(toggle);
													})
												   function TipsToggle(f){
													setCookie("ctips",f);
													 if (f=='hide'){
													 jQuery("#modelxg").hide();
													 jQuery("#classOpen").html("<img style='cursor:pointer' id='classOpen' onclick='TipsToggle(\"show\")' src='images/bg21.png' align='absmiddle' title='展开'>");
													 }else{
													 jQuery("#modelxg").show();
													 jQuery("#classOpen").html("<img style='cursor:pointer;margin-left:2px' id='classOpen' onclick='TipsToggle(\"hide\")' src='images/bg20.png' title='隐藏' align='absmiddle'>");						
														 }
												   }
												  </script>
												 
												<div class="yincbtn" id="classOpen"><img style='cursor:pointer;margin-left:2px' id='classOpen' onclick='TipsToggle("show")' src='images/bg20.png' align='absmiddle'></div>
												<div style="padding:0px" id="modelxg">
												   <%If KS.ReturnPowerResult(0, "M010001") Then %>
												   <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'内容管理 >> <font color=red><%=SQL(3,I)%>栏目管理</font>','Disabled','KS.Class.asp');">栏目管理</a> <a href='javascript:void(0)' style="padding-left:10px;color:#444" onClick="SelectObjItem1(this,'栏目管理 >> <font color=red>添加栏目</font>','Go','KS.Class.asp?Action=Add&FolderID=1','');">添加</a></li>
												   <%End If%>
												   <%If KS.ReturnPowerResult(0, "M010002") Then %>
													<li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'内容管理 >> <font color=red>评论管理</font>','Disabled','KS.Comment.asp');">评论管理</a> <a href='javascript:void(0)' onClick="SelectObjItem1(this,'内容管理 >> <font color=red>评论管理</font>','Disabled','KS.Comment.asp?ComeFrom=Verify');" style="padding-left:10px;color:#e00404">审核</a> </li>
													<%End If%>
													<%If KS.ReturnPowerResult(0, "M010003") Then %>
													<li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'内容管理 >> <font color=red>专题管理</font>','Disabled','KS.Special.asp');">全站专题管理</a> </li>
													<%End If%>
													<%If KS.ReturnPowerResult(0, "M010004") Then %>
													<li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'内容管理 >> <font color=red>关键字Tags管理</font>','Disabled','KS.KeyWord.asp');">关键字Tags管理</a> </li>
													<%End If%>
													<%If KS.ReturnPowerResult(0, "M010005") or KS.ReturnPowerResult(0, "M010006") Then %>
													<li>
													<%If KS.ReturnPowerResult(0, "M010005") Then%><a href='javascript:void(0)' onClick="SelectObjItem1(this,'内容管理 >> <font color=red>批量设置</font>','Disabled','KS.ItemInfo.asp?Action=SetAttribute');">批量设置</a><%end if%><%If KS.ReturnPowerResult(0, "M010006") then%> <a href="javascript:void(0)" onClick="javascript:SelectObjItem1(this,'相关操作 >> <font color=red>浏览回收站</font>','ViewFolder','KS.ItemInfo.asp?ComeFrom=RecycleBin','');" style="padding-left:10px;">回 收 站</a><%end if%></li>
													<%End If%>
												   <%If KS.ReturnPowerResult(0, "M010007") Then %>
													<li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'内容管理 >> <font color=red>一键快速生成HTML</font>','Disabled','include/refreshquick.asp');">一键快速生成HTML</a> </li>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "M010008") Then %>
												   <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'内容管理 >> <font color=red>信息采集管理</font>','Disabled','Collect/Collect_Main.asp?ChannelID=1');">信息采集管理</a> </li>
												   <%End if%>
						   
												</div>
												
												
											</ul>
										
									</div>
									<!-- navigation End -->

                             <% IF instr(lcase(KS.C("ModelPower")),"shop0")=0 or KS.C("SuperTf")=1 Then
								 If Not ModelXML Is Nothing Then
								  If ModelXML.documentElement.SelectNodes("row[@channelid=5 and @channelstatus=1]").length<>0 Then
							 %>
									<!-- 商城管理 Start -->
									<div class="expmenu">
										
											<div class="navigation">
												<div class="navtitle"><img src="images/icon02.png" align="texttop" />商城管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<%If KS.ReturnPowerResult(5, "M510020") Then %>				
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>处理所有订单</font>','Disabled','KS.ShopOrder.asp?ChannelID=5');">处理所有订单</a></li>
													 <%end if%>
													 <%If KS.ReturnPowerResult(5, "M510014") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>资金明细查询</font>','Disabled','KS.LogMoney.asp?ChannelID=<%=SQL(0,I)%>');">资金明细查询</a></li>
													 <%end if%>
													 <%If KS.ReturnPowerResult(5, "M510015") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>发退货查询</font>','Disabled','KS.LogDeliver.asp?ChannelID=5');">发退货查询</a> <a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>发退货处理</font>','Disabled','KS.LogDeliver.asp?SearchType=6');" style="color:red">处理</a></li>
													 <%end if%>
													 <%If KS.ReturnPowerResult(5, "M510016") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>发退货查询</font>','Disabled','KS.LogInvoice.asp?ChannelID=5');">开发票查询</a></li>
													 <%end if%>
													 
													 
													 <%If KS.ReturnPowerResult(5, "M510017") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>客户统计</font>','Disabled','KS.ShopStats.asp?Action=Custom');">销售数据统计</a></li>
													 <%End If%>
													 
													  <%If KS.ReturnPowerResult(5, "M520075") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>收货人信息管理</font>','Disabled','KS.ShopUserOrder.asp');">收货人信息管理</a></li>
													  <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>商品批量改价</font>','Disabled','KS.ShopSetAttribute.asp');">商品批量改价</a></li>
													 <%end if%>
													  <%If KS.ReturnPowerResult(5, "M520004") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>送货方式管理</font>','Disabled','KS.Delivery.asp?ChannelID=5');">送货&付款方式</a></li>
													 <%end if%>
													  <%If KS.ReturnPowerResult(5, "M510018") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'品牌管理 >> <font color=red>品牌管理</font>','Disabled','KS.ShopBrand.asp');">品牌管理</a> <a href='javascript:void(0)' onClick="SelectObjItem1(this,'品牌管理 >> <font color=red>添加品牌</font>','Go','KS.ShopBrand.asp?Action=Add&FolderID=0',5);">添加</a> <a href='javascript:void(0)' onClick="SelectObjItem1(this,'品牌管理 >> <font color=red>生成品牌的JS菜单</font>','Go','KS.ShopBrand.asp?Action=Create&FolderID=0',5);">生成</a></li>	
													 <%end if%>	
													 <%If KS.ReturnPowerResult(5, "M520006") Then %>
													  <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>商品规格列表管理</font>','Disabled','KS.ShopSpecification.asp?ChannelID=5');">商品规格列表管理</a> </li>
													 <%End If%>
													 <%If KS.ReturnPowerResult(5, "M520003") Then %>
													  <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>厂商管理</font>','Disabled','KS.Author.asp?ChannelID=5');">厂商管理</a> </li>
													  <%end if%>
													 
													  <%If KS.ReturnPowerResult(5, "M530001") Then %>
													  <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'团购系统 >> <font color=red>团购管理首页</font>','Disabled','KS.GroupBuy.asp');">团购管理首页</a> <a href='javascript:void(0)' onClick="SelectObjItem1(this,'团购系统 >> <font color=red>团购管理首页</font>','Go','KS.GroupBuy.asp?Action=Add');">添加</a></li>
													  <%End If%>
													 <%If KS.ReturnPowerResult(5, "M520008")  Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>抢购商品管理</font>','Disabled','KS.Shop.asp?action=LimitBuy&channelid=5');">限时/限量抢购管理</a></li>
													 <%End If%>
													 <%If KS.ReturnPowerResult(5, "M520009") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>限时抢购商品管理</font>','Disabled','KS.Shop.asp?action=BundleSale&channelid=5');">捆绑销售商品管理</a></li>
													 <%End If%>
													 <%If KS.ReturnPowerResult(5, "M520010") and IsBusiness Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>换购商品管理</font>','Disabled','KS.Shop.asp?action=ChangedBuy&channelid=5');">换购商品管理</a></li>
													 <%End If%>
													 <%If KS.ReturnPowerResult(5, "M520012") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>商品库存报警管理</font>','Disabled','KS.Shop.asp?action=StockAlarm&channelid=5');">商品库存报警管理</a></li>
													 <%End If%>
													 <%If KS.ReturnPowerResult(5, "M520011") and IsBusiness Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>超值礼包管理</font>','Disabled','KS.Shop.asp?action=Package&channelid=5');">超值礼包管理</a></li>
													 <%end if%>
													 <%If KS.ReturnPowerResult(5, "M510005") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>批量调价助手</font>','Disabled','KS.ItemInfo.asp?action=SetAttribute&channelid=5');">批量调价助手</a></li>
													 <%End If%>
													 <%If KS.ReturnPowerResult(5, "M520007") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>优惠券管理</font>','Disabled','KS.ShopCoupon.asp');">优惠券管理</a></li>
													 <%End If%>
													 <%If KS.ReturnPowerResult(5, "M520014") and IsBusiness Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>快递单模板管理</font>','Disabled','KS.ShopExpress.asp');">快递单模板管理</a></li>
													
													 
													 <%End If%>
											</ul>
										
									</div>
									<!-- 商城管理 End -->
				     <% End If
									End If
								  End If
							  
				    IF (instr(lcase(KS.C("ModelPower")),"job0")=0 or KS.C("SuperTf")=1) and IsBusiness Then
					 If Not ModelXML Is Nothing Then
					  If ModelXML.documentElement.SelectNodes("row[@channelid=10 and @channelstatus=1]").length<>0 Then
					  %>	
									<!-- 招聘求职 Start -->
									<div class="expmenu">
										
											<div class="navigation">
												<div class="navtitle"><img src="images/icon03.png" align="texttop" />招聘求职</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<ul><%
											  If KS.ReturnPowerResult(10, "M1010005") Then   
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("求职招聘 >> <font color=red>行业职位设置</font>'") & ",'disabled','KS.Jobhy.asp');"">行业职位设置</a></li>"
											  End If
											  If KS.ReturnPowerResult(10, "M1010006") Then   
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("求职招聘 >> <font color=red>毕业院校设置</font>'") & ",'disabled','KS.JobSchool.asp');"">毕业院校设置</a></li>"
											  
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("求职招聘 >> <font color=red>简历模板管理</font>'") & ",'disabled','KS.JobTemplate.asp');"">简历模板管理</a></li>"
											  End If
											   Response.Write "</ul><ul>=====================</ul><ul>"
											  If KS.ReturnPowerResult(10, "M1010002") Then  
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("求职招聘 >> <font color=red>招聘单位管理</font>'") & ",'disabled','KS.JobCompany.asp');"">招聘单位管理</a></li>"
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & Server.UrlEncode("求职招聘 >> <font color=red>审核招聘单位</font>") & "','disabled','KS.JobCompany.asp?ComeFrom=Verify');"">招聘单位审核</a></li>"
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("求职招聘 >> <font color=red>添加招聘单位</font>'") & ",'disabled','KS.JobCompany.asp?Action=Add');"">添加招聘单位</a></li>"
											  End If
											 If KS.ReturnPowerResult(10, "M1010004") Then  
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("求职招聘 >> <font color=red>招聘职位管理</font>'") & ",'disabled','KS.Jobzw.asp');"">招聘职位管理</a></li>"
											  End If
											      Response.Write "</ul>"
											  If KS.ReturnPowerResult(10, "M1010003") Then  
												  Response.Write "<ul>=====================</ul>"
												  Response.Write "<ul>"
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("求职招聘 >> <font color=red>个人简历管理</font>'") & ",'disabled','KS.JobResume.asp');"">个人简历管理</a></li>"
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("求职招聘 >> <font color=red>审核个人简历</font>'") & ",'disabled','KS.JobResume.asp?ComeFrom=Verify');"">个人简历审核</a></li>"
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & Server.Urlencode("求职招聘 >> <font color=red>添加个人简历</font>'") & ",'disabled','KS.JobResume.asp?Action=Add');"">添加个人简历</a></li>"
											  
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & Server.Urlencode("求职招聘 >> <font color=red>教育背景管理</font>'") & ",'disabled','KS.JobEdu.asp');"">教育背景管理</a></li>"
												  Response.Write "</ul>"
											 End If
											  %>
											</ul>
										
									</div>
									<!-- 招聘求职 End -->
                       <% End If
					End If
				   End If
					IF (instr(lcase(KS.C("ModelPower")),"mnkc0")=0 or KS.C("SuperTf")=1) and IsBusiness Then
					 If Not ModelXML Is Nothing Then
					  If ModelXML.documentElement.SelectNodes("row[@channelid=9 and @channelstatus=1]").length<>0 Then
					  %>
									<!-- 考试系统 Start -->
									<div class="expmenu">
										
											<div class="navigation">
												<div class="navtitle"><img src="images/icon04.png" align="texttop" />考试系统</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<ul><%
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("考试系统 >> <font color=red>试卷管理</font>'") & ",'disabled','mnkc/mnkc_sort.asp');"">试卷管理</a>&nbsp;<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'考试系统 >> <font color=red>添加试卷</font>','Go','mnkc/mnkc_add_first.asp');"">添加</a></li>"
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("考试系统 >> <font color=red>试卷题库管理</font>'") & ",'disabled','mnkc/mnkc_tk.asp');"">题库管理</a> <a href=""javascript:SelectObjItem1(this,'" & server.urlencode("考试系统 >> <font color=red>从题库选题组卷</font>'") & ",'disabled','mnkc/xtzj.asp');"">组卷</a></li>"
												  If KS.ReturnPowerResult(9, "M910001") Then 
												  Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("考试系统 >> <font color=red>试卷分类管理</font>'") & ",'disabled','mnkc/mnkc_class.asp');"">试卷分类管理</a></li>"
												  End If
												 If KS.ReturnPowerResult(9, "M910010") Then  
												 Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("考试系统 >> <font color=red>知识点管理</font>'") & ",'disabled','mnkc/mnkc_zsd.asp');"">知识点管理</a></li>"
												 End If
												 If KS.ReturnPowerResult(9, "M910011") Then  
												 Response.Write "<li><a href=""javascript:SelectObjItem1(this,'" & server.urlencode("考试系统 >> <font color=red>知识点管理</font>'") & ",'disabled','mnkc/Correction.asp');"">试题纠错管理</a></li>"
												 End If
						
												  Response.Write "<li><a href='mnkc/mnkc_score.asp' target='MainFrame'>考试成绩管理</a></li>"
												   Response.Write "<li><a href='mnkc/mnkc_sjxd.asp' target='MainFrame'>考后心得管理</a></li>"
												   Response.Write "</ul>"
												  If KS.ReturnPowerResult(9, "M910007") Then 
												  Response.Write "<ul>=====================</ul>"
												  Response.Write "<ul>"
												  Response.Write "<li><a href='mnkc/refreshindex.asp' target='MainFrame'>发布试卷首页等</a></li>"
												  Response.Write "<li><a href='mnkc/refreshallcalss.asp?type=all' target='MainFrame'>发布所有分类</a></li>"
												  Response.Write "<li><a href='mnkc/RefreshSJ.asp' target='MainFrame'>发布所有试卷页</a></li>"
												  Response.Write "</ul>"
												  End If
											 %>
											</ul>
										
									</div>
									<!-- 考试系统 End -->
                         <%
					 End If
					End If
			   End If
					
					IF instr(lcase(KS.C("ModelPower")),"bbs0")=0 or KS.C("SuperTf")=1 Then%>
									<!-- 论坛系统 Start -->
									<div class="expmenu">
										
											<div class="navigation">
												<div class="navtitle"><img src="images/icon05.png" align="texttop" />论坛系统</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<%If KS.ReturnPowerResult(0, "KSMB10000") Then%>
												<li><a href="KS.GuestBook.asp?Action=Main"  target="MainFrame" title="论坛帖子管理">帖子管理</a> <a href="KS.GuestBook.asp?Action=Recycle"  target="MainFrame" title="帖子回收站">回收站</a></li>
												 <%end if%>
												 <%If KS.ReturnPowerResult(0, "KSMB10001") Then%>
												<li><a href="KS.GuestBoard.asp"  target="MainFrame" title="版面分类管理">论坛版面分类管理</a></li>
												<%end if%>
												<%If KS.ReturnPowerResult(0, "KSMB10003") Then%>
												<li><a href="KS.GuestTable.asp"  target="MainFrame" title="当前数据表管理">当前数据表管理</a></li>
												<%end if%>
												   <%If KS.ReturnPowerResult(0, "KSMB10004") Then%>
												   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'问答系统 >> <font color=red>等级头衔设置</font>','Disabled','KS.AskGrade.asp?typeflag=1');" title="等级头衔设置">等级头衔</a> <a href="javascript:void(0)" onClick="SelectObjItem1(this,'论坛系统 >> <font color=red>勋章管理</font>','Disabled','KS.GuestMedal.asp');" title="勋章管理">勋章管理</a>
												   </li>
												   <%end if%>
											</ul>
										
									</div>
									<!-- 论坛系统 End -->
                      <%end if%>
					 
					  <%IF instr(lcase(KS.C("ModelPower")),"ask0")=0 or KS.C("SuperTf")=1 Then%>
									<!-- 问答系统 Start -->
									<div class="expmenu">
										
											<div class="navigation">
												<div class="navtitle"><img src="images/icon06.png" align="texttop" />问答系统</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<%If KS.ReturnPowerResult(0, "WDXT10000") Then%>
												   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'问答系统 >> <font color=red>问答参数设置</font>','SetParam','KS.AskSetting.asp');" title="问答参数设置">问答参数设置</a></li>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "WDXT10001") Then%>
												   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'问答系统 >> <font color=red>问题列表管理</font>','SetParam','KS.AskList.asp');" title="问题列表管理">问题列表管理</a></li>
												   <%End If%>
												   <%If KS.ReturnPowerResult(0, "WDXT10004") Then%>
												   <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'问答系统 >> <font color=red>审核问题回答管理</font>','Disabled','KS.AskList.asp?action=verifyanswer');">审核回答管理</a>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "WDXT10002") Then%>
												   <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'问答系统 >> <font color=red>分类管理</font>','Disabled','KS.AskClass.asp');">分类管理</a>
												   <a href='javascript:void(0)' onClick="SelectObjItem1(this,'问答系统 >> <font color=red>添加问答分类</font>','GO','KS.AskClass.asp?action=add');">添加</a></li>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "WDXT10003") Then%>
												   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'问答系统 >> <font color=red>等级头衔设置</font>','Disabled','KS.AskGrade.asp');" title="等级头衔设置">等级头衔设置</a></li>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "WDXT10005") Then%>
												   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'问答系统 >> <font color=red>专家认证管理</font>','Disabled','KS.AskZJ.asp');" title="专家认证管理">专家认证管理</a></li>
												   <%end if%>
											</ul>
										
									</div>
									<!-- 问答系统 End -->
                              
							  <%End If%>
							  
							  <%IF instr(lcase(KS.C("ModelPower")),"space0")=0 or KS.C("SuperTf")=1 Then%>
									<!-- 空间门户 Start -->
									<div class="expmenu">
										
											<div class="navigation">
												<div class="navtitle"><img src="images/icon07.png" align="texttop" />空间门户</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												  <ul> =======个人空间=======</ul>
												  <ul>
												 <%If cbool(KS.ReturnPowerResult(0, "KSMS10000")) Then%>
													<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'个人空间 >> <font color=red>空间参数设置</font>','SetParam','KS.SpaceSetting.asp');" title="空间参数设置">空间参数设置</a></li>
													<%end if%>
													<%If KS.ReturnPowerResult(0, "KSMS10001") Then%>
													<li><a href="KS.Space.asp"  target="MainFrame" title="所有空间管理">所有空间管理</a></li>
													<li><a href="KS.Space.asp?showtype=1"  target="MainFrame" title="个人空间管理">个人空间管理</a></li>
													<%end if%>
													<%If KS.ReturnPowerResult(0, "KSMS10002") Then%>
													<li><a href="KS.Spacelog.asp"  target="MainFrame" title="空间博文管理">空间博文管理</a></li>
													<%end if%>
													<%If KS.ReturnPowerResult(0, "KSMS20016") Then %>
													<li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'空间系统 >> <font color=red>微博数据管理</font>','Disabled','KS.UserLog.asp');" title="微博数据管理">微博数据管理</a></li>
												  <%end if%>
													<%If KS.ReturnPowerResult(0, "KSMS10003") Then%>
													<li><a href="KS.SpaceAlbum.asp"  target="MainFrame" title="用户相册管理">用户相册管理</a></li>
													<%end if%>
													<%If KS.ReturnPowerResult(0, "KSMS10004") Then%>
													<li><a href="KS.SpaceTeam.asp"  target="MainFrame" title="用户圈子管理">用户圈子管理</a></li>
													<%end if%>
													<%If KS.ReturnPowerResult(0, "KSMS10005") Then%>
													<li><a href="KS.SpaceMessage.asp"  target="MainFrame" title="用户留言管理">用户留言管理</a></li>
													<%end if%>
													<%If KS.ReturnPowerResult(0, "KSMS10007") Then%>
													<li><a href="KS.SpaceMusic.asp"  target="MainFrame" title="用户歌曲管理">用户歌曲管理</a></li>
													<%end if%>
												 </ul>
													 <ul> =======企业空间=======</ul>
													<ul>
													<%If KS.ReturnPowerResult(0, "KSMS10008") Then%>
												  <li><a href="KS.EnterPrise.asp"  target="MainFrame" title="企业信息管理">企业空间管理</a></li>
												 <%end if%>
												 <%If KS.ReturnPowerResult(0, "KSMS10009") Then%>
												  <li><a href="KS.EnterPriseNews.asp"  target="MainFrame" title="企业新闻管理">企业新闻管理</a></li>
												 <%end if%>
												 <%If KS.ReturnPowerResult(0, "KSMS10010") Then%>
												  <li><a href="KS.EnterPrisePro.asp"  target="MainFrame" title="企业产品管理">企业产品管理</a></li>
												 <%end if%>
												 <%If KS.ReturnPowerResult(0, "KSMS10012") Then%>
												  <li><a href="KS.EnterPriseClass.asp"  target="MainFrame" title="行业分类管理">行业分类管理</a></li>
												 <%end if%>
												 <%If KS.ReturnPowerResult(0, "KSMS10013") Then%>
												  <li><a href="KS.EnterPriseAD.asp"  target="MainFrame" title="行业广告管理">行业广告管理</a></li>
												 <%end if%>
												 <%If KS.ReturnPowerResult(0, "KSMS10011") Then%>
												  <li><a href="KS.EnterPriseZS.asp"  target="MainFrame" title="荣誉证书管理">荣誉证书管理</a></li>
												 <%end if%>
												 </ul>
											</ul>
										
									</div>
									<!-- 空间门户 End -->
							<%End If%>	
							  </div>
							 <!---第一块结束--->
							 
							 
							 
							 <!---第二块开始--->
								  <div id="left2" class="leftbox" style="display:none">
								  
								   <%IF instr(lcase(KS.C("ModelPower")),"sysset10")=0 or KS.C("SuperTf")=1 Then%>
								    <!-- 系统设置 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />系统设置</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu">
												<%If KS.ReturnPowerResult(0, "KMST10001") Then%>
											   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'系统设置 >> <font color=red>基本信息设置</font>','SetParam','KS.Setting.asp');" title="基本信息设置">基本信息设置</a></li>
											 <%end if%>
												  
												 <%If Not ModelXML Is Nothing Then
												   If ModelXML.documentElement.SelectNodes("row[@basictype=3 and @channelstatus=1]").length<>0 Then
												 %>
												  <%If KS.ReturnPowerResult(0, "KMST20001") Then %>
												  <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red><%=SQL(3,I)%>参数设置</font>','SetParam','KS.DownParam.asp?ChannelID=<%=SQL(0,I)%>');">下载参数设置</a></li>
												  <%End If%>
												 
												 <%If KS.ReturnPowerResult(0, "KMST20002") Then %>
												 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>下载服务器管理</font>','Disabled','KS.DownServer.asp?ChannelID=<%=SQL(0,I)%>');">下载服务器管理</a>
												 <%end if%>
												 
											
												<%
												  End If
												End If
												
												If Not ModelXML Is Nothing Then
												   If ModelXML.documentElement.SelectNodes("row[@channelid=7 and @channelstatus=1]").length<>0 Then
												 %>
												  <%If KS.ReturnPowerResult(0, "KMST20003") and IsBusiness Then %>
												 <li><a href="javascript:void(0)" onClick="javascript:SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>参数设置</font>','SetParam','KS.MovieParam.asp?ChannelID=7');">影视参数设置</a></li>
												  <%End If%>
												
												 <%If KS.ReturnPowerResult(0, "KMST20004") and IsBusiness Then %>
												 <li><a href="javascript:void(0)" onClick="javascript:SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>影视服务器管理</font>','Disabled','KS.MediaServer.asp?TypeID=2&ChannelID=7');">影视服务器管理</a></li>
												 <%end if%>
												<%
												   End If
												End If
												
												If Not ModelXML Is Nothing Then
												   If ModelXML.documentElement.SelectNodes("row[@channelid=8 and @channelstatus=1]").length<>0 Then
												 %>
												 <%If KS.ReturnPowerResult(0, "KMST20005") and IsBusiness Then %>
												 <li><a href="javascript:void(0)" onClick="javascript:SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>供求交易类型管理</font>','Disabled','KS.SupplyType.asp');">供求交易类型管理</a></li>
												  <%End If%>
											  <%  End If
											   End If
											   %>
											 
											 <%If KS.ReturnPowerResult(0, "KMST10003") Then%>
											   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'系统设置 >> <font color=red>在线支付平台管理</font>','SetParam','KS.PaymentPlat.asp');"  title="整合系统设置">在线支付平台管理</a></li>
											 <%end if%>
											 <%If KS.ReturnPowerResult(0, "KMST10002") Then%>
											   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'系统设置 >> <font color=red>整合系统设置</font>','SetParam','KS.API.asp');"  title="整合系统设置">API通用整合设置</a></li>
											 <%end if%>
											</ul>
										
									</div>
									<!-- 系统设置 End -->
								<%End If%>	
								
								<%IF instr(lcase(KS.C("ModelPower")),"sysset20")=0 or KS.C("SuperTf")=1 Then%>	
								
								<%
									If KS.CheckDir("../3G/") Then
									If KS.ReturnPowerResult(0, "KSO10000")  Then %>
									 <div class="expmenu">
									   <div class="navigation">
											 <div class="navtitle"><img src="images/icon08.png" align="texttop" />3G版参数配置</div>
												<span class="arrow up"></span>
									   </div>
											<ul class="menu" style="display:none">
									 
											   <li><a href="#" onClick="SelectObjItem1(this,'3G版系统管理 >> <font color=red>3G版基本参数设置</font>','SetParam','../3g/Setting.asp');" title="3G版基本参数设置">3G版基本参数设置</a></li>
											   <li><a href="#"  onClick="SelectObjItem1(this,'3G版系统管理 >> <font color=red>3G版自定义页面管理</font>','Disabled','../3g/setting.asp?action=template');">3G版自定义页面</a></li>
									  </ul>
									
									</div>
									<%end if
									Else
									 Check3G
									End If
									%>
									
									<!-- 辅助管理 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />辅助管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<%If KS.ReturnPowerResult(0, "KMST10015") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'辅助管理 >> <font color=red>来源管理</font>','Disabled','KS.Origin.asp');">来源管理</a></li>
													 <%end if%>
													 <%If KS.ReturnPowerResult(0, "KMST10016") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'辅助管理 >> <font color=red>作者管理</font>','Disabled','KS.Author.asp?ChannelID=0');">作者管理</a> </li>
													 <%end if%>
							
													 <%If KS.ReturnPowerResult(0, "KMST10017") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'辅助管理 >> <font color=red>省市管理</font>','Disabled','KS.Province.asp');">地区管理</a> </li>
													 <%end if%>
							
												  <%If KS.ReturnPowerResult(0, "KMST10004") Then%>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'辅助管理 >> <font color=red>内容关键字设置</font>','Disabled','KS.InnerLink.asp');">内容关键字设置</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMST10019") Then%>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'辅助管理 >> <font color=red>搜索关键词维护</font>','Disabled','KS.KeyWord.asp?issearch=1');">搜索关键词维护</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMST10020") Then%>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'辅助管理 >> <font color=red>定时任务管理</font>','Disabled','KS.Task.asp?action=manage');">定时任务管理</a></li>
												  <%end if%>
												  
												   <%If KS.ReturnPowerResult(0, "KMST10014") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>投票记录管理</font>','Disabled','KS.PhotoVote.asp?ChannelID=<%=SQL(0,I)%>');">图片投票记录管理</a>	</li>
												   <%End If%>
							
												  <%If KS.ReturnPowerResult(0, "KMST10006") Then%>
													<li><a href="KS.Log.asp"  target="MainFrame" title="站点文件管理">后台日志管理</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMST10007") Then%>
												   <li><a href="KS.Database.asp?Action=BackUp"  target="MainFrame" title="数据库维护">数据库维护</a></li>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "KMST10008") Then%>
												   <li><a href="KS.DataReplace.asp"  target="MainFrame" title="数据库字段替换">数据库字段替换</a></li>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "KMST10018") Then%>
												   <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'辅助管理 >> <font color=red>上传文件管理</font>','Disabled','KS.AdminFiles.asp');">上传文件管理</a></li>
												   <%end if%>					   
												   <%If KS.ReturnPowerResult(0, "KMST10009") Then%>
												   <li><a href="KS.Database.asp?Action=ExecSql"  target="MainFrame" title="在线执行SQL语句">在线执行SQL语句</a></li>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "KMST10011") Then%>
												   <li><a href="KS.Setting.asp?Action=CopyRight"  target="MainFrame" title="服务器参数探测">服务器参数探测</a></li>
												   <%end if%>
												   <%If KS.ReturnPowerResult(0, "KMST10012") Then%>
												   <li><a href="KS.CheckMM.asp"  target="MainFrame" title="在线检测木马">在线检测木马</a></li>
												   <%end if%>
											</ul>
										
									</div>
									<!-- 辅助管理 End -->
								<%End If%>	
									
								  </div>
							 <!---第二块结束---> 
							 
							 
							 <!---第三块开始--->
								  <div id="left3" class="leftbox" style="display:none">
								  
								  <%If KS.ReturnPowerResult(0, "KSMS10006") Then %>
								    <!-- 自定义表单 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />自定义表单</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu">
												<li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'自定义表单 >> <font color=red>表单项目管理</font>','Disabled','KS.Form.asp');">自定义表单管理</a></li>
					  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'自定义表单 >> <font color=red>添加表单项目</font>','GO','KS.Form.asp?action=Add');">添加表单项目</a></li>
					  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'自定义表单 >> <font color=red>表单项目调用代码</font>','Disabled','KS.Form.asp?action=total');">表单项目调用代码</a></li>
											</ul>
										
									</div>
									<!-- 自定义表单 End -->
								 <%End If%>	
								
								<%If KS.ReturnPowerResult(0, "KSMS20014") Then%>
									<!-- PK系统 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />PK系统</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'观点PK系统 >> <font color=red>PK主题管理</font>','Disabled','KS.PKZT.asp');">PK主题管理</a></li>
					                            <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'观点PK系统 >> <font color=red>PK用户观点管理</font>','Disabled','KS.PKGD.asp');">PK用户观点管理</a></li>
											</ul>
									</div>
									<!-- PK系统 End -->
							   <%end if%>	
							   <!-- 其它系统 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />其它系统</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												 <%If KS.ReturnPowerResult(0, "KSMS20010") Then %>
													 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'其它系统 >> <font color=red>积分兑换商品</font>','Disabled','KS.MallScore.asp');">积分兑换商品</a></li>
													 <%End If%>
												<%If KS.ReturnPowerResult(0, "KSMS20009") Then %>
												<li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'其它系统 >> <font color=red>Digg管理</font>','Disabled','KS.DiggList.asp');">文档Digg管理</a></li>
												<%End If%>
												<%If KS.ReturnPowerResult(0, "KSMS20008") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'其它系统 >> <font color=red>心情指数管理</font>','Disabled','KS.Mood.asp');">心情指数管理</a></li>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'其它系统 >> <font color=red>点评系统管理</font>','Disabled','KS.Mood.asp?TypeFlag=1');">点评系统管理</a></li>
												<%end if%>
												<%If KS.ReturnPowerResult(0, "KSMS20001") Then%>
												<li><a href="KS.FriendLink.asp"  target="MainFrame" title="友情链接管理">友情链接管理</a></li>
												<%end if%>
												<%If KS.ReturnPowerResult(0, "KSMS20002") Then%>
												<li><a href="KS.Announce.asp"  target="MainFrame" title="网站公告管理">网站公告管理</a></li>
												<%end if%>
												<%If KS.ReturnPowerResult(0, "KSMS20000") Then%>
												<li><a href="KS.FeedBack.asp"  target="MainFrame" title="投诉及反馈管理">投诉及反馈管理</a></li>
												<%end if%>
												<%If KS.ReturnPowerResult(0, "KSMS20003") Then%>
												<li><a href="KS.Vote.asp"  target="MainFrame" title="站内调查管理">站内调查管理</a></li>
												<%end if%>
												
												<%If KS.ReturnPowerResult(0, "KSMS20005") Then%>
												<li><a href="KS.Online.asp"  target="MainFrame" title="站点计数器管理">站点计 数 器</a></li>
												<%end if%>
												<%If KS.ReturnPowerResult(0, "KSMS20006") Then%>
                                                <li><a href="KS.Adsjj.asp"  target="MainFrame" title="广告竞价系统管理">广告竞价系统管理</a></li>
												<li><a href="KS.Ads.asp"  target="MainFrame" title="广告系统管理">广告系统管理</a></li>
												<%end if%>
												<%If KS.ReturnPowerResult(0, "KSMS20007") Then%>
												<li><a href="KS.PromotedPlan.asp"  target="MainFrame" title="推广计划管理">推广计划管理</a></li>
												<%end if%>
											</ul>
									</div>
									<!-- 其它系统 End -->	
									
								  </div>
							 <!---第三块结束---> 
							  
							  
							  <!---第四块开始--->
								  <div id="left4" class="leftbox" style="display:none">
								    <!-- 模型管理 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />模型管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu">
												<li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'模型管理 >> <font color=red>模型管理首页</font>','Disabled','KS.Model.asp');">模型管理首页</a></li>
												 <%If KS.ReturnPowerResult(0, "KSMM10000") Then%>
												 <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'模型管理 >> <font color=red>添加新模型</font>','Go','KS.Model.asp?action=Add');">添加新模型</a></li>
												 <%end if%>
												 <%If KS.ReturnPowerResult(0, "KSMM10004") Then%>
												 <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'模型管理 >> <font color=red>模型信息统计</font>','Go','KS.Model.asp?action=total');">模型信息统计</a></li>
												 <%end if%>
												 
											</ul>
										
									</div>
									<!-- 模型管理 End -->
									
									<%If KS.ReturnPowerResult(0, "KSMM10003") Then%>
									<!-- 模型字段管理 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />模型字段管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												  <%For I=0 To UBound(SQL,2)
												   if SQL(6,I)=1 AND SQL(0,I)<>6 and SQL(0,I)<>9 and SQL(0,I)<>10 Then
												  %>
													 <li><a href="javascript:void(0)" onClick="javascript:SelectObjItem1(this,'模型管理 >> <font color=red>字段管理</font>','Disabled','KS.Field.asp?ChannelID=<%=SQL(0,I)%>',<%=SQL(0,I)%>);"><%=SQL(1,I)%>字段</a></li>					  
												  <%
												  End iF
									Next%>
											</ul>
										
									</div>
									<!-- 模型字段管理 End -->
								  
								   	
									<!-- 管理列表菜单 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />管理列表菜单</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<%For I=0 To UBound(SQL,2)
												   if SQL(6,I)=1 AND SQL(0,I)<>6 and SQL(0,I)<>9 and SQL(0,I)<>10 Then
												  %>
													 <li><a href="javascript:void(0)" onClick="javascript:SelectObjItem1(this,'模型管理 >> <font color=red>管理列表管理</font>','Disabled','KS.Model.asp?action=ManageMenu&ChannelID=<%=SQL(0,I)%>',<%=SQL(0,I)%>);"><%=SQL(1,I)%>列表菜单</a></li>					  
												  <%
												  End iF
												 Next%>
											</ul>
										
									</div>
									<!-- 管理列表菜单 End -->
								 <%end if%>
								 
								  </div>
							 <!---第四块结束---> 
							 
							 
							 <!---第五块开始--->
								  <div id="left5" class="leftbox" style="display:none">
								    <!-- 标签管理 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />标签管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu">
												<%
												With Response
												If KS.ReturnPowerResult(0, "KMTL10001") Then
												  .Write ("<li><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'标签管理 >> <font color=red>系统函数标签</font>','FunctionLabel','Include/Label_Main.asp?LabelType=0');"">系统函数标签</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMTL10002") Then
												  .Write ("<li><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'标签管理 >> <font color=red>自定义SQL函数标签</font>','DiyFunctionLabel','Include/Label_Main.asp?LabelType=5');"">自定义SQL函数标签</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMTL10003") Then
												  .Write ("<li><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'标签管理 >> <font color=red>自定义静态标签</font>','FreeLabel','Include/Label_Main.asp?LabelType=1');"">自定义静态标签</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMTL10010") Then
												  .Write ("<li><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'标签管理 >> <font color=red>通用循环标签</font>','FreeLabel','Include/Label_Main.asp?LabelType=6');"">通用循环列表标签</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMTL10011") Then
												  .Write ("<li><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'标签管理 >> <font color=red>自定义生成XML文档</font>','DiyFunctionLabel','Include/Label_Main.asp?LabelType=7');"">自定义生成XML文档</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMTL10001") Then
												  .Write ("<li><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'标签管理 >> <font color=red>分页样式管理</font>','Disabled','Include/Label_Main.asp?LabelType=100');"">分页样式管理</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMTL10004") Then
												  .Write ("<li><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'标签管理 >> <font color=red>自定义JS管理</font>','SysJSList','include/JS_Main.asp?JSType=0');"">系统JS管理</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMTL10005") Then
												  .Write ("<li><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'标签管理 >> <font color=red>自定义JS管理</font>','FreeJSList','include/JS_Main.asp?JSType=1');"">自定义JS管理</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMSL10008") Then
												  .Write "<li><a href='KS.ClassMenu.asp'  target='MainFrame' title='生成顶部菜单'>生成顶部菜单</a></li>"
												end if
												If KS.ReturnPowerResult(0, "KMSL10009") Then
												  .Write "<li><a href='KS.TreeMenu.asp'  target='MainFrame' title='生成树形菜单'>生成树形菜单</a></li>"
												End If
							
											End With %>	
											</ul>
										
									</div>
									<!-- 标签管理 End -->
									
									<!-- 模板管理 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />模板管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<%
												If KS.ReturnPowerResult(0, "KMTL10006") Then
													Response.Write ("<li id='s_1'><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'模板标签管理 >> <font color=red>自定义页面管理</font>','Disabled','KS.DIYPage.asp');"">自定义页面管理</a></li>")
												End If
												If KS.ReturnPowerResult(0, "KMTL10007") Then
													Response.Write ("<li id='s_1'><a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'模板标签管理 >> <font color=red>所有模板管理</font>','Disabled','KS.Template.asp');"">所有模板管理</a></li>")
												End If
												%>
											</ul>
										
									</div>
									<!-- 模板管理 End -->
								  </div>
							 <!---第五块结束---> 
							 
							 
							 <!---第六块开始--->
								  <div id="left6" class="leftbox" style="display:none">
								    <!-- 用户管理 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />用户管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu">
												<%If KS.ReturnPowerResult(0, "KMUA10001") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>管理员管理</font>','Disabled','KS.Admin.asp');">管理员管理</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10002") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>注册用户管理</font>','Disabled','KS.User.asp');" title="注册用户管理">注册用户管理</a></li>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>添加用户</font>','Disabled','KS.User.asp?Action=Add');" title="添加用户">添加用户</a></li>
												  
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10016") and IsBusiness Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>实名认证管理</font>','Disabled','KS.UserRZ.asp');" title="实名认证管理">实名认证管理</a></li>
												  <%end if%>
												  
												  <%If KS.ReturnPowerResult(0, "KMUA10004") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>用户组管理</font>','Disabled','KS.UserGroup.asp');" title="用户组管理">用户组管理</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10003") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>用户短信管理</font>','Disabled','KS.UserMessage.asp');" title="用户短信管理">用户短信管理</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10009") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>发送邮件管理</font>','Disabled','KS.UserMail.asp');" title="发送邮件管理">发送邮件管理</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10012") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>会员字段管理</font>','Disabled','KS.Field.asp?ChannelID=101');" title="会员字段管理">会员字段管理</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10013") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>会员表单管理</font>','Disabled','KS.UserForm.asp');" title="会员表单管理">会员表单管理</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10015") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>会员使用记录</font>','Disabled','KS.UserUseLog.asp');" title="会员使用记录">会员使用记录</a></li>
													<li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>会员签到管理</font>','Disabled','KS.qiandao.asp');" title="会员签到管理">会员签到管理</a></li>
												  <%end if%>
											</ul>
										
									</div>
									<!-- 用户管理 End -->
									
									<!-- 账务明细管理 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />账务明细管理</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<%If KS.ReturnPowerResult(0, "KMUA10005") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>会员点券明细</font>','Disabled','KS.LogPoint.asp');" title="会员点券明细">会员点券明细</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10006") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>会员有效期明细</font>','Disabled','KS.LogEdays.asp');" title="会员有效期明细">会员有效期明细</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10007") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>会员资金明细</font>','Disabled','KS.LogMoney.asp');" title="会员资金明细">会员资金明细</a></li>
												  <%End If%>
												  <%If KS.ReturnPowerResult(0, "KMUA10017") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>会员积分明细</font>','Disabled','KS.LogScore.asp');" title="会员积分明细">会员积分明细</a></li>
												  <%end if%>
												  <%If KS.ReturnPowerResult(0, "KMUA10008") Then %>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>线下充值卡管理</font>','Disabled','KS.Card.asp?cardtype=0');" title="线下充值卡管理">线下充值卡管理</a></li>
												  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>线上充值卡管理</font>','Disabled','KS.Card.asp?cardtype=1');" title="线上充值卡管理">线上充值卡管理</a></li>
												  <%end if%>
											</ul>
									</div>
									<!-- 账务明细管理 End -->
									
									<%If KS.ReturnPowerResult(0, "KMUA10002") Then %>
									<!-- 快速查找用户 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />快速查找用户</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>24小时内登录</font>','Disabled','KS.User.asp?UserSearch=5');"><font color=#ff6600>24小时内登录</a></font></li>
					  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>24小时内登录</font>','Disabled','KS.User.asp?UserSearch=6');">24小时内注册</a></li>
					  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>24小时内登录</font>','Disabled','KS.User.asp?UserSearch=1');"> 被锁住的用户</a></li>
					  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>24小时内登录</font>','Disabled','KS.User.asp?UserSearch=3');">待审批会员</a></li>
					  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>24小时内登录</font>','Disabled','KS.User.asp?UserSearch=4');">待邮件验证</a></li>
					  <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'用户系统 >> <font color=red>24小时内登录</font>','Disabled','KS.User.asp?UserSearch=2');">所有管理员用户</a></li>
											</ul>
									</div>
									<!-- 快速查找用户 End -->
									<%end if%>
									
								  </div>
							 <!---第六块结束---> 
							 
							 
							 <!---第七块开始--->
								  <div id="left7" class="leftbox" style="display:none">
								   <%If KS.ReturnPowerResult(0, "KSO10003") Then %>
								    <!--WSS统计插件 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />WSS统计插件</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu">
												<li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'WSS 统计插件 >> <font color=red>WSS 设置</font>','Disabled','../plus/wss/wss.asp');">WSS 设置</a></li>
					   <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'WSS 统计插件 >> <font color=red>WSS 设置</font>','Disabled','../plus/wss/wss.asp?action=show');">查看统计</a></li>
											</ul>
										
									</div>
									<!-- WSS统计插件 End -->
								 <%end if%>
								 <%If KS.ReturnPowerResult(0, "KSO10002") Then %>
									<!-- bShare分享插件 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />bShare分享插件</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'bShare分享插件 >> <font color=red>bShare分享插件设置</font>','Disabled','../plus/bshare/bshare.asp');">bShare插件设置</a></li>
					                            <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'bShare分享插件 >> <font color=red>bShare分享数据统计</font>','Disabled','../plus/bshare/bshare.asp?action=getdata');">bShare数据统计</a></li>
											</ul>
										
									</div>
									<!-- bShare分享插件 End -->
								<%End IF%>
								
								<%If KS.ReturnPowerResult(0, "KSO10001") Or KS.ReturnPowerResult(0, "KSO10004") Then %>
									<!-- 辅助管理插件 Start -->
									<div class="expmenu">
											<div class="navigation">
												<div class="navtitle"><img src="images/icon08.png" align="texttop" />辅助管理插件</div>
												<span class="arrow up"></span>
											</div>
											<ul class="menu" style="display:none">
												<%If KS.ReturnPowerResult(0, "KSO10001") Then %>
											   <li><a href="javascript:void(0)"  onClick="SelectObjItem1(this,'数据导入插件 >> <font color=red>数据批量导入管理</font>','Disabled','KS.Import.asp');">数据批量导入管理</a></li>
											   <%End If%>
											   <%If KS.ReturnPowerResult(0, "KSO10004") Then %>
											   <li><a href="KS.Tools.asp"  target="MainFrame" title="一键管理工具">一键管理工具</a></li>
											   <%End If%>
											   <%If KS.ReturnPowerResult(0, "KSO10004") Then %>
											   <li><a href="KS.Model_Yd.asp"  target="MainFrame" title="模型数据移动">模型数据移动</a></li>
											   <%End If%>
											</ul>
										
									</div>
									<!-- 辅助管理插件 End -->
								<%End IF%>
								  </div>
							 <!---第二块结束---> 
							  
							  
								
							</div>
						</div>
										
					
				</div>

			</div>
		  </div>
		</div>
		<div id="Scrollbar-Container">
		  <div class="Scrollbar-Track">
			<div class="Scrollbar-Handle"></div>
		  </div>
		</div>
	</div>
		
		<div class="right" id="mainright">
			<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
			 <tr>
			  <td style="padding-left:5px"><%
			   Dim MainUrl:MainUrl="?action=Main"
			   If Not KS.IsNul(Session("FromFile")) Then
			       MainUrl=Session("FromFile")
				   Session("FromFile")=""
			   End If
			 %><iframe src="<%=MainUrl%>" noresize name="MainFrame" id="MainFrame" frameborder="no" scrolling="auto"  marginwidth="0"  marginheight="0" width="100%" height="500"></iframe>
</td>
			 </tr>
			 <tr>
			 <td height="25"><iframe src="KS.Split.asp?ButtonSymbol=Disabled&OpStr=<%=Server.URLEncode("系统管理中心 >> 首页")%>" name="BottomFrame" ID="BottomFrame" frameborder="no" height="25"  scrolling="no" width="100%" marginwidth="0" marginheight="0"></iframe></td>
			 </tr>
			</table>
			
		</div>
	</div>
	
	
	<div class="footer" id="bottomframe">
		<div class="left"><a href="#" id="co" onClick="ChangeLeftFrameStatu();" title="全屏/半屏"><font color=red>×</font>关闭左栏</a></div>
		<div class="center">
			快速通道=>：
			<%
			With Response
			    .Write "<a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'系统管理中心 >> <font color=red>首页</font>','disabled','index.asp?action=Main');"">后台首页</a>"

				If KS.ReturnPowerResult(0, "KMTL20000") Then
				.Write "<a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'发布中心 >> <font color=red>发布管理首页</font>','disabled','Include/refreshindex.asp');"">发布首页</a>"
				End If
				.Write "<a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'发布中心 >> <font color=red>发布管理首页</font>','disabled','Include/RefreshHtml.asp?ChannelID=1');"">发布管理</a>"
				
				If KS.ReturnPowerResult(0, "KMTL10007") Then
				.Write "<a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'模板标签管理 >> <font color=red>模板管理</font>','disabled','KS.Template.asp');"">模板管理</a>"
				End If
				If KS.ReturnPowerResult(0, "KMST10001") Then
				.Write "<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'系统设置 >> <font color=red>基本信息设置</font>','SetParam','KS.Setting.asp');"" title='基本信息设置'>基本信息设置</a>"
				End If
				If Instr(KS.C("ModelPower"),"model1")>0 Or KS.C("SuperTF")="1" then
				.Write "<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'模型管理 >> <font color=red>模型管理首页</font>','SetParam','KS.Model.asp');"">模型管理</a>"
				End If
				If KS.ReturnPowerResult(0, "KMUA10011") Then
				.Write "<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'用户管理 >> <font color=red>稿件统计</font>','SetParam','KS.UserProgress.asp');"">稿件统计</a>"
			    End If
			End With
			%>
		</div>
		<div class="right">
			<span>版权所有 &copy; 2006-<%=year(Now)%> 科兴信息技术有限公司</span>版权所有 &copy; 2006-<%=year(Now)%> 科兴信息技术有限公司
		</div>
	</div>	
</body>
</html>
<% End Sub

Sub KS_Main()
		   Dim TipStr,SafetyTips:SafetyTips=KS.ReadSetting(0)
		   If SafetyTips="1" Then
			   If EnableSiteManageCode=false Then
				TipStr="<li style=""height:24px;line-height:24px"">您没有启用管理认证码，建议您打开conn.asp将EnableSiteManageCode的值设置为True；</li>"
			   ElseIf SiteManageCode="8888"  Then
				TipStr=TipStr & "<li style=""height:24px;line-height:24px""><img src=""images/gif-0760.gif"" align=""absmiddle""> 您后台管理认证密码为系统默认值：<span style=""color:red"">8888</span>,建议您及时打开conn.asp里修改；</li>"
			   End If
			   If KS.CheckDir("../admin") Then
		       TipStr=TipStr & "<li style=""height:24px;line-height:24px""><img src=""images/gif-0760.gif"" align=""absmiddle""> 您的网站后台管理目录为：<span style=""color:red"">admin </span>，出于安全的考虑，我们建议您修改目录名；</li>"
			   End If
			   
			   If DataBaseType=0 Then
			    If instr(lcase(DBPath),"ks_data/kesioncms9.mdb")<>0 then
		         TipStr=TipStr & "<li style=""height:24px;line-height:24px""><img src=""images/gif-0760.gif"" align=""absmiddle""> 您的数据库名称为系统默认名称：<span style=""color:red"">" & DBPath & "</span>,出于安全的考虑，我们建议您修改数据库名称；</li>"
				end if
			   End If
			   
			   If Lcase(KS.C("AdminPass"))="469e80d32c0559f8" Then
		         TipStr=TipStr & "<li style=""height:24px;line-height:24px""><img src=""images/gif-0760.gif"" align=""absmiddle""> 您的后台管理员密码为系统默认值：<span style=""color:red"">admin888</span>,出于安全的考虑，我们建议您及时修改后台登录密码；</li>"
			   End If
			   
			   If TipStr<>"" Then
		    TipStr=TipStr & "<div style=""margin-top:16px;margin-bottom:20px;text-align:right""><label style=""color:#999""><input onclick=""parent.setCookieTips(this.checked)""  type=""checkbox"" name=""nottips"" id=""notips"" value=""1"">我知道了，下次进入后台不再提醒</label></div>"
			   End If
		   End If
 %><!DOCTYPE html>
<html>
<head>
<title>KesionCMS网站管理系统</title>
<meta charset="gb2312" />
<script src="../ks_inc/jquery.js"></script>
<script language='JavaScript' src='../KS_Inc/common.js'></script>
<script src="../ks_inc/lhgdialog.js"></script>
<link href="images/main.css" rel=stylesheet>
<script type="text/javascript">
			function showbigpic(){
				var box=$.dialog({title:'查看KesionCMS相关证书：',content: '<style>.zs{width:890px;}.zs li img{border:1px solid #000;margin:5px;width:199px;height:220px;}.zs li{width:200px;float:left;margin:10px;}</style><div class="zs"><ul><li><a href="http://www.kesion.com/images/sb.jpg" target="_blank"><img src="http://www.kesion.com/images/sb.jpg" title="KesionCMS商标证书"/></a></li><li><a href="http://www.kesion.com/images/cmsv9zs.jpg" target="_blank"><img src="http://www.kesion.com/images/cmsv9zs.jpg" title="KesionCMS著作权证书"/></a></li><li><a href="http://www.kesion.com/images/eshopv9zs.jpg" target="_blank"><img src="http://www.kesion.com/images/eshopv9zs.jpg"  title="商城系统著作权证书"/></a></li><li><a href="http://www.kesion.com/images/examv9zs.jpg" target="_blank"><img src="http://www.kesion.com/images/examv9zs.jpg"  title="考试系统著作权证书"/></a></li><li><a href="http://www.kesion.com/images/icmszs.jpg" target="_blank"><img src="http://www.kesion.com/images/icmszs.jpg"  title="KesionICMS著作权证书"/></a></li><li><a href="http://www.kesion.com/images/imallzs.jpg" target="_blank"><img src="http://www.kesion.com/images/imallzs.jpg"  title="KesionIMALL著作权证书"/></a></li><li><a href="http://www.kesion.com/images/iexamzs.jpg" target="_blank"><img src="http://www.kesion.com/images/iexamzs.jpg"  title="KesionIEXAM著作权证书"/></a></li><li><a href="http://www.kesion.com/images/v5dj.jpg" target="_blank"><img src="http://www.kesion.com/images/v5dj.jpg"  title="KesionCMS著作权证书"/></a></li></ul></div>',max:false,min: false});
			}
			$(document).ready(function(){
			  <%If SafetyTips="1" and TipStr<>"" Then%>
			  
			    $.dialog({title:'<span style="font-weight:bold;font-size:16px"><img align="absmiddle" src="images/ico/back.gif">安全提醒</span>',content:'<div style="font-size:12px;height:160px;"><br/><ul><%=TipStr%></ul></div>'});
			  
			  <%End If%>
			 <%if CheckNewVersion Then%>
			  $.get('index.asp',{action:'ver'},function(d){$('#versioninfo').html(d);});
			  <%if request.ServerVariables("SERVER_NAME")<>"localhost" and request.ServerVariables("SERVER_NAME")<>"127.0.0.1" then%>
			  $.get('index.asp',{timestamp:new Date().getTime(),action:'copyright'},function(d){$('#currversion').html(unescape(d))});
			 <%End If%>
			  //检查是否存在升级文件
			  $.ajax({
			  url: "KS.Update.asp",
			  cache: false,
			  data: "action=check",
			  success: function(d){
			        d=unescape(d);
					switch (d){
					 case 'enabled':
					  $("#updateInfo").html("<font color='green'>对不起,您没有开启自动检测最新版本功能!</font>");
					  break;
					 case 'false':
					  $("#updateInfo").html("<font color='green'>当前已经是最新版本!</font>");
					  break;
					 case 'localversionerr':
					  $("#updateInfo").html("<font color='green'>加载本地xml版本文件出错,请检查<%=KS.Setting(89)%>include/version.xml文件是否存在!</font>");
					  break;
					 case 'remoteversionerr':
					  $("#updateInfo").html("<font color='green'>读取服务器文件出错,请检查<%=KS.Setting(89)%>ks.update.asp文件的配置是否正确或稍候再试!</font>");
					  break;
					 case 'unallow':
					  $("#updateInfo").html("<font color='green'>系统检查到有可更新文件,但不支持在线升级,请到官方站(<a href='http://www.kesion.com' target='_blank'>www.kesion.com</a>)下载升级文件!</font>");
					  break;
					 case 'unallowversion':
					  $("#updateInfo").html("<font color='green'>系统检查到有可更新文件,但由于您的版本号与最新版本号不对应,不支持在线升级,请根据您当前使用的版本到官方站(<a href='http://www.kesion.com' target='_blank'>www.kesion.com</a>)下载升级文件手工升级!</font>");
					  break;
					 default:
					    $("#updateInfo").html("<font color='red'>系统检查到有可升级文件!</font>");
						top.openWin('<img align="absmiddle" src="images/ico/back.gif">KesionCMS 升级提醒','KS.update.asp?action=showupdateinfo',false,700,400)
					  break;
					}
			  }
		 	 });
			  <%End If%>
			 });
           </script>

		  <script type="text/javascript" charset="gbk">
			
			 function cpboxbut(obj,csk){
				 if (csk=="ok")
				 {
				 $(obj).attr("class","Cp_boxG")
				 }
				 else
				 {
				 $(obj).attr("class","Cp_box")
				 }
			 }
			function add_mk(){
				$('#cpboxadd').show(300)
			}
			var boxi='';

			function edit_mk(obj,id){
					boxi=$.dialog({title:'修改快捷', width: '700px',height: '500px',content:'url:ks.index_mk.asp?action=edit&id='+id ,close: function(){alert('我是窗口关闭前执行的函数，如果返回false将阻止窗口关闭');}});
			}
			function add_mkb(obj,id){
					boxi=$.dialog({title:'新增快捷', width: '700px',height: '500px',content:'url:ks.index_mk.asp?action=add'});
			}
			function sel_mk(){
			boxi=$.dialog({
				title:'选择快捷', 
				width: '800px',
				height: '500px',
				
				content:'url:ks.index_mk.asp'
				});
			
			}
			function delbox(obj,id){
				 $.dialog({
					title: '警告',
					content: '确定要删除快捷菜单操作吗？',
					ok: function(){
						del_mk(obj,id);
					},
					cancelVal: '取消',
					cancel: true 
				});
			}
			function del_mk(obj,id){
				//$(obj).parent().parent().hide(500)
				$(obj).parent().parent().attr("title","del")
				$.get("ks.index_mk.asp",{id:id,action:"del_mk",anticache:Math.floor(Math.random()*1000)},function(d){//读取列表
				});
				$(obj).parent().parent().remove();
			}
           </script>
		   <%
			 dim XMLStr,FieldXML,Nodek,NodeXML,Fast,Fasturl,Attribute
			 call indexXMLField(KS.C("AdminName"))
			 set FieldXML = KS.InitialObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
		 	 FieldXML.async = false
		 	 FieldXML.setProperty "ServerHTTPRequest", true 
		 	 FieldXML.load(Server.MapPath(KS.Setting(3)&"config/filmk/"& KS.C("AdminName") &"_mk_a.xml"))
		 	 Set NodeXML=FieldXML.DocumentElement.SelectNodes("item")
			%>
</head>
<body>
<div  class="rightmain" style="font-family:Arial">
<div class="welcomebox" style="padding-left:10px">
                    <%
			 Dim RS:Set RS = Server.CreateObject("Adodb.Recordset")
			 RS.Open "Select top 1 a.*,b.GroupName,u.userface From (KS_Admin a Inner Join KS_UserGroup B on a.groupid=b.id) inner join KS_User u on a.prusername=u.username Where a.UserName='" & KS.C("AdminName") & "'", Conn, 1, 1
			 If Not RS.EOF Then
				
			%>
				<div class="user_l">
					<div class="userpicbg"></div><img src="<%=RS("UserFace")%>" onerror="this.src='../images/face/boy.jpg';" />
				</div>
				<div class="user_r">
					<strong>您好，<span class="span01"><%=KS.C("AdminName")%></span>！</strong>
					<br />
					欢迎进入网站后台系统！ 身份：<span class="span02"><%=RS("GroupName")%></span> 登录次数：<span class="span03"><%=RS("LoginTimes")%></span>次 本次登录时间：<%=RS("LastLoginTime")%>
				</div>
		   <%
			 End If
			 RS.Close: Set RS=Nothing
			%>
			</div>
			<div class="clear"></div>
			<div class="statebox" style="margin-left:10px;color:#666">
				KesionCMS<span style="font-size:12px;vertical-align:super;color:#666">&reg;</span>系统由漳州科兴信息技术有限公司(<a href="http://www.kesion.com" target="_blank" style="color:#666; text-decoration:none">Kesion.Com</a>)独立开发，软件制作权登记号：<a href="javascript:;" onClick="showbigpic()" style="color:#666; text-decoration:none">2012SR058633</a>。任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其它副本上一切关于版权的信息。<span id="currversion"></span>
			</div>
			<div class="shortcutbox" style="margin-left:10px">
				<h4 style="font-family:simhei">快捷通道</h4>
				<ul>
				
				<div class="titlec">
				<%
				dim i
				For Each Nodek In NodeXML
				Fast=Nodek.SelectSingleNode("Fast").text 
				Fasturl=Replace(Nodek.SelectSingleNode("Fasturl").text,"|Fast|","&")
				Attribute=Nodek.SelectSingleNode("Attribute").text
				i=i+1
				%>
				<div id="cpbox_<%=i%>"  class="Cp_box" onMouseOver="cpboxbut(this,'ok');"  onmouseout="cpboxbut(this,'no');">
				<a style=" text-decoration:none;" id="url_<%=Nodek.SelectSingleNode("@id").text%>" href="javascript:void(0)"   onclick="SelectObjItem1(this,'<%=Fast%> >> <font color=red><%=Fast%></font>','<%=Attribute%>','<%=Fasturl%>')" ><img id="img_<%=Nodek.SelectSingleNode("@id").text%>" src="<% =Nodek.SelectSingleNode("Fastico").text %>"/></a> <br/>

				<a style=" text-decoration:none;" id="url_<%=Nodek.SelectSingleNode("@id").text%>" href="javascript:void(0)"   onclick="SelectObjItem1(this,'<%=Fast%> >> <font color=red><%=Fast%></font>','<%=Attribute%>','<%=Fasturl%>')" ><%=Fast %></a>
				<span class="delico"><img title="删除快捷" src="images/mk_del.png" onClick="delbox(this,'<%=Nodek.SelectSingleNode("@id").text%>')"/></span>
				
				</div>
				<%
				
				Next%>
				
				<div id="cpboxadd" class="Cp_box" onMouseOver="cpboxbut(this,'ok');"  onmouseout="cpboxbut(this,'no');" style="">
				<a href="javascript:void(0)" onClick="sel_mk();" title="添加快捷" ><img src="images/ffgsadsadf-.png" style="border:0px; margin-top:8px;" /></a>
				</div>
				
				
				</ul>
			</div>


			<div class="chenxubox" style="margin-left:10px">
				<div class="leftbox">
					<h4 style="font-family:simhei">程序信息</h4>
					<div>
					当前版本：<%=KS.Version%><br />
					<%if CheckNewVersion then%>
						最新版本：<span id='versioninfo' style="color:#e00404"><img src='images/loading.gif' align='absmiddle'>loading...</span>
					<%end if%><br />
					产品开发：漳州科兴信息技术有限公司<br />
					咨询热线：400-0080-263<br />
					营销QQ：<iframe scrolling="no" frameborder="0" width="120" height="35" allowtransparency="true"  src="http://static.b.qq.com/account/bizqq/wpa/wpa_a04.html?type=4&amp;kfuin=4000080263&amp;ws=http%3A%2F%2Fwww.oppo.com&amp;btn1=%E5%9C%A8%E7%BA%BF%E5%AE%A2%E6%9C%8D&amp;cref=http%3A%2F%2Fwww.oppo.com&amp;pt=-%20OPPO%20%E5%AE%98%E6%96%B9%E7%BD%91%E7%AB%99"></iframe>4000080263<br />
					在线升级：<span id='updateInfo'>正在检测最新版本信息...</span>
					</div>
				</div>
				<div class="rightbox"<%If Instr(KS.Setting(16),"2")=0 Then response.write " style='display:none'"%>>
					<h4 style="font-family:simhei">技术论坛新帖</h4>
					<ul>
						<script  id="showtopic" src="http://bbs.kesion.com/Dv_News.asp?GetName=newtopic"></script>
					</ul>	
				</div>
			</div>
 </div>
</body>
</html>
<%
End Sub
Function bytes2BSTR(vIn)
		Dim i,ThisCharCode,NextCharCode
		Dim strReturn:strReturn = ""
		For i = 1 To LenB(vIn)
			ThisCharCode = AscB(MidB(vIn,i,1))
			If ThisCharCode < &H80 Then
				strReturn = strReturn & Chr(ThisCharCode)
			Else
				NextCharCode = AscB(MidB(vIn,i+1,1))
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
				i = i + 1
			End If
		Next
		bytes2BSTR = strReturn
		End Function
Function getfile(RemoteFileUrl)
		On Error Resume Next 
		Dim Retrieval:Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
		With Retrieval
		 .Open "Get", RemoteFileUrl, false, "", ""
		 .Send
		 If .Readystate<>4 then Exit Function
		 getfile =bytes2BSTR(.responseBody)
		End With
		If Err Then
		Err.clear
		getfile="error!"
		End if
		Set Retrieval = Nothing
End function

Function GetTrueDomain(domain)
				Dim x:x = split(domain,".")
				Dim sdomain:sdomain= ""
				Dim start:start = 2
				Dim k :k= 1
				if ubound(x)<=1 then GetTrueDomain=domain:exit function
				if (ubound(x) >= 3) then start = 3
				dim i:i=start
				do while i > 0
					if (i=start) then
						sdomain = sdomain & x(ubound(x)-start+k)
					else
						sdomain = sdomain & "." & x(ubound(x)-start+k)
					end if
					k=k+1
					i=i-1
				loop
				GetTrueDomain=sdomain
End function

Sub GetRemoteVer()
         response.write getfile("http://www.ke" & "s"& "ion.com/websystem/Getoffic" & "ialInfo.asp?action=ver")
End Sub

Sub CopyRight()
		  If Request.ServerVariables("SERVER_NAME")="127.0.0.1" or Request.ServerVariables("SERVER_NAME")="localhost" Then
		  Else
			  If KS.IsNul(Session(KS.SiteSN&"CheckCopyRight")) Then
			   Session(KS.SiteSN&"CheckCopyRight")=getfile("http://www.ke" & "s"& "ion.com/websystem/VerifyAuthorization.asp?myurl=" & GetTrueDomain(Request.ServerVariables("SERVER_NAME")))
			  End If
			   
			  If Not KS.IsNul(Session(KS.SiteSN&"CheckCopyRight")) and Session(KS.SiteSN&"CheckCopyRight")<>"error!" Then
				If Session(KS.SiteSN&"CheckCopyRight")="true" Then
				  KS.Echo escape("<span style='color:green;font-size:12px'>恭喜，您的网站已经过官方正版授权。有关授权问题<a href='http://vip.kesion.com/' target='_blank'>请点此查询</a></span>。")
				Else
				 If IsBusiness=False Then
				  KS.Echo escape("<span style='color:#333;font-size:12px'>您当前使用的是免费版本，仅授权个人非商业使用。</span>")
				 Else
				  KS.Echo escape("<span style='color:#333;font-size:12px'>您当前使用的版本经官方正版验证不通过，仅授权个人非商业使用。有关授权问题<a href='http://vip.kesion.com/' target='_blank'>请点此查询</a> <span style='font-weight:normal;color:#999;font-size:12px'>tips:商业用户请使用授权域名进入后台，此提示将自动消失。</span></span>")
				 End If
				End If
			  End If
		  End If
End Sub

Public Sub indexXMLField(username)'文件
				dim FieldXML,XMLStr
				set FieldXML = KS.InitialObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
				FieldXML.async = false
				FieldXML.setProperty "ServerHTTPRequest", true 
				FieldXML.load(Server.MapPath(KS.Setting(3)&"Config/filmk/" & username &"_mk_a.xml"))
				if FieldXML.parseError.errorCode<>0 Then
					 XMLStr=""
					 XMLStr="<?xml version=""1.0"" encoding=""gb2312"" ?>" &vbcrlf
					 XMLStr=XMLStr&"<field>" &vbcrlf
					 XMLStr=XMLStr&"</field>" &vbcrlf
					 Call KS.WriteTOFile(KS.Setting(3)&"Config/filmk/" & username &"_mk_a.xml",xmlstr)
					 XMLStr=""
					 XMLStr="<?xml version=""1.0"" encoding=""gb2312"" ?>" &vbcrlf
					 XMLStr=XMLStr&"<field>" &vbcrlf
					 XMLStr=XMLStr&"</field>" &vbcrlf
					 Call KS.WriteTOFile(KS.Setting(3)&"Config/filmk/" & username &"_mk_b.xml",xmlstr)
					 '模拟剪切文件操作
				End If
End Sub

Sub setTips() 
		  Call KS.settingsave(0,KS.G("v"))
		  KS.Die "success"
		End Sub
		Sub ajax1()
						Dim Node,Num,Url,HasVerify
						HasVerify=false
						If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig()
						'If KS.Setting(208)="1" and KS.Setting(211)<>"" Then
						'	Num=conn.execute("select count(id) from KS_Order where status=0")(0)
							'KS.Echo ( "<li><a style='cursor:pointer;' title='点击进入订单处理' target=""MainFrame"" href=""KS.ShopOrder.asp"" >待确认订单[<font color=red>" & Num &"</font>]" & "个</a></li>")
						'end if
						For Each Node In Application(KS.SiteSN&"_ChannelConfig").DocumentElement.SelectNodes("channel[@ks21=1 and @ks0!=6 and @ks0!=9 and @ks0!=10]")
								If KS.C("SuperTF")<>"1" and Instr(KS.C("ModelPower"),KS.C_S(Node.SelectSingleNode("@ks0").text,10)&"1")=0 Then 
								 If DataBaseType=1 Then
									 Num=Conn.Execute("Select count(id) from " & Node.SelectSingleNode("@ks2").text & " where deltf=0 and verific=0 and tid in(select id from ks_class where ','+cast(AdminPurview as nvarchar(4000))+',' like '%," & KS.C("GroupID") & "%')")(0)
								 Else
									 Num=Conn.Execute("Select count(id) from " & Node.SelectSingleNode("@ks2").text & " where deltf=0 and verific=0 and  tid in(select id from ks_class where ','+AdminPurview+',' like '%," & KS.C("GroupID") & "%')")(0)
								 End If
							 Else
							   Num=Conn.Execute("Select count(id) from " & Node.SelectSingleNode("@ks2").text & " where deltf=0 and verific=0")(0)            
							 End If
							   If Num=0 Then
							   'KS.Echo "待签" & Node.SelectSingleNode("@ks3").text & ":<font color=red>" & Num &" </font>" & Node.SelectSingleNode("@ks4").text & "&nbsp;"
							   Else
								HasVerify=true
							   KS.Echo "<li><a style='cursor:pointer;' title='点击进入签收' target=""MainFrame"" href='KS.ItemInfo.asp?ComeFrom=Verify&ChannelID=" & Node.SelectSingleNode("@ks0").text & "'>待签" & Node.SelectSingleNode("@ks3").text & "[<font color=red>" & Num &"</font>]" & Node.SelectSingleNode("@ks4").text & "</a></li>"
							   End If
						next
						
						 If KS.C_S(10,21)="1" Then
							Num=conn.execute("select count(id) from ks_Job_Company where status=0")(0)
							If Num>0 Then
							 HasVerify=true
							 KS.Echo "<li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.JobCompany.asp?ComeFrom=Verify'>待审招聘单位[<font color=red>" & Num & "</font>]家</a></li>"
							End If
							Num=conn.execute("select count(id) from ks_Job_Resume where status=0")(0)
							If Num>0 Then
							 HasVerify=true
							 KS.Echo "<li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.JobResume.asp?ComeFrom=Verify'>待审简历[<font color=red>" & Num & "</font>]份</a></li>"
							End If
							Num=conn.execute("select count(id) from KS_Job_Edu where status=0")(0)
							If Num>0 Then
							 HasVerify=true
							 KS.Echo "<li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.JobEdu.asp?status=0'>待审教育背[<font color=red>" & Num & "</font>]份</a><li>"
							End If
						 End If
						 
						
					  If KS.Setting(208)="1" and KS.Setting(211)<>"" Then
						 Num=conn.execute("select count(id) from ks_order where status=0")(0)
						 If Num>0 Then
						  HasVerify=true
						  KS.Echo "<li><a style='cursor:pointer;' title='点击进入订单管理' target=""MainFrame"" href='KS.ShopOrder.asp'>待确认订单[<font color=red>" & Num & "</font>]个</a></li>"
						 End If
						End If
						Num=conn.execute("select count(id) from ks_comment where verific=0")(0)
						If Num>0 Then
						 HasVerify=true
						 KS.Echo "<li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.Comment.asp?ComeFrom=Verify'>待审评论[<font color=red>" & Num & "</font>]条</a></li>"
						End If
						Num=conn.execute("select count(linkid) from ks_link where verific=0")(0)
						If Num>0 Then
						 HasVerify=true
						KS.Echo "<li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.FriendLink.asp?Action=Verific'>待审链接[<font color=red>" & Num & "</font>]个</a></li>"
						End If
						Num=conn.execute("select count(blogid) from ks_blog where status=0")(0)
						If Num>0 Then
						HasVerify=true
						KS.Echo "<li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.Space.asp?from=verify'>待审空间[<font color=red>" & Num & "</font>]个</a></li>"
						End If
						Num=conn.execute("select count(id) from ks_bloginfo where status=2")(0)
						If Num>0 Then
						HasVerify=true
						KS.Echo "<li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.Spacelog.asp?from=verify'>待审日志[<font color=red>" & Num & "</font>]篇</a></li>"
						End If
						Num=conn.execute("select count(id) from ks_photoxc where status=0")(0)
						If Num>0 Then
						HasVerify=true
						KS.Echo " <li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.SpaceAlbum.asp?from=verify'>待审相册[<font color=red>" & Num & "</font>]本</a></li>"
						End If
						Num=conn.execute("select count(id) from ks_team where Verific=0")(0)
						If Num>0 Then
						HasVerify=true
						KS.Echo " <li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.SpaceTeam.asp?from=verify'>待审圈子[<font color=red>" & Num & "</font>]个</a></li>"
						End If
						Num=conn.execute("select count(id) from KS_EnterpriseNews where status=0")(0)
						If Num>0 Then
						HasVerify=true
						KS.Echo " <li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.EnterPriseNews.asp?from=verify'>待审企业新闻[<font color=red>" & Num & "</font>]篇</a></li>"
						End If
						Num=conn.execute("select count(id) from KS_EnterPriseAD where status=0")(0)
						If Num>0 Then
						HasVerify=true
						KS.Echo " <li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.EnterPriseAD.asp?from=verify'>待审行业广告[<font color=red>" & Num & "</font>]个</a></li>"
						End If
						Num=conn.execute("select count(id) from KS_EnterPriseZS where status=0")(0)
						If Num>0 Then
						HasVerify=true
						KS.Echo " <li><a style='cursor:pointer;' title='点击进入审核' target=""MainFrame"" href='KS.EnterPriseZS.asp?from=verify'>待审证书[<font color=red>" & Num & "</font>]个</a></li>"
						End If
						
		End sub
		
		Sub CheckSetting()
			 dim strDir,strAdminDir,InstallDir
			 strDir=Trim(request.ServerVariables("SCRIPT_NAME"))
			 strAdminDir=split(strDir,"/")(Ubound(split(strDir,"/"))-1) & "/"
			 InstallDir=left(strDir,instr(lcase(strDir),"/"&Lcase(strAdminDir)))
					
			If Instr(UCASE(InstallDir),"/W3SVC")<>0 Then
			   InstallDir=Left(InstallDir,Instr(InstallDir,"/W3SVC"))
			End If
		 If KS.Setting(2)<>KS.GetAutoDoMain or KS.Setting(3)<>InstallDir Then
			
		  Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
		  RS.Open "Select Setting From KS_Config",conn,1,3
		  Dim SetArr,SetStr,I
		  SetArr=Split(RS(0),"^%^")
		  For I=0 To Ubound(SetArr)
		   If I=0 Then 
			SetStr=SetArr(0)
		   ElseIf I=2 Then
			SetStr=SetStr & "^%^" & KS.GetAutoDomain
		   ElseIf I=3 Then
			SetStr=SetStr & "^%^" & InstallDir
		   Else
			SetStr=SetStr & "^%^" & SetArr(I)
		   End If
		  Next
		  RS(0)=SetStr
		  RS.Update
		  RS.Close:Set RS=Nothing
		  Call KS.DelCahe(KS.SiteSn & "_Config")
		  Call KS.DelCahe(KS.SiteSn & "_Date")
		 End If
		End Sub
		
		Sub Check3G()
		 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
		  RS.Open "Select WapSetting From KS_Config",conn,1,3
		  Dim SetArr,SetStr,I
		  SetArr=Split(RS(0),"^%^")
		  For I=0 To Ubound(SetArr)
		   If I=0 Then 
			SetStr=0
		   Else
			SetStr=SetStr & "^%^" & SetArr(I)
		   End If
		  Next
		  RS(0)=SetStr
		  RS.Update
		  RS.Close:Set RS=Nothing
		  Call KS.DelCahe(KS.SiteSn & "_Config")
		  Call KS.DelCahe(KS.SiteSn & "_Date")
		End Sub

End Class
%>

