news.epl

来自「嵌入式WEB」· EPL 代码 · 共 36 行

EPL
36
字号
<HTML>[!  use lib "/usr/local/apache/lib-perl";  use News;!][- @stories = News::get_stories() -]<HEAD>  <TITLE>What's New</TITLE></HEAD><BODY BGCOLOR="white"><H2>What's New</H2><P>Here's the latest news of all that's happening around here.  Be sure to check back often to keep up with all the changes!</P><HR><UL>  <LI>    [- ( $story, $headline, $date ) = @{ $stories[$row] } if $stories[$row] -]    <A HREF="article.epl?story=[+ $story +]">[+ $headline +]</A>    <I>[+ $date +]</I>  </LI></UL>  [$ if ( !@stories ) $]  <P>Sorry, there aren't any articles available now. Please check    back later!</P>[$ endif $]</BODY></HTML>

⌨️ 快捷键说明

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