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 + -
显示快捷键?