用文本文件实现的动态实时发布新闻的程序

动态实时发布新闻的程序，可以根据发布时间，自动地排列显示顺序。新闻文件为存储在指定目录的文本文件组成，当有新闻的时候，程序会自动地将其显示出来，并且排列在页面的最开始部分。
<html>
<head>
<title>News</title>
</head>
<body bfcolor="#ffffff">
<h1>News</h1>
<div aligh="center">
<table border="0" cellspacing="5" cellpadding="10" width="90%" bgcolor="#e0e0e0">

<?php

include('locationfilename.php');

function createur1($text){
  //新闻的文本文件中这样插入你的链接
  //${http://mysite.ch}
  //或是${http://mysite.ch|My homepage in}
  //开始处理文本文件部分
    $s=$text;
    $a=strstr($s,'${');
    if ($a){
      $b=strstr($a,'}');
      if ($b){
        $la=strlen($a); $ls=strlen($s);
        $s=substr($s,0,$ls-$la);
        $a=substr($a,2);
        $lb=strlen($b); $la=strlen($a);
        $a=substr($a,0,$la-$lb); $b=substr($b,1);
        $ta=strstr($a,"|");
        if($ta){
          $la=strlen($a); $lt=strlen($ta);
          $linktext=substr($a,$la-$lt+1);
          $a=substr($a,0,$la-$lt);
        }
       else{
         $linktext=$a;
       }
      $s=$s."<a href="".$a."">".$linktext."</a>".$b;
      }
    }

return($s);
  }

//在这里修改你的新闻文件存放目录
  //切记，新闻文件必须是文本文件
  $newspath="/home/htdocs/test/new/";

//设置数组
  $newsfile=array();

//设置目录把柄
  $hd=dir($newspath);

//获取全部文件，并将其存放在数组中
  while($filename=$hd->read() ){
    $s=strtolower($filename);
    if (strstr($s,".txt")){
      //检测最新修改日期
      $lastchanged=filemtime($newspath.$filename);
      $newsfile[$filename]=$lastchanged;
    }
  }

//文件排序
  arsort($newsfile);
  //输出文件
  for(reset($newsfile);  $key=key($newsfile);  next($newsfile)){
    $fa=file($newspath.$key);
    $n=count($fa);
    print "<tr><td>n";
    print "<b>".date("d.m.Y - H:i:s",$newsfile[$key])."</b><br>n";
    for($i=0; $i<$n; $i=$i+1){
      $s=chop($fa[$i]);
      $s=htmlspecialchars($s);
      $s=createur1($s);
      print $s."<br>n";
    }
    print "</td></tr>";
  }
  $hd->close();

?>
</body>
</html>

赞 (0)

相关推荐

  • 用文本文件实现的动态实时发布新闻的程序

    动态实时发布新闻的程序,可以根据发布时间,自动地排列显示顺序.新闻文件为存储在指定目录的文本文件组成,当有新闻的时候,程序会自动地将其显示出来,并且排列在页面的最开始部分. <html> <head> <title>News</title> </head> <body bfcolor="#ffffff"> <h1>News</h1> <div aligh="center&qu

  • Bat自动解压缩发布asp.net程序

    1解压缩压缩包 2替换文件 3停止服务 4重建虚拟目录 5重启服务 @echo 1.Zipexe 好压压缩程序集路径 @echo 2.zipFileName 压缩文件的路径 @echo 3.ylxt 解压缩文件的路径 @echo 3.webconstant 发布目录中不会修改的文件.和文件夹,需要和虚拟目录的目录结构保持一致 @echo 4.PubparentFolder 虚拟目录的父目录 @echo 5.PubFolderName 虚拟目录名 set Zipexe="C:\Program Fi

  • K8s部署发布Golang应用程序的实现方法

    目录 创建dockerfile 打包并且推送 创建namespace 创建deployment 创建service 创建ingress 创建hpa alertGo程序可以参考上篇文章,主要用于alertmanager实现钉钉报警 创建dockerfile FROM golang:1.14-alpine ENV GOPROXY=https://goproxy.cn WORKDIR /build COPY . . EXPOSE 8088 RUN mkdir /app RUN go mod tidy

  • 结合Python网络爬虫做一个今日新闻小程序

    核心代码 requests.get 下载html网页 bs4.BeautifulSoup 分析html内容 from requests import get from bs4 import BeautifulSoup as bs from datetime import datetime as dt def Today(style=1): date = dt.today() if style!=1: return f'{date.month}月{date.day}日' return f'{dat

  • 使用npm发布Node.JS程序包教程

    npm是Node.JS的程序包管理器.进行Node.JS开发时,经常使用它安装/卸载程序包.实际上,发布程序包的工作也是由它来完成的. 配置package.json 要打包程序,首先要配好各项设置,这些设置都由程序包根目录下的package.json指定.package.json的内容必须是严格的JSON格式,也就是说: 1.字符串要用双引号括起来,而不能用单引号: 2.属性名一定要加双引号: 3.最后一个属性后千万不要多加一个逗号. 配置对象的属性很多,具体可以参阅这里,这里列一下常用的项目:

  • vb.net发布水晶报表程序步骤

    下面是用vs.net打包的过程,注意最后关于水晶的问题: 1.打开你的.net,用鼠标右击你的工程(解决方案),选择add new project(添加新建项目).  2.选择setup and deployment projects(安装和部署项目)的 web setup project(web安装项目).(注意setupproject的存放路径.通常默认) 3.vs的窗口会显示文件系统(you setup name).用鼠标点击左栏下的"web application folder"

  • 简单的php新闻发布系统教程

    简单的php新闻发布系统教程(第一版)第一讲:用 phpmyadmin 建立数据库首先建立一个数据库,名为 yayu .在这个数据库下建立一个数据表,名为 news .下面进入一个重点,那就是在表 news 下建立各个字段. 那么,什么叫字段呢?通俗点,就是一类事物的总称.比如说,所有的新闻发表时间用一个名词来代表(从偶的经验来看,用 phpmyadmin 建立 字段可以用中文,但从习惯来说还是用英文,没办法,计算机美国最牛嘛).偶们用" time "来表示.在字段 time 下可以有

  • PHP实现简单的新闻发布系统实例

    本文实例讲述了PHP实现简单的新闻发布系统.分享给大家供大家参考.具体如下: 本人小白,一直在公司用模板和框架写PHP,发现有时候连基本的sql语句都忘记了,所以有空想把PHP基础复习下,巩固下.分页和搜索,以及排序,还没写,后期继续更新...(代码修改:添加搜索和分页功能) articlePublish.html: <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3

  • C#处理文本文件TXT实例详解

    本文实例讲述了C#处理文本文件TXT的方法.分享给大家供大家参考.具体分析如下: 1. 如何读取文本文件内容: 这里介绍的程序中,是把读取的文本文件,用一个richTextBox组件显示出来.要读取文本文件,必须使用到"StreamReader"类,这个类是由名字空间"System.IO"中定义的.通过"StreamReader"类的"ReadLine()"方法,就可以读取打开数据流当前行 的数据了.下面代码实现的功能就是读取

  • 详解Asp.Net Core 发布和部署（ MacOS + Linux + Nginx ）

    详解Asp.Net Core 发布和部署（ MacOS + Linux + Nginx ）

    前言 在上篇文章中,主要介绍了 Dotnet Core Run 命令,这篇文章主要是讲解如何在Linux中,对 Asp.Net Core 的程序进行发布和部署. 目录 新建一个 WebApp 项目 发布到 Linux,Mac OS 使用 Nginx 进行反向代理 新建一个 WebApp 项目 在 Asp.Net Core 项目中,我们使用 dotnet new -t WebApp 命令和创建一个新的空的 Web 应用程序. 以下是我在 Mac 中的截图: 主要是用以下几个命令: mkdir He

随机推荐