#!/usr/bin/scriba
'ファイルを開く
open "acdata.txt" for random as 1
'ロック
LOCK #1,write
'変数countに読み込み
line input #1, count
count=count+1
'ファイルの現在位置
SEEK #1,0
'書き込み
print #1,count
'ロック解除
LOCK #1,release
close 1
'表示部分です
print "Content-Type: text/html; charset=euc-jp\n\n"
print "<html><body>"
print count
print "</body></html>"
|