📄 cgidate2.dpr

📁 Delphi高级开发指南是开发程序的好帮手

💻 DPR

字号:

program CgiDate2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  writeln ('CONTENT-TYPE: TEXT/HTML');
  writeln;
  writeln ('<HTML><HEAD>');
  writeln ('<TITLE>Time at this site</TITLE>');
  writeln ('</HEAD><BODY>');
  writeln ('<H1>Time at this site</H1>');
  writeln ('<HR>');
  writeln ('<H3>');
  if ParamCount > 0 then
  begin
    if ParamStr (1) = 'date' then
      writeln (FormatDateTime(
        '"Today is " dddd, mmmm d, yyyy',
        Now))
    else if ParamStr (1) = 'time' then
      writeln (FormatDateTime(
        '"The time is" hh:mm:ss AM/PM',
        Now))
    else if ParamStr (1) = 'both' then
      writeln (FormatDateTime(
        '"Today is " dddd, mmmm d, yyyy,' +
          '"<p> and the time is" hh:mm:ss AM/PM',
        Now))
    else
      writeln ('Error. Invalid parameter: ' +
        ParamStr (1) + '.')
  end
  else
    writeln ('Error. Missing parameter.');
  writeln ('</H3>');
  writeln ('<HR>');
  writeln ('<I>Page generated by CgiDate.exe </I>');
  writeln ('</BODY></HTML>');
end.

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -