convention_left.asp

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

						If Not KSCMS.ReturnPowerResult(0, "KMCT10006") Then
						.Write ("<tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
						.Write (" <td 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=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
						.Write (" <td 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>','VoteList','Vote_Main.asp');"">站内调查</span></td></tr>")
						End If
						
						
					If Not KSCMS.ReturnPowerResult(0, "KMCT10007") Then
						.Write ("<tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
						.Write (" <td 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=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
						.Write (" <td 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>','disabled','Admin_WebFilesMain.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/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=""ConventionLastPic"" ParentID=""ConventionLastPic"">")
						.Write (" <td 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>','LogList','Log_Main.asp');"">后台日志</span></td></tr>")
						End If
					  
				If Not KSCMS.ReturnPowerResult(0, "KMCT10004") Then	  
				 .Write "         <tr Disabled AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">"
				 .Write "           <td width=""32%"" 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 width=""68%""onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"">广告管理</span></td>"
				.Write "          </tr>"
			   Else
				 .Write "         <tr  AllParentID=""ConventionLastPic"" ParentID=""ConventionLastPic"">"
				 .Write "           <td width=""32%"" 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 width=""68%"" onMouseOver=""this.className='LeftMouseOver'"" onMouseOut=""this.className='LeftMouseOut'""><span style=""cursor:default"" onClick=""SelectObjItem(this,'常规管理 >> <font color=red>广告管理</font>','disabled','../Advertise/Ads_Main.asp');"">广告管理</span></td>"
				.Write "          </tr>"
			   End if
			.Write "        </table></td>"
			.Write "       </tr>"
			
			
			.Write "       <tr AllParentID=""0"" ParentID=""0"" ClassID=""KS_ConventionManage"">"
			.Write "                        <td height=""25"">"
			.Write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
			.Write "                            <tr>"
										  
			.Write "            <td width=""19%"" nowrap><img onClick=""ClickImgEvent(this,'ConventionData');"" name=""DataImg"" src=""../Images/Folder/EndOpen.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['DataImg'].src='../Images/Folder/EndOpen.gif';ShowChildClass('ConventionData');"">数据库管理</span></td>"
			.Write "                            </tr>"
			.Write "                          </table></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=""ConventionData"" ParentID=""ConventionData"">")
						.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=""ConventionData"" ParentID=""ConventionData"">")
						.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','DB_BackUp.asp');"">备份数据库</span></td></tr>")
						End If
			
					  If Not KSCMS.ReturnPowerResult(0, "KMCT20002") Then
						.Write ("<tr Disabled AllParentID=""ConventionData"" ParentID=""ConventionData"">")
						.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=""ConventionData"" ParentID=""ConventionData"">")
						.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','DB_Restore.asp');"">恢复数据库</span></td></tr>")
						End If
						
						If Not KSCMS.ReturnPowerResult(0, "KMCT20003") Then
						.Write ("<tr Disabled AllParentID=""ConventionData"" ParentID=""ConventionData"">")
						.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=""ConventionData"" ParentID=""ConventionData"">")
						.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','DB_Compact.asp');"">压缩修复数据库</span></td></tr>")
						End If
						
			           If Not KSCMS.ReturnPowerResult(0, "KMCT20004") Then
						 .Write "         <tr  Disabled AllParentID=""ConventionData"" ParentID=""ConventionData"">"
						 .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%"">在线执行SQL语句</td>"
						.Write "          </tr>"
						.Write "        </table></td>"
						.Write "                      </tr>"
			
						Else
						 .Write "         <tr AllParentID=""ConventionData"" ParentID=""ConventionData"">"
						 .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>在线执行SQL语句</font>','Disabled','DB_ExecSQL.asp');"">在线执行SQL语句</span></td></tr>")
						.Write "          </tr>"
						.Write "        </table></td>"
						.Write "                      </tr>"
						End If
						
			
			.Write "                    </table>"
			.Write "                  </DIV>"
			.Write "</body>"
			.Write "</html>"
			End With
			
			End Sub
End Class
%>