menu.html

来自「这是一本关于delphi方面的书籍,其中有一些delphi的实例.」· HTML 代码 · 共 30 行

HTML
30
字号
<html>
<head>
<title><%= Page.Title %></title>
</head>
<body>

<h2><%= Application.Title %></h2>
 
<table cellspacing="0" cellpadding="2" border="1" bgcolor="#c0c0c0">
<tr>
<%  e = new Enumerator(Pages)
     for (; !e.atEnd(); e.moveNext())
     {
       if (e.item().Published)
       {
         if (Page.Name != e.item().Name)
           Response.Write ('<td><a href="' + e.item().HREF + '">' +
		     e.item().Title + '</a></td>')
         else
           Response.Write ('<td>' + e.item().Title + '</td>')
       }
     }
%>
</tr>
</table>

<hr> 
<h1><%= Page.Title %></h1>
<p>

⌨️ 快捷键说明

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