📄 top.html

📁 关于利用DELPHI来进行企业级方案解决的著作的附书源码
💻 HTML
字号:
<!-- 设置相对路径-->
<%
   function PathInfoToRelativePath(S)
   {
     var R = '';
     var L = S.length
     I = 0
     while (I < L)
     {
       if (S.charAt(I) == '/')
         R = R + '../'
       I++
     }
     return R
   }

   function QualifyImage(S)
   {
     if (Application.Designing)
       return Application.QualifyFileName("..\\images\\" + S);   // relative directory
     else
       return PathInfoToRelativePath(Request.PathInfo) + '../images/' + S;  // virtual directory
   }
%>

<HTML>
<HEAD><style>
<!--
A.custom {
    color: #FFFFFF;
	text-decoration: none; 
}
A.custom:hover {
	color:#0000FF; 
}
.submitButton { 
  color: #FFFFFF;  font-family: Arial, Helvetica, sans-serif; 
  font-size: 9pt; 
  font-style: bold; 
  background-color: #0099FF;
}
-->
</style>


</HEAD>


<BODY bgcolor="#FFFFFF" background="<%=QualifyImage("bk.JPG") %>">
<img src="<%=QualifyImage("Tile1.JPG") %>">

<P>
<table width="95%" bgcolor="#00FFFF">
<tr>
  <td>
   <font size="+1">
    <font color="#000000">
    <% if (Application.Title  != '') { %>
    <%= Application.Title %><% } %>
    -> <%= Page.Title %>
    </font>
   </font>
  </td>
  <td align="right">
    <font color="#000000">  <i>
    <% if (EndUser.Logout != null) {
         if (EndUser.DisplayName != '') { %>
         <%=EndUser.AdaptName.value%>你好！你的权限是 <%=EndUser.AdaptGrp.value%>
    <%   } %>  
    <%   if (EndUser.Logout.Enabled) { %>  
    </i> 
    </font> 
<font  size="+1"> 
- [<A HREF="<%=EndUser.Logout.AsHREF%>"></A>                            
                           
</font> <A HREF="<%=EndUser.Logout.AsHREF%>">                            
    <font size="+1">                            
    登出 </font></A><font  size="+1">] <%   } %>                            
    <%   if (EndUser.LoginForm.Enabled) { %>                            
    [<A HREF="<%=EndUser.LoginForm.AsHREF%>"></A>                            
                           
</font> <A HREF="<%=EndUser.LoginForm.AsHREF%>">                            
    <font size="+1">                            
    登录 </font></A><font  size="+1">] <%   } %>           
    <% } %>                            
 &nbsp;&nbsp;&nbsp;&nbsp;                           
                          
    </font>                           
  </td>                           
</tr>                           
</table>                           
                           
<table valign="top" height="18" width="95%" bgcolor="#0099FF">                           
<tr>                           
  <td>                           
    <font color="#FFFFFF"  size="2">                           
<%                           
  e = new Enumerator(Pages)                           
  s = ''                           
  c = 0                           
  for (; !e.atEnd(); e.moveNext())                           
  {                           
   if (e.item().Published)
   {                           
    // Check if the user has rights to view this page                           
    if (e.item().CanView)
     {                           
      if (Page.Name != e.item().Name)                           
        s = s + '|<A class="custom" href="' + e.item().HREF + '">' + e.item().Title + '</A>'                           
      else                           
        s = s + '|' + e.item().Title                            
      c++      
    }                           
   }                           
  }  
  s = s + '|'                           
  if (c>1) Response.Write(s)                           
%>                           
    </font>                           
  </td>                           
</tr>                           
</table>                           
                           
<P>
⌨️ 快捷键说明

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