<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->
<!--#include file="Include/Session.asp"-->
<%
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
		End Sub
        Private Sub Class_Terminate()
		 Set KS=Nothing
		End Sub
		Public Sub Kesion()
		    Call CheckSetting()
			Select Case KS.G("Action")
			 Case "Head" Call KS_Head()
			 Case "Left" Call KS_Left()
			 Case "Main" Call KS_Main()
			 Case "Foot" Call KS_Foot()
			 Case "ver"  Call GetRemoteVer()
			 Case Else  Call KS_Index()
			End Select
		End Sub
		Sub KS_Index()
		With Response
		.Write "<html>"
		.Write "<head>"
		.Write "<title>网站后台管理</title>"
		.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
		.Write "</head>" & vbCrLf
		.Write "<frameset rows=""28,*"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbcrlf
		.Write "	<frame src=""Index.asp?Action=Head"" name=""FrameTop"" id=""FrameTop"" noresize scrolling=""no""  frameborder=""no""></frame>" & vbcrlf
		.Write "  <frameset cols=""160,*"" name=""FrameMain"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbcrlf
		.Write "		<frame src=""Index.asp?Action=Left"" name=""LeftFrame"" noresize frameborder=""no"" scrolling=""yes"" marginwidth=""0"" marginheight=""0""></frame>" &vbcrlf
		.Write "         <frameset rows=""*,35"" border=""0"" frameborder=""0"" framespacing=""0"">" & vbCrLf
		.Write "            <frame src=""Index.asp?action=Main""  noresize name=""MainFrame"" id=""MainFrame"" frameborder=""no"" scrolling=""auto"" marginwidth=""0"" marginheight=""0""></frame>" & vbCrLf
		.Write "            <frame src=""KS.Split.asp?ButtonSymbol=Disabled&OpStr=" & Server.URLEncode("系统管理中心 >> 首页") & """ name=""BottomFrame"" ID=""BottomFrame"" frameborder=""no"" scrolling=""no"" marginwidth=""0"" marginheight=""0""></frame>" & vbCrLf
		.Write "        </frameset>" & vbCrLf
		.Write "  </frameset>" & vbcrlf
		.Write "<noframes>您的浏览器版本太低,请安装IE5.5或以上版本!</noframes>" & vbcrlf
		.Write "</html>" & vbCrLf
		End With
		End Sub
		
		Public Sub KS_Head()
			 On Error Resume Next
			 With Response
			 .Buffer = True
			If Trim(Request.ServerVariables("HTTP_REFERER")) = "" Then
				.Write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
				Exit Sub
			End If
			
			.Write "<html>"			
		    .Write "<script language='JavaScript' src='../Inc/common.js'></script>"
		    .Write "<script language='JavaScript' src='../Inc/jquery.js'></script>"
			.Write "<script language='JavaScript' src='Include/SetFocus.js'></script>"
			.Write "<link href=""images/frame.CSS"" rel=""stylesheet"" type=""text/css"">"
			.Write "<meta http-equiv=Content-Type content=""text/html; charset=GB2312"">"
			.Write "<script language=""javascript"">"& vbcrlf
			.Write " function out(src){"& vbcrlf
			.Write " if(confirm('确定要退出吗？')){"& vbcrlf
			.Write " return true;	"& vbcrlf
			.Write " }"& vbcrlf
			.Write "return false;"& vbcrlf
			.Write " }"& vbcrlf
			.Write " function getNewMessage()"& vbcrlf
			.Write " {"& vbcrlf
			.Write "  var url = '../user/UserAjax.asp';"   & vbCrLf      
			.Write "  jQuery.get(url,{action:'GetAdminMessage'},function(d){jQuery('#newmessage').html(d);});" & vbCrLf
			.Write " }"
			.Write "setTimeout('getNewMessage()', 2000);"
            .Write "</script>"
			
			.Write "</head>"
			.Write "<body leftmargin=""0""  topmargin=""0"" marginwidth=""0"" marginheight=""0"" scroll=""no"" class=""head"">"
			.Write "<table width=""100%""  border=""0"" cellpadding=""0"" cellspacing=""0"">"
			.Write "<tr>"
			.Write "    <td>"
			.Write "<div id='footmenu'>快速通道 >> [<a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'生成中心 >> <font color=red>生成管理首页</font>','disabled','Include/refreshindex.asp');"">生成首页</a>] [<a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'生成中心 >> <font color=red>生成管理</font>','disabled','Include/RefreshHtml.asp?ChannelID=1');"">生成管理</a>]  [<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'系统设置 >> <font color=red>基本设置</font>','SetParam','KS.System.asp');"" title='基本设置'>基本设置</a>]   [<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'频道管理 >> <font color=red>频道管理</font>','SetParam','KS.Model.asp');"">频道管理</a>]  [<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'频道管理 >> <font color=red>栏目管理</font>','SetParam','KS.class.asp');"">栏目管理</a>]  [<a href='javascript:void(0)' onClick=""javascript:SelectObjItem1(this,'模板标签管理 >> <font color=red>模板管理</font>','disabled','KS.Template.asp');"">模板管理</a>]  [<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'专题管理 >> <font color=red>专题管理</font>','SetParam','KS.special.asp');"">专题管理</a>] [<a href='javascript:void(0)' onClick=""SelectObjItem1(this,'用户管理 >> <font color=red>工作进度</font>','SetParam','KS.UserProgress.asp');"">投稿情况</a>]  "
			If KS.ReturnPowerResult(0, "KMUA10010") Then
			.Write "[<a href=""#"" onClick=""OpenWindow('KS.Frame.asp?Url=KS.Admin.asp&Action=SetPass&PageTitle=" & server.URLEncode("修改后台登录密码") & "',360,175,window);"" class=""white"">修改密码</a>] "
			End If
			If KS.ReturnPowerResult(0, "KMST20000") Then
			.Write "[<a href=""KS.CleanCache.asp"" target=""MainFrame"" class=""white"">更新缓存</a>] "
			End If
			.WRite "[<a href=""Login.asp?Action=LoginOut"" target=""_top"" onClick=""return out(this)""  class=""white"">退出</a>]"
			.Write "               </td>"
			.Write "              </tr>"
			.Write "            </table>"
			.Write "</body>"
			.Write "</html>"
			 If KS.S("C")="1" Then
					 On Error Resume Next
					 Dim FileContent
					 FileContent=KS.ReadFromFile("../KS_Inc/ajax.js")
					 FileContent=GetAjaxInstallDir(FileContent,installdir)
					 Call KS.WriteTOFile("../KS_Inc/ajax.js", FileContent)
					 If Err Then
					  err.clear
					 End If
			 End If		
			End With
			End Sub

			Function GetAjaxInstallDir(Content,byval installdir)
			 Dim regEx, Matches, Match
			 Set regEx = New RegExp
			 regEx.Pattern="var installdir='[\S]*';"
			 regEx.IgnoreCase = True
			 regEx.Global = True
			 Set Matches = regEx.Execute(Content)
			 If Matches.count > 0 Then
			  GetAjaxInstallDir=Replace(content,Matches.item(0),"var installdir='" & installdir & "';")
			 Else
			  GetAjaxInstallDir="var installdir='/';"
			 end if
		End Function
		
		Public Sub KS_Left()
		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"" src=""Include/SetFocus.js""></script>"
		.Write "<script language='JavaScript' src='../Inc/common.js'></script>"
		.Write "<script language='JavaScript' src='../Inc/Jquery.js'></script>"
		%>
		<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
         <html xmlns="http://www.w3.org/1999/xhtml">
		<head><title>网站管理系统后台</title>
		<meta http-equiv=Content-Type content="text/html; charset=gb2312">
		<link href="images/frame.css" type=text/css rel=stylesheet>
		</head>
		<body leftmargin="0" topmargin="0" class="leftbody">	

		<table border=0 cellPadding=0 cellSpacing=0>
		  <tr>
		  <td colspan="2" class="lefttop"></td>
		  </tr>
			<tr><td class="boxright" valign="top">
			    <div>
				  <div id="menubox">
					 <ul id="dleft_tab1">
					 <% dim n:n=0%>
					 <!--------------内容管理 start-------------------->
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">内容管理</a></DIV>
					  <div class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">
					     <div class="modellist">
					  <%
					   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"
						   End Select
						   %>
						   <li>
						<a href="javascript:void(0)"  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>
						<span style="cursor:pointer" onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>添加<%=SQL(3,I)%></font>','AddInfo','<%=ItemManageUrl%>?Action=Add&ChannelID=<%=SQL(0,I)%>',<%=SQL(0,I)%>);"><img alt="添加<%=SQL(3,I)%>" src="images/add.gif" border="0" align="absmiddle"></span>
						<%if KS.ReturnPowerResult(SQL(0,I), "M"&SQL(0,I)&"10012") then%> <span style="cursor:pointer" onClick="SelectObjItem1(this,'<%=SQL(1,I)%> >> <font color=red>审核<%=SQL(3,I)%></font>','Disabled','KS.ItemInfo.asp?ComeFrom=Verify&ChannelID=<%=SQL(0,I)%>',<%=SQL(0,I)%>);"><img alt="审核<%=SQL(3,I)%>" src="images/accept.gif" border="0" align="absmiddle"></span>
						   <%end if%>
						   </li>
						   <%
						   End If
						 End If
					   Next
					   %>
					     </div> 						  		  
						  =======================
                           <div  id="modelxg">
						   <%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');">评论审核</a></li>
							<%End If%>
						   </div>
						 </div>
					 <!--------------内容管理 end-------------------->  
					 <!--------------频道管理 start-------------------->
					  <%N=N+1%>
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">频道管理</a></DIV>
					 <DIV class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">
					<%If KS.ReturnPowerResult(0, "KSMS20004") Then%>
					<li><a href="KS.Model.asp"  target="MainFrame">频道管理</a></li>
					<li><a href="KS.Class.asp"  target="MainFrame">栏目管理</a></li>
<%If KS.ReturnPowerResult(0, "M010002") Then %>
						    <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'批量设置 >> <font color=red>批量设置</font>','Disabled','KS.ItemInfo.asp?Action=SetAttribute');">批量设置</a></li>
							<%End If%>					
                                        <li><a href="KS.ItemInfo.asp?ComeFrom=RecycleBin"  target="MainFrame">回收站</a></li>	
					<li><a href="KS.KeyWord.asp"  target="MainFrame">关键字Tags管理</a></li>
					<li><a href='KS.InnerLink.asp' target='MainFrame'>内容关键字设置</a></li>
					<li><a href='KS.KeyWord.asp?issearch=1' target='MainFrame'>搜索关键词维护</a></li>
					<li><a href='KS.Province.asp' target='MainFrame'>地区</a> &nbsp;<a href="KS.Origin.asp"  target="MainFrame">来源</a> &nbsp;<a href='KS.Author.asp?ChannelID=0' target='MainFrame'>作者</a></li>
					<li><a href='KS.Task.asp?action=manage' target='MainFrame'>定时任务管理</a></li>
					<li><a href="Collect/Collect_Main.asp?ChannelID=1"  target="MainFrame">信息采集管理</a></li>
					 <%end if%>	</DIV>
					  <!--------------频道管理 end--------------------> 
					<!--------------商城管理 start-------------------->
				    <% N=N+1 %>
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">商城管理</a></DIV>
					 <DIV class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">
					    <%If KS.ReturnPowerResult(5, "M510012") Then %>
                                  <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>商城内容管理</font>','AddInfo','KS.ItemInfo.asp?ChannelID=5');">商城内容管理</a></li>
                                                 <li><span style="cursor:pointer;line-height:150%" onClick="SelectObjItem1(this,'商城系统 >> ','AddInfo','KS.Shop.asp?Action=Add&ChannelID=5',5);">添加商品</span></li>			
						 <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'商城系统 >> <font color=red>处理24小时内订单</font>','Disabled','KS.ShopOrder.asp?searchtype=1&ChannelID=5');"><font color=red>处理24小时内订单</font></a></li>
						 <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></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, "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, "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, "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, "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, "M530001") Then %>
						  <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'团购系统 >> <font color=red>团购管理首页</font>','Disabled','KS.GroupBuy.asp');">团购管理首页</a></li>
						  <%End If%>
<%If KS.ReturnPowerResult(5, "M530001") Then %>
						  <li><a href='javascript:void(0)' onClick="SelectObjItem1(this,'团购系统 >> <font color=red>团购管理首页</font>','Go','KS.GroupBuy.asp?Action=Add');">添加团购</a></li>
						  <%End If%>
					  
					 </DIV>
					<!--------------商城管理 End-------------------->
					
					<%N=N+1%>
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">论坛系统</a></DIV>
					 <DIV class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">
					<%If KS.ReturnPowerResult(0, "KSMS20004") 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>
					<li><a href="KS.GuestBoard.asp"  target="MainFrame" title="版面分类管理">论坛版面分类管理</a></li>
					<li><a href="KS.GuestTable.asp"  target="MainFrame" title="当前数据表管理">当前数据表管理</a></li>
					   <%If KS.ReturnPowerResult(0, "WDXT10003") Then%>
					   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'问答系统 >> <font color=red>等级头衔设置</font>','Disabled','KS.AskGrade.asp?typeflag=1');" title="等级头衔设置">等级头衔设置</a></li>
					   <%end if%>
					<%end if%>	 					
					 </DIV>
					<!--------------问答系统 start-------------------->
					<%IF instr(lcase(KS.C("ModelPower")),"ask0")=0 or KS.C("SuperTf")=1 Then%>
					 <%N=N+1%>
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">问答系统</a></DIV>
					 <DIV class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">
					 <%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%>
					   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'问答系统 >> <font color=red>问题列表管理</font>','SetParam','KS.AskList.asp');" title="问题列表管理">问题列表管理</a></li>
					   <%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%>
					   </li>
					 </DIV>
				   <%End If%>
                    <!--------------问答系统 end--------------------> 
					
					
					<!--------------系统设置 start-------------------->
				     <% N=N+1 %>
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">系统设置</a></DIV>
					 <DIV class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">
                               <%If KS.ReturnPowerResult(0, "KMST10001") Then%>
					   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'系统设置 >> <font color=red>基本信息设置</font>','SetParam','KS.System.asp');" title="基本信息设置">基本信息设置</a></li>
					 <%end if%>
 <%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%>

 <%If KS.ReturnPowerResult(0, "KMST20005") Then %>
						
					   <li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'系统设置 >> <font color=red>整合系统设置</font>','SetParam','KS.API.asp');"  title="整合系统设置">API通用整合设置</a></li>
					
						  <%End If%>
					 <%
						  Response.Write "<li><a href='KS.PaymentPlat.asp' target='MainFrame'>在线支付平台管理</a></li>"	
						  Response.Write "======================="
						  Response.Write "<li><a href='Wap/KS_System.asp' target='MainFrame'>WAP基本参数设置</a></li>"
						  Response.Write "<li><a href='Wap/KS.Template.asp' target='MainFrame'>WAP自定义页面</a></li>"
						  Response.Write "======================="
						  Response.Write "<li><a href='KS.PhotoVote.asp' target='MainFrame'>投票记录管理</a></li>"
						  Response.Write "<li><a href='KS.Log.asp' target='MainFrame'>后台日志管理</a></li>"
						  Response.Write "<li><a href='KS.Database.asp?Action=BackUp' target='MainFrame'>数据库维护</a></li>"
						  Response.Write "<li><a href='KS.DataReplace.asp' target='MainFrame'>数据库字段替换</a></li>"
						  Response.Write "<li><a href='KS.AdminFiles.asp' target='MainFrame'>上传文件管理</a></li>"
						  Response.Write "<li><a href='KS.Database.asp?Action=ExecSql' target='MainFrame'>在线执行SQL语句</a></li>"
						  Response.Write "<li><a href='KS.System.asp?Action=CopyRight' target='MainFrame'>服务器参数探测</a></li>"
						  Response.Write "<li><a href='KS.CheckMM.asp' target='MainFrame'>在线检测木马</a></li>"
					 %>
					 </DIV>
					<!--------------系统设置 end-------------------->  
					<!--------------用户管理 start-------------------->
				 <% N=N+1 %>
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">用户管理</a></DIV>
					 <DIV class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">
					 <%
					      Response.Write "<li><a href='KS.Admin.asp' target='MainFrame'>管理员管理</a></li>"
					      Response.Write "<li><a href='KS.User.asp' target='MainFrame'>注册用户管理</a></li>"
						  Response.Write "<li><a href='KS.User.asp?Action=Add' target='MainFrame'>添加用户</a></li>"
						  Response.Write "<li><a href='KS.UserGroup.asp' target='MainFrame'>用户组管理</a></li>"
						  Response.Write "<li><a href='KS.UserMessage.asp' target='MainFrame'>用户短信管理</a></li>"
						  Response.Write "<li><a href='KS.UserMail.asp' target='MainFrame'>发送邮件管理</a></li>"
						  Response.Write "<li><a href='KS.Field.asp?ChannelID=101' target='MainFrame'>会员字段管理</a></li>"
						  Response.Write "<li><a href='KS.UserForm.asp' target='MainFrame'>会员表单管理</a></li>"
						  Response.Write "<li><a href='KS.UserLog.asp' target='MainFrame'>会员动态管理</a></li>"
						  Response.Write "<li><a href='KS.UserUseLog.asp' target='MainFrame'>会员使用记录</a></li>"
						  Response.Write "======================="
						  Response.Write "<li><a href='KS.LogPoint.asp' target='MainFrame'>会员点券明细</a></li>"
						  Response.Write "<li><a href='KS.LogEdays.asp' target='MainFrame'>会员有效期明细</a></li>"
						  Response.Write "<li><a href='KS.LogMoney.asp' target='MainFrame'>会员资金明细</a></li>"
						  Response.Write "<li><a href='KS.LogScore.asp' target='MainFrame'>会员积分明细</a></li>"
						  Response.Write "<li><a href='KS.Card.asp?cardtype=0' target='MainFrame'>线下充值卡管理</a></li>"
						  Response.Write "<li><a href='KS.Card.asp?cardtype=1' target='MainFrame'>线上充值卡管理</a></li>"
						  Response.Write "======================="
						  Response.Write "<li><a href='KS.User.asp?UserSearch=5' target='MainFrame'>24小时内登录</a></li>"
						  Response.Write "<li><a href='KS.User.asp?UserSearch=6' target='MainFrame'>24小时内注册</a></li>"
						  Response.Write "<li><a href='KS.User.asp?UserSearch=1' target='MainFrame'>被锁住的用户</a></li>"
						  Response.Write "<li><a href='KS.User.asp?UserSearch=3' target='MainFrame'>待审批会员</a></li>"
						  Response.Write "<li><a href='KS.User.asp?UserSearch=4' target='MainFrame'>待邮件验证</a></li>"
						  Response.Write "<li><a href='KS.User.asp?UserSearch=2' target='MainFrame'>所有管理员用户</a></li>"
					 %>
					 </DIV>
					  <!--------------用户管理 end--------------------> 
					  <!--------------标签设置 start-------------------->
				<% N=N+1 %>
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">标签设置</a></DIV>
					 <DIV class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">

<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>自定义表单管理</font>','SetParam','KS.Form.asp');"  title="自定义表单管理">自定义表单管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>添加表单项目</font>','SetParam','KS.Form.asp?action=Add');"  title="添加表单项目">添加表单项目</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>表单项目调用代码</font>','SetParam','KS.Form.asp?action=total');"  title="表单项目调用代码">表单项目调用代码</a></li>
=======================
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>系统函数标签</font>','SetParam','Include/Label_Main.asp?LabelType=0');"  title="系统函数标签">系统函数标签</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>自定义SQL函数标签</font>','SetParam','Include/Label_Main.asp?LabelType=5');"  title="自定义SQL函数标签">自定义SQL函数标签</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>自定义静态标签</font>','SetParam','Include/Label_Main.asp?LabelType=1');"  title="自定义静态标签">自定义静态标签</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>通用循环列表标签</font>','SetParam','Include/Label_Main.asp?LabelType=6');"  title="通用循环列表标签">通用循环列表标签</a></li>
=======================
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>系统JS管理</font>','SetParam','include/JS_Main.asp?JSType=0');"  title="系统JS管理">系统JS管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>自定义JS管理</font>','SetParam','include/JS_Main.asp?JSType=1');"  title="自定义JS管理">自定义JS管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>生成顶部菜单</font>','SetParam','KS.ClassMenu.asp');"  title="生成顶部菜单">生成顶部菜单</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'标签设置 >> <font color=red>生成树形菜单</font>','SetParam','KS.TreeMenu.asp');"  title="生成树形菜单">生成树形菜单</a></li>
=======================
			<%If KS.ReturnPowerResult(0, "KSMM10003") Then%>
						 <div class="dc">
					  <%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%>
					=======================
					 <div class="dc">
					  <%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%>					
					<%end if%>				
					 </DIV>
					  <!--------------标签设置 end-------------------->  
					   <!--------------其他系统 start-------------------->
				 <% N=N+1 %>
					 <DIV  class="left_menu" id="td_<%=n+1%>" onClick="javascript:switchShow(<%=n+1%>,1);" height=26>&nbsp;&nbsp;<a href="javascript:void(0)">其他系统</a></DIV>
					 <DIV class="hid" id="subTable<%=n+1%>" style="WIDTH: 100%">
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>PK主题管理</font>','SetParam','KS.PKZT.asp');"  title="PK主题管理">PK主题管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>PK用户观点管</font>','SetParam','KS.PKGD.asp');"  title="PK用户观点管">PK用户观点管</a></li>
=======================
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>积分兑换商品</font>','SetParam','KS.MallScore.asp');"  title="积分兑换商品">积分兑换商品</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>文档Digg管理</font>','SetParam','KS.DiggList.asp');"  title="文档Digg管理">文档Digg管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>心情指数管理</font>','SetParam','KS.Mood.asp');"  title="心情指数管理">心情指数管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>点评系统管理</font>','SetParam','KS.Mood.asp?TypeFlag=1');"  title="点评系统管理">点评系统管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>网站公告管理</font>','SetParam','KS.Announce.asp');"  title="网站公告管理">网站公告管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>友情链接管理</font>','SetParam','KS.FriendLink.asp');"  title="友情链接管理">友情链接管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>投诉及反馈管理</font>','SetParam','KS.FeedBack.asp');"  title="投诉及反馈管理">投诉及反馈管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>站内调查管理</font>','SetParam','KS.Vote.asp');"  title="站内调查管理">站内调查管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>站点计数器</font>','SetParam','KS.Online.asp');"  title="站点计数器">站点计数器</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>广告系统管理</font>','SetParam','KS.Ads.asp');"  title="广告系统管理">广告系统管理</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>推广计划管理</font>','SetParam','KS.PromotedPlan.asp');"  title="推广计划管理">推广计划管理</a></li>
=======================	
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>WSS设置</font>','SetParam','../plus/wss/wss.asp');"  title="WSS设置">WSS设置</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>查看统计</font>','SetParam','../plus/wss/wss.asp?action=show');"  title="查看统计">查看统计</a></li>
<li><a href="javascript:void(0)" onClick="SelectObjItem1(this,'其他系统 >> <font color=red>数据批量导入管理</font>','SetParam','KS.Import.asp');"  title="数据批量导入管理">数据批量导入管理</a></li>
					 </DIV>				   
					  <!--------------其他系统 end--------------------> 
					</ul></div><div></div></div></td>
		  </tr>
		</table>
		<SCRIPT type="text/javascript">
		function fHideFocus(tName){
		aTag=document.getElementsByTagName(tName);
		for(i=0;i<aTag.length;i++)aTag[i].onfocus=function(){this.blur();};
		}
		fHideFocus("A");
		var id = 1;  //默认选中的ID
		document.getElementById("subTable"+id).className = "show";
		document.getElementById("td_"+id).className = "left_menu_selected";
		var cache_id = id;
		function switchShow(id,tag){
		    document.getElementById("td_"+id).className='left_menu_selected';
			for(var i=1; i<=<%=n%>; i++){
			   if (i!=id)
				document.getElementById("td_"+i).className='left_menu';
		     }
			var tObj = document.getElementById("subTable"+id);
			var	cObj = document.getElementById("subTable"+cache_id);
			if(tag){
				if(tObj) tObj.className =(tObj.className=='hid') ? "show" : "hid";
			}else{
				if(tObj) tObj.className = "show";
			}
			if(cache_id != id){
				cache_id = id;
				if(cObj)cObj.className = "hid";
			}
			event.cancelBubble = true;
		}
		function showleft(id)
		{ 
		 document.getElementById("left_tab"+id).className='Selected';
		 var oItem = document.getElementById("TabPage").getElementsByTagName("li"); 
			for(var i=1; i<=oItem.length; i++){
			   if (i!=id)
				document.getElementById("left_tab"+i).className='';
		     }
			var dvs=document.getElementById("menubox").getElementsByTagName("ul");
			for (var i=0;i<dvs.length;i++){
			  if (dvs[i].id==('dleft_tab'+id))
				dvs[i].style.display='';
			  else
			  dvs[i].style.display='none';
			}
		}
		</SCRIPT>
		</body>
<%
        If Session("ShowCount")="" Then
		.Write " "
		Session("ShowCount")=KS.C("AdminName")
		End If
		.Write "</html>"
	    End With
		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
		End If
		 getfile =bytes2BSTR(.responseBody)
		End With
		If Err Then
		Err.clear
		getfile="<font color='#ff0000'>error!</font>"
		End if
		Set Retrieval = Nothing
		end function


  Public Sub KS_Main()
         %>
           <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
			<html xmlns="http://www.w3.org/1999/xhtml">
			<head>
			<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
			<script src="../inc/jquery.js"></script>
			<script src="../inc/box.js"></script>
			<script language="JavaScript" src="Include/SetFocus.js"></script>
			<style type="text/css">
			a{color:#555;}
			.position{ border-bottom:1px #83B5CD solid;background:url(images/titlebg.png); height:36px; font-size:13px; color:#555;line-height:36px; padding-left:10px;}
			.title{ background:#FBFDFF;border-top:2px solid #E1EEFF; line-height:28px; font-weight:bold;height:28px; color:#666; margin-left:20px;margin-right:20px;text-decoration:none;font-size:13px; margin-top:10px; padding-left:10px; padding-top:8px;}
			.title img{ padding-top:5px; padding-right:6px;}
			.nr{ height:auto; color:#555; text-decoration:none;font-size:12px; line-height:22px; padding-left:10px;margin-left:20px;margin-right:20px;}
			.nr ul{ padding:0px;margin:0px;}
			.nr li{text-alilgn:left;list-style-type:none;}
			.l {float:left}
			.l h2{font-size:13px;color:#ff6600}
			.box{clear:both}
			.newbox1{float:left;width:99%;}
			<%
			If Instr(KS.Setting(16),"2")=0 Then
			 KS.Echo ".bbs{display:none}"
			End If
			%>
			.bbs li{list-style-image:url(images/38.jpg)}
			</style>
			</head>
			
			<body scroll=no>				
			<div class="position"><font color=red><%=KS.C("AdminName")%></font> 您好，欢迎进入网站后台系统！
			<%
								Dim RS:Set RS = Server.CreateObject("Adodb.Recordset")
								RS.Open "Select top 1 * From KS_Admin Where UserName='" & KS.C("AdminName") & "'", Conn, 1, 1
								If Not RS.EOF Then
								  KS.Echo "身份："
										  If KS.C("SuperTF") = 0 Then
										   KS.Echo "普通管理员"
										   Else
										   KS.Echo "超级管理员"
										   End If
									 KS.Echo " 登录次数：" & RS("LoginTimes") & "次 本次登录时间：" & RS("LastLoginTime")
								End If
								 RS.Close: Set RS=Nothing
			%></div>			
			<div class="title"><img src="images/gif-0760.gif">程序信息：</div>
			<div class="nr l">
			 <ul>
			   <li>版权：大河生活网&nbsp;&nbsp; 支持QQ：824969636 &nbsp;&nbsp;支持网站：<a href='http://www.dahelife.com/' target='_blank'>http://www.dahelife.com/</a></li>
			  </ul>
			  </div>
			<div class="box">
			<div class="newbox1">
			<div class="title"><img src="images/gif-0760.gif">待审核信息：</div>
			<div class="nr">
			 <%
			 Dim Node,Num,Url,HasVerify
			 HasVerify=false
			 If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig()
			 For Each Node In Application(KS.SiteSN&"_ChannelConfig").DocumentElement.SelectNodes("channel[@ks21=1 and @ks0!=6 and @ks0!=9 and @ks0!=10]")
			   Num=Conn.Execute("Select count(id) from " & Node.SelectSingleNode("@ks2").text & " where verific=0")(0)
			   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 "<span style='cursor:pointer;' title='点击进入签收' onclick=""location.href='KS.ItemInfo.asp?ComeFrom=Verify&ChannelID=" & Node.SelectSingleNode("@ks0").text & "';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode(Node.SelectSingleNode("@ks1").text & " >> <font color=red>签收" & Node.SelectSingleNode("@ks3").text & "</font>")&"';"">待签" & Node.SelectSingleNode("@ks3").text & "[<font color=red>" & Num &"</font>]" & Node.SelectSingleNode("@ks4").text & "</span>&nbsp;"
			   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 "<span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.JobCompany.asp?ComeFrom=Verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("招聘求职管理 >> <font color=red>待审招聘单位</font>")&"';"">待审招聘单位[<font color=red>" & Num & "</font>]家</span>&nbsp;"
				End If
				Num=conn.execute("select count(id) from ks_Job_Resume where status=0")(0)
				If Num>0 Then
				 HasVerify=true
				 KS.Echo "<span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.JobResume.asp?ComeFrom=Verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("招聘求职管理 >> <font color=red>待审招聘单位</font>")&"';"">待审简历[<font color=red>" & Num & "</font>]份</span>&nbsp;"
				End If
				Num=conn.execute("select count(id) from KS_Job_Edu where status=0")(0)
				If Num>0 Then
				 HasVerify=true
				 KS.Echo "<span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.JobEdu.asp?status=0';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("招聘求职管理 >> <font color=red>待审招聘单位</font>")&"';"">待审教育背[<font color=red>" & Num & "</font>]份</span>&nbsp;"
				End If
			 End If
			 
			KS.Echo " <div style='height:22px;padding-top:3px;border-top:1px dashed #cccccc'>"
			Num=conn.execute("select count(id) from ks_comment where verific=0")(0)
			If Num>0 Then
			 HasVerify=true
			 KS.Echo "<span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.Comment.asp?ComeFrom=Verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("内容管理 >> <font color=red>审核评论</font>")&"';"">待审评论[<font color=red>" & Num & "</font>]条</span>"
			End If
			Num=conn.execute("select count(linkid) from ks_link where verific=0")(0)
			If Num>0 Then
			 HasVerify=true
			KS.Echo " <span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.FriendLink.asp?Action=Verific';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("友情链接管理 >> <font color=red>审核链接</font>")&"';"">待审链接[<font color=red>" & Num & "</font>]个</span>"
		    End If
			Num=conn.execute("select count(blogid) from ks_blog where status=0")(0)
			If Num>0 Then
			HasVerify=true
			KS.Echo " <span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.Space.asp?from=verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("空间门户管理 >> <font color=red>审核空间</font>")&"';"">待审空间[<font color=red>" & Num & "</font>]个</span>"
			End If
			Num=conn.execute("select count(id) from ks_bloginfo where status=2")(0)
			If Num>0 Then
			HasVerify=true
			KS.Echo " <span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.Spacelog.asp?from=verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("空间门户管理 >> <font color=red>审核日志</font>")&"';"">待审日志[<font color=red>" & Num & "</font>]篇</span>"
			End If
			Num=conn.execute("select count(id) from ks_photoxc where status=0")(0)
			If Num>0 Then
			HasVerify=true
			KS.Echo " <span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.SpaceAlbum.asp?from=verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("空间门户管理 >> <font color=red>审核相册</font>")&"';"">待审相册[<font color=red>" & Num & "</font>]本</span>"
			End If
			Num=conn.execute("select count(id) from ks_team where Verific=0")(0)
			If Num>0 Then
			HasVerify=true
			KS.Echo " <span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.SpaceTeam.asp?from=verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("空间门户管理 >> <font color=red>审核相册</font>")&"';"">待审圈子[<font color=red>" & Num & "</font>]个</span>"
			End If
			Num=conn.execute("select count(id) from KS_EnterpriseNews where status=0")(0)
			If Num>0 Then
			HasVerify=true
			KS.Echo " <span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.EnterPriseNews.asp?from=verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("空间门户管理 >> <font color=red>审核企业新闻</font>")&"';"">待审企业新闻[<font color=red>" & Num & "</font>]篇</span>"
			End If
			Num=conn.execute("select count(id) from KS_EnterPriseAD where status=0")(0)
			If Num>0 Then
			HasVerify=true
			KS.Echo " <span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.EnterPriseAD.asp?from=verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("空间门户管理 >> <font color=red>审核行业广告</font>")&"';"">待审行业广告[<font color=red>" & Num & "</font>]个</span>"
			End If
			Num=conn.execute("select count(id) from KS_EnterPriseZS where status=0")(0)
			If Num>0 Then
			HasVerify=true
			KS.Echo " <span style='cursor:pointer;' title='点击进入审核' onclick=""location.href='KS.EnterPriseZS.asp?from=verify';$(parent.document).find('#BottomFrame')[0].src='KS.Split.asp?ButtonSymbol=Disabled&opstr=" & server.URLEncode("空间门户管理 >> <font color=red>审核证书</font>")&"';"">待审证书[<font color=red>" & Num & "</font>]个</span>"
			End If
			If HasVerify=false Then
			 KS.Echo "<div style='margin:30px;text-align:center;color:red'>今天没有用户提交待审核的信息！</div>"
			End If
			KS.Echo "</div>"
			   %>
			</div>
			</div>
			</div>
			</body>
			</html>

          <%
				Conn.Close:Set Conn = Nothing
			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
End Class
%> 