system_left.asp

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

	'.Write "                      <tr AllParentID=""KS_ConventionManage"" ParentID=""KS_ConventionManage"">"
	'.Write "                        <td>"
							  
	'.Write "        <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
			  
			  ' If Not KSCMS.ReturnPowerResult(0, "KMCT10001") Then
			   ' .Write ("<tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
			   ' .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">友情链接</span></td></tr>")
			   ' Else
			   ' .Write ("<tr  AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
			   ' .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'常规管理 >> <font color=red>友情链接管理</font>','Disabled','../Convention/Link_Main.asp');"">友情链接</span></td></tr>")
			   ' End If
	
			'  If Not KSCMS.ReturnPowerResult(0, "KMCT10002") Then
			'    .Write ("<tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
			'    .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">站点公告</span></td></tr>")
			'    Else
			'    .Write ("<tr  AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
			'    .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'常规管理 >> <font color=red>网站公告管理</font>','AnnounceList','../Convention/Announce_Main.asp');"">站点公告</span></td></tr>")
			'    End If
			'    If Not KSCMS.ReturnPowerResult(0, "KMCT10005") Then
			'    .Write ("<tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
			'    .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">站内链接</span></td></tr>")
			'    Else
			'    .Write ("<tr  AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
			'    .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'常规管理 >> <font color=red>站内链接管理</font>','InnerLinkList','../Convention/Inner_Main.asp');"">站内链接</span></td></tr>")
			'    End If
			'  If Not KSCMS.ReturnPowerResult(0, "KMCT10003") Then
			'    .Write ("<tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
			'    .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">后台日志</span></td></tr>")
			'    Else
			'    .Write ("<tr  AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
			'    .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'常规管理 >> <font color=red>后台日志管理</font>','LogList','../Convention/Log_Main.asp');"">后台日志</span></td></tr>")
			'    End If
			  
			  
			'     .Write "         <tr  AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">"
	' .Write "           <td width=""32%"" 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=""68%"">广告管理</td>"
	'.Write "          </tr>"
	'.Write "        </table></td>"
	'.Write "                      </tr>"
	
	
	  '如果是ACCESS 则允许进行数据库管理
	
	'.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>"
	'.Write "                      <tr AllParentID=""KS_ConventionManage"" ParentID=""KS_ConventionManage"">"
	'.Write "                        <td>"
							  
	'.Write "        <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
			  
		 '      If Not KSCMS.ReturnPowerResult(0, "KMCT20001") Then
		 '       .Write ("<tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
		 '       .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">备份数据库</span></td></tr>")
		 '       Else
		 '       .Write ("<tr  AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
		 '       .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'数据库管理 >> <font color=red>备份数据库</font>','Disabled','../Convention/DB_BackUp.asp');"">备份数据库</span></td></tr>")
		 '       End If
	
		 '     If Not KSCMS.ReturnPowerResult(0, "KMCT20002") Then
		 '       .Write ("<tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
		 '       .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">恢复数据库</span></td></tr>")
		 '       Else
		 '       .Write ("<tr  AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
		 '       .Write (" <td 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'数据库管理 >> <font color=red>恢复数据库</font>','Disabled','../Convention/DB_Restore.asp');"">恢复数据库</span></td></tr>")
		 '       End If
		 '     If Not KSCMS.ReturnPowerResult(0, "KMCT20003") Then
		 '        .Write "         <tr  Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">"
	 '.Write "           <td width=""32%"" 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=""68%"">压缩和修复数据库</td>"
	'.Write "          </tr>"
	'.Write "        </table></td>"
	'.Write "                      </tr>"
	
	 '           Else
	 '            .Write "         <tr AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">"
	 '.Write "           <td width=""32%"" 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=""65%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'数据库管理 >> <font color=red>压缩和修复数据库</font>','Disabled','../Convention/DB_Compact.asp');"">压缩和修复数据库</span></td></tr>")
	'.Write "          </tr>"
	'.Write "        </table></td>"
	'.Write "                      </tr>"
			   '
			   ' End If
			   
	
	.Write "                    </table>"
	
	
	.Write "                  </DIV>"
	.Write "</body>"
	.Write "</html>"
	
	 If CBool(KSCMS.ReturnPowerResult(0, "KMSystemPower")) = False Then
	  .Write ("<script> var AllBtnArray=document.body.getElementsByTagName('TD'),CurrObj=null;")
	  .Write ("for (var i=0;i<AllBtnArray.length;i++)")
	  .Write ("{CurrObj=AllBtnArray[i];CurrObj.disabled=true;}</script>")
	 End If
  End With
End Sub

End Class
%>