⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 down_left.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
		  .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(3, "KMD20000") 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>','SetDownParam','Down_Param.asp');"">下载参数设置</Span></td>"
		  .Write "                                 </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(3, "KMD20004") 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>','FarServerPage','Down_ServerMain.asp');"">镜像服务器管理</Span></td>"
		  .Write "                                 </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(3, "KMD20001") 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>','DownKeyWordPage','Down_KeyWordlist.asp');"">关键字管理</Span></td>"
		  .Write "                                 </tr>"
		  .Write "                                </table></td>"
		  .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(3, "KMD20002") 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>','DownOriginPage','Down_OriginList.asp');"">来源管理</span></td>"
		   .Write "                                  </tr>"
		   .Write "                               </table></td>"
		   .Write "                            </tr>"
		End If
		If Not KSCMS.ReturnPowerResult(3, "KMD20003") 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>','DownAUTHORPAGE','Down_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','Down_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
%>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -