ただそれだけの機能です。
ＣＯＢＯＬでアクセスカウンター編
|
アクセスカウンターです。この画面で更新を押すと下の画面になります。 ただそれだけの機能です。 |
|
| 以下ＨＴＭＬのソースです。 TinyＣＯＢＯＬのモジュール（cgi01）をexec cmdで呼び出すだけです。 |
| <HTML> <HEAD><TITLE>ＣＯＢＯＬ カウンター</TITLE></HEAD> <BODY> <H1>カウンター</H1> あなたで<!--#exec cmd="../cgi-bin/cgi01"-->人目です。<br> </BODY> </HTML> |
| 以下 アクセスカウンターのＣＯＢＯＬソースです。 count.datというｉｎｄｅｘファイル（キーは”1”固定）に更新をかけているだけです。 ＨＴＭＬにはＤＩＳＰＬＡＹ命令で返しております。 とりあえずのＳＳＩお試し版なので ファイルロックは考慮しておりません。 |
IDENTIFICATION DIVISION.
PROGRAM-ID. CGI01.
DATE-WRITTEN. 01-10-27.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT TEST01IN ASSIGN TO "../cgi-bin/count.dat"
ORGANIZATION INDEXED
ACCESS MODE RANDOM
RECORD KEY REC-A-KEY
FILE STATUS FS.
DATA DIVISION.
FILE SECTION.
FD TEST01IN
LABEL RECORD STANDARD.
01 REC-A.
03 REC-A-KEY PIC X(01).
03 REC-A-CNT PIC 9(05).
WORKING-STORAGE SECTION.
01 FS PIC 9(2) VALUE ZERO.
01 WK-DSP PIC ZZZZ9.
PROCEDURE DIVISION.
******************************************************************
*
******************************************************************
A000-MAIN.
PERFORM X010-INIT.
PERFORM A100-MAIN.
PERFORM X090-END.
STOP RUN.
******************************************************************
*
******************************************************************
A100-MAIN SECTION.
A100-000.
MOVE '1' TO REC-A-KEY.
READ TEST01IN INVALID
MOVE 1 TO REC-A-CNT
WRITE REC-A
GO TO A100-999.
ADD 1 TO REC-A-CNT.
REWRITE REC-A.
MOVE REC-A-CNT TO WK-DSP.
DISPLAY WK-DSP.
A100-999.
EXIT.
******************************************************************
*
******************************************************************
X010-INIT SECTION.
X010-000.
OPEN I-O TEST01IN.
X010-999.
EXIT.
******************************************************************
*
******************************************************************
X090-END SECTION.
X090-000.
CLOSE TEST01IN.
X090-999.
EXIT.
|
