article_left.asp

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

		.Write "                                            篇</td>"
		.Write "                                        </tr>"
		.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='Article_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='Article_UserArticleMain.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>"
												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='Article_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='Article_UserArticleMain.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 "                      <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 "                      <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>"
		
												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(1, "KMA20001") 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>','KeyWordPage','Article_KeyWordlist.asp');"">关键字管理</Span></td>"
		  .Write "                                 </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(1, "KMA20002") 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>','OriginPage','Article_OriginList.asp');"">来源管理</span></td>"
		   .Write "                                  </tr>"
		   .Write "                               </table></td>"
		   .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(1, "KMA20003") Then
		  .Write "                            <tr Disabled>"
		  .Write "                              <td> <table 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 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>','AUTHORPAGE','Article_AuthorList.asp');"">作者管理</span></td>"
		  .Write "                                  </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(1, "KMA20004") 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','Article_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
%>