picture_left.asp

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

		.Write "                                        <tr>"
		.Write "                                          <td height=""50"">&nbsp;小技巧：<br>"
		.Write "                                            　 按住 <font color=""#FF0000"">Shift </font>键连续选择，按住"
		.Write "                                            <font color=""#FF0000"">Ctrl </font>键多项选择,按"
		.Write "                                            <font color=""#FF0000"">Delete</font>"
		.Write "                                            键删除选中项</td>"
		.Write "                                        </tr>"
		.Write "                                      </table>"
											   CountClassRS.Close:CountObjRS.Close
										   Set CountClassRS = Nothing:Set CountObjRS = Nothing
										   End If
										   ObjRS.Close:Set ObjRS = Nothing
											
		.Write "                                    </td>"
		.Write "                                  </tr>"
		.Write "                                  <tr>"
		.Write "                                    <td height=""120"" valign=""top""> <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		.Write "                                        <tr>"
		.Write "                                          <td height=""25""><img src=""../Images/sys.gif"" width=""21"" height=""17"" align=""absmiddle"">图片管理菜单</td>"
		.Write "                                        </tr>"
											 If CStr(OpType) = "0" Or CStr(OpType) = "-1" Then
												Dim TempStr
												If ID <> "0" And CStr(StatusFlag) = "1" Then
												 TempStr = "栏目"
												Else
												 TempStr = "频道"
												End If
												
		.Write "                                        <tr>"
		.Write "                                          <td height=""25"">&nbsp;&nbsp; <img src=""../Images/home.gif"" width=""18"" height=""18"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].location='Picture_Main.asp';parent.parent.frames['BottomFrame'].location='../Split.asp?ButtonSymbol=Disabled&OpStr=图片管理 >> <font color=red>浏览频道</font>';"">图片首页</span></td>"
		.Write "                                        </tr>"
		
		.Write "                                        <TR>"
		.Write "                                         <TD>"
		.Write "                                           <table width=""100%"" border=""0"" id=""EnabledArea"">"
							If CStr(OpType) = "-1" Then
		  .Write "                                      <tr>"
		  .Write "                                        <td height=""25"">&nbsp;&nbsp; <img src=""../Images/Comment.gif""  align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Comment('');}"">评论管理</span></td>"
		  .Write "                                      </tr>"
							 Else
		  .Write "                                      <tr>"
		  .Write "                                        <td height=""25"">&nbsp;&nbsp; <img src=""../Images/Comment.gif""  align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Comment('');}"">" & TempStr & "下的评论</span></td>"
		  .Write "                                      </tr>"
							 End If
		.Write "                                        <tr>"
		.Write "                                          <td height=""25"">&nbsp;&nbsp; <img src=""../Images/Folder/AddFolder.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].CreateFolder();}"">添加一个新" & TempStr & "</span></td>"
		.Write "                                        </tr>"
		.Write "                                        <tr>"
		.Write "                                          <td height=""25"">&nbsp;&nbsp; <img src=""../Images/Editor.gif"" width=""20"" height=""20"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].CreateNews('');}"">添加一组新图片</span></td>"
		.Write "                                        </tr>"
		.Write "                                        <tr>"
		.Write "                                          <td height=""25"">&nbsp;</td>"
		.Write "                                        </tr>"
												Else
		  .Write "                                        <tr>"
		.Write "                                          <td height=""25"">&nbsp;&nbsp; <img src=""../Images/home.gif"" width=""18"" height=""18"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].location='Picture_Main.asp';parent.parent.frames['BottomFrame'].location='../Split.asp?ButtonSymbol=Disabled&OpStr=图片管理 >> <font color=red>浏览频道</font>';"">图片首页</span></td>"
		.Write "                                        </tr>"
		  .Write "                                      <tr>"
		  .Write "                                        <td height=""25"">&nbsp;&nbsp; <img src=""../Images/qs.gif"" width=""18"" height=""18"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].location='Picture_UserPictureMain.asp';parent.parent.frames['BottomFrame'].location='../Split.asp?ButtonSymbol=Disabled&OpStr=图片管理 >> <font color=red>签收会员图片</font>';"">签收会员图片</span></td>"
		  .Write "                                      </tr>"
		
		.Write "                                       <TR>"
		.Write "                                         <TD>"
		.Write "                                           <table width=""100%"" border=""0"" id=""EnabledArea"">"
		
		 .Write "                                     <tr>"
		  .Write "                                        <td height=""25"">&nbsp;&nbsp; <img src=""../Images/Comment.gif""  align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Comment('');}"">查看选中图片的评论</span></td>"
		  .Write "                                      </tr>"
		.Write "                                        <tr>"
		.Write "                                          "
		.Write "                        <td height=""25"">&nbsp;&nbsp; <img src=""../Images/Copy.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Edit('');}"">编辑这组图片</span></td>"
		.Write "                                        </tr>"
		.Write "                                        <tr>"
		.Write "                                          "
		.Write "                        <td height=""25"">&nbsp;&nbsp; <img src=""../Images/Del.gif"" width=""23"" height=""22"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Delete('');}"">删除这组图片</span></td>"
		.Write "                                        </tr>"
		.Write "                                        <tr>"
		.Write "                                          <td height=""25"">&nbsp;</td>"
		.Write "                                        </tr>"
												End If
												
		.Write "                                        </table>"
		
		
		.Write "                                          </TD></TR>"
		.Write "                                      </table></td>"
		.Write "                                  </tr>"
		.Write "                                </table></td>"
		.Write "                            </tr>"
		.Write "                          </table>"
		.Write "                          </td>"
		.Write "                      </tr>"
		.Write "                    </table>"
						
		.Write "                    <table width='100%' border='0' cellpadding='0' cellspacing='0'>"
		.Write "                      <tr>"
		.Write "                        <td height='20'><table width='100%' border='0' cellpadding='0' cellspacing='0'>"
		.Write "                            <tr AllParentID='0' ParentID='0' ClassID='OrdinaryMan'>"
		.Write "                              <td><table border='0' cellspacing='0' cellpadding='0'>"
		.Write "                                  <tr>"
		.Write "                                    <td>&nbsp;<img src='../Images/Menu.gif' align='absmiddle'>&nbsp;</td>"
		.Write "                                    <td class='TempletItem'>常规管理</td>"
		.Write "                                  </tr>"
		.Write "                                </table></td>"
		.Write "                            </tr>"
		If Not KSCMS.ReturnPowerResult(2, "KMP20001") Then
		  .Write "                            <tr Disabled>"
		  .Write "                              <td> <table border='0' cellspacing='0' cellpadding='0'>"
		  .Write "                                  <tr>"
		  .Write "                                    <td><img src='../Images/Folder/Node.gif' width='16' height='22'><img src='../Images/Folder/folderclosed.gif' align=""absmiddle""></td>"
		  .Write "                                    <td style='Cursor:default;' onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><Span>关键字管理</Span></td>"
		  .Write "                                 </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		Else
		  .Write "                            <tr>"
		  .Write "                              <td> <table border='0' cellspacing='0' cellpadding='0'>"
		  .Write "                                  <tr>"
		  .Write "                                    <td><img src='../Images/Folder/Node.gif' width='16' height='22'><img src='../Images/Folder/folderclosed.gif' align=""absmiddle""></td>"
		  .Write "                                    <td style='Cursor:default;' onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><Span onClick=""javascript:SetEnabledStatus(true);SelectObjItem(this,'图片管理中心 >> <font color=red>关键字管理</font>','PictureKeyWordPage','Picture_KeyWordlist.asp');"">关键字管理</Span></td>"
		  .Write "                                 </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(2, "KMP20002") Then
		   .Write "                            <tr Disabled>"
		   .Write "                              <td> <table height='19' border='0' cellpadding='0' cellspacing='0'>"
		   .Write "                                  <tr>"
		   .Write "                                    <td><img src='../Images/Folder/Node.gif' width='16' height='22'><img src='../Images/Folder/folderclosed.gif' align=""absmiddle""></td>"
		   .Write "                                    <td style='Cursor:default;' onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><Span>来源管理</span></td>"
		   .Write "                                  </tr>"
		   .Write "                               </table></td>"
		   .Write "                            </tr>"
		Else
		   .Write "                            <tr>"
		   .Write "                              <td> <table height='19' border='0' cellpadding='0' cellspacing='0'>"
		   .Write "                                  <tr>"
		   .Write "                                    <td><img src='../Images/Folder/Node.gif' width='16' height='22'><img src='../Images/Folder/folderclosed.gif' align=""absmiddle""></td>"
		   .Write "                                    <td style='Cursor:default;' onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><Span onClick=""javascript:SetEnabledStatus(true);SelectObjItem(this,'图片管理中心 >> <font color=red>来源管理</font>','PictureOriginPage','Picture_OriginList.asp');"">来源管理</span></td>"
		   .Write "                                  </tr>"
		   .Write "                               </table></td>"
		   .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(2, "KMP20003") Then
		  .Write "                            <tr Disabled>"
		  .Write "                              <td> <table border='0' cellpadding='0' cellspacing='0'>"
		  .Write "                                 <tr>"
		  .Write "                                    <td><img src='../Images/Folder/lastnode.gif' width='16' height='22'><img src='../Images/Folder/folderclosed.gif' align=""absmiddle""></td>"
		  .Write "                                    <td style='Cursor:default;' onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><Span>作者管理</span></td>"
		  .Write "                                  </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		Else
		  .Write "                            <tr>"
		  .Write "                              <td> <table border='0' cellpadding='0' cellspacing='0'>"
		  .Write "                                 <tr>"
		  .Write "                                    <td><img src='../Images/Folder/lastnode.gif' width='16' height='22'><img src='../Images/Folder/folderclosed.gif' align=""absmiddle""></td>"
		  .Write "                                    <td style='Cursor:default;' onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><Span onClick=""javascript:SetEnabledStatus(true);SelectObjItem(this,'图片管理中心 >> <font color=red>作者管理</font>','PictureAUTHORPAGE','Picture_AuthorList.asp');"">作者管理</span></td>"
		  .Write "                                  </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		End If
		'IF Not KSCMS.ReturnPowerResult(2,"KMP20004") Then
		'  .Write "                            <tr Disabled>"
		'  .Write "                              <td> <table border='0' cellpadding='0' cellspacing='0'>"
		'  .Write "                                  <tr>"
		'  .Write "                                    <td><img src='../Images/Folder/lastnode.gif' width='16' height='22'><img src='../Images/Folder/folderclosed.gif' align=""absmiddle""></td>"
		'  .Write "                                   <td style='Cursor:default;' onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><Span>责任编辑管理</span></td>"
		'  .Write "                                  </tr>"
		'  .Write "                                </table></td>"
		'  .Write "                            </tr>"
		'Else
		'  .Write "                            <tr>"
		'  .Write "                              <td> <table border='0' cellpadding='0' cellspacing='0'>"
		'  .Write "                                  <tr>"
		'  .Write "                                    <td><img src='../Images/Folder/lastnode.gif' width='16' height='22'><img src='../Images/Folder/folderclosed.gif' align=""absmiddle""></td>"
		'  .Write "                                   <td style='Cursor:default;' onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><Span onClick=""javascript:SetEnabledStatus(true);SelectObjItem(this,'图片管理中心 >> <font color=red>责任编辑管理</font>','EDITORPAGE','Picture_EditorList.asp');"">责任编辑管理</span></td>"
		'  .Write "                                  </tr>"
		'  .Write "                                </table></td>"
		'  .Write "                            </tr>"
		'End IF
		.Write "                          </table></td>"
		.Write "                      </tr>"
		.Write "                    </table>"
							
		.Write "                  </DIV>"
		.Write "</body>"
		.Write "</html>"
		End With
		End Sub
End Class
%>