down_left.asp

来自「1.支持文章」· ASP 代码 · 共 426 行 · 第 1/3 页

ASP
426 行
字号
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

down_left.asp - 源码说明

本页面展示了「1.支持文章」中的 down_left.asp 源码文件，采用 ASP 编程语言编写，共 426 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

⌨️ 快捷键说明

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