system_left.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

			  .Write ("<tr Disabled AllParentID=""SystemLastArticle"" ParentID=""SystemLastArticle"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">开关选项设置</span></td></tr>")
			  Else
			  .Write ("<tr  AllParentID=""SystemLastArticle"" ParentID=""SystemLastArticle"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>开关选项设置</font>','SetSystem','System_SiteConfig.asp?SetType=4');"">开关选项设置</span></td></tr>")
			  End If
			 If Not KSCMS.ReturnPowerResult(0, "KMST10005") Then
			  .Write ("<tr Disabled AllParentID=""SystemLastArticle"" ParentID=""SystemLastArticle"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">缩略图选项设置</span></td></tr>")
			  Else
			  .Write ("<tr  AllParentID=""SystemLastArticle"" ParentID=""SystemLastArticle"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>缩略图选项设置</font>','SetSystem','System_Thumb.asp');"">缩略图选项设置</span></td></tr>")
			  End If
			  If Not KSCMS.ReturnPowerResult(0, "KMST10006") Then
			  .Write ("<tr Disabled AllParentID=""SystemLastArticle"" ParentID=""SystemLastArticle"">")
			  .Write (" <td nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/lastnode.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write (" <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">附加选项设置</span></td></tr>")
			  Else
			  .Write ("<tr AllParentID=""SystemLastArticle"" ParentID=""SystemLastArticle"">")
			  .Write (" <td nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/lastnode.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write (" <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>附加选项设置</font>','SetSystem','System_SiteConfig.asp?SetType=3');"">附加选项设置</span></td></tr>")
			  End If
			  
	.Write "        </table></td>"
	.Write "                      </tr>"
	.Write "                      <tr AllParentID=""KS_SystemManage"" ParentID=""KS_SystemManage"">"
	.Write "                        <td> <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
	.Write "                            <tr>"
								  
	.Write "            <td width=""19%"" nowrap><img onClick=""ClickImgEvent(this,'SystemChannel');"" name=""ArticleImg1"" src=""../Images/Folder/Open.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderopen.gif"" align=""absmiddle""></td>"
	.Write "                              <td width=""81%"" style=""Cursor:default;"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span onClick=""SelectObjItem(this,'','Disabled','');document.images['ArticleImg1'].src='../Images/Folder/Open.gif';ShowChildClass('SystemChannel');"">模块信息设置</span></td>"
	.Write "                            </tr>"
	.Write "                          </table>"
							  
	.Write "        <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
			
			If Not KSCMS.ReturnPowerResult(0, "KMSTM10001") Then
			  .Write ("<tr Disabled AllParentID=""SystemChannel"" ParentID=""SystemChannel"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td width=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">文章中心设置</span></td></tr>")
			  Else
			  .Write ("<tr AllParentID=""SystemChannel"" ParentID=""SystemChannel"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td width=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>文章中心设置</font>','SetSystem','System_ChannelConfig.asp?ChannelID=1');"">文章中心设置</span></td></tr>")
			  End If
			  If Not KSCMS.ReturnPowerResult(0, "KMSTM10002") Then
			  .Write ("<tr Disabled AllParentID=""SystemChannel"" ParentID=""SystemChannel"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">图片中心设置</span></td></tr>")
			  Else
			  .Write ("<tr  AllParentID=""SystemChannel"" ParentID=""SystemChannel"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>图片中心设置</font>','SetSystem','System_ChannelConfig.asp?ChannelID=2');"">图片中心设置</span></td></tr>")
			  End If
			  If Not KSCMS.ReturnPowerResult(0, "KMSTM10003") Then
			  .Write ("<tr Disabled AllParentID=""SystemChannel"" ParentID=""SystemChannel"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">下载中心设置</span></td></tr>")
			  Else
			  .Write ("<tr  AllParentID=""SystemChannel"" ParentID=""SystemChannel"">")
			  .Write ("  <td width=""35%"" nowrap><img src=""../Images/Folder/HR.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
			  .Write ("  <td onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>下载中心设置</font>','SetSystem','System_ChannelConfig.asp?ChannelID=3');"">下载中心设置</span></td></tr>")
			  End If

			 
	.Write "        </table></td>"
	.Write "                      </tr>"
	.Write "                      <tr AllParentID=""KS_SystemManage"" ParentID=""KS_SystemManage"">"
	.Write "                        <td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
	.Write "                            <tr>"
								  
	.Write "            <td width=""17%"" nowrap><img onClick=""ClickImgEvent(this,'SystemLastDown');"" src=""../Images/Folder/EndOpen.gif"" name=""DownImg"" width=""16"" height=""22""><img src=""../Images/Folder/folderopen.gif"" align=""absmiddle""></td>"
	.Write "                              <td width=""83%"" style=""Cursor:default;"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span onClick=""SelectObjItem(this,'','Disabled','');document.images['DownImg'].src='../Images/Folder/EndOpen.gif';ShowChildClass('SystemLastDown');"">查看系统信息</Span></td>"
	.Write "                            </tr>"
	.Write "                          </table>"
	.Write "                          <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
							   
							   If Not KSCMS.ReturnPowerResult(0, "KMST10007") Then
								   .Write ("<tr  Disabled AllParentID=""SystemLastDown"" ParentID=""SystemLastDown""> ")
								   .Write ("<td width=""34%"" nowrap><img src=""../Images/Folder/blank.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
								   .Write ("<td width=""66%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">系统空间占用量</span></td></tr>")
								Else
								   .Write ("<tr  AllParentID=""SystemLastDown"" ParentID=""SystemLastDown""> ")
								   .Write ("<td width=""34%"" nowrap><img src=""../Images/Folder/blank.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
								   .Write ("<td width=""66%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>查看系统空间占用量</font>','Disabled','System_WebUseInfo.asp');"">系统空间占用量</span></td></tr>")
								End If
								If Not KSCMS.ReturnPowerResult(0, "KMST10008") Then
								   .Write ("<tr  Disabled  AllParentID=""SystemLastDown"" ParentID=""SystemLastDown""> ")
								   .Write ("<td width=""34%"" nowrap><img src=""../Images/Folder/blank.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
								   .Write ("<td width=""66%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">组件支持情况</span></td></tr>")
								Else
								   .Write ("<tr  AllParentID=""SystemLastDown"" ParentID=""SystemLastDown"" > ")
								   .Write ("<td width=""34%"" nowrap><img src=""../Images/Folder/blank.gif"" width=""16"" height=""22""><img src=""../Images/Folder/Node.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
								   .Write ("<td width=""66%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>查看组件支持情况</font>','Disabled','System_Server.asp');"">组件支持情况</span></td></tr>")
								End If
								If Not KSCMS.ReturnPowerResult(0, "KMST10009") Then
								 .Write ("<tr Disabled  AllParentID=""SystemLastDown"" ParentID=""SystemLastDown"" >")
								 .Write ("<td width=""34%"" nowrap><img src=""../Images/Folder/blank.gif"" width=""16"" height=""22""><img src=""../Images/Folder/lastnode.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
								 .Write ("<td width=""66%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">服务器参数探测</span></td></tr>")
								Else
								 .Write ("<tr AllParentID=""SystemLastDown"" ParentID=""SystemLastDown"">")
								 .Write ("<td width=""34%"" nowrap><img src=""../Images/Folder/blank.gif"" width=""16"" height=""22""><img src=""../Images/Folder/lastnode.gif"" width=""16"" height=""22""><img src=""../Images/Folder/folderclosed.gif"" align=""absmiddle""></td>")
								 .Write ("<td width=""66%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'系统设置 >> <font color=red>服务器参数探测</font>','Disabled','System_main.asp');"">服务器参数探测</span></td></tr>")
								End If
						   
	 .Write "                         </table></td>"
	.Write "                      </tr>"
	
	
	
	'.Write "                      <tr AllParentID=""0"" ParentID=""0"" ClassID=""KS_ConventionManage"">"
	'.Write "                        <td height=""25""><img src=""../Images/sys.gif"" width=""21"" height=""17"">常规管理</td>"
	'.Write "                      </tr>"