📄 cgidate.dpr
字号:
program CgiDate;
{$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 ('<h2>');
writeln (FormatDateTime(
'"Today is " dddd, mmmm d, yyyy, ' +
'"<br> and the time is" hh:mm AM/PM',
Now));
writeln ('</h2>');
writeln ('<hr><i>Page generated by CgiDate.exe</i>');
writeln ('</body></html>');
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -