テーブルを使っていますのですべての検索を終了しない送出しないため少し遅くなります。
何も条件はつけていませんが、INDEXがかかっています。 ARAGO for Windowsで実行するより高速に動作します。 条件検索をしてもスピードは変わりません。
ARAGO HOME に戻る
このプログラムの内容です。
use schedule &&データベースをオープン
set cent on &&年を4桁にする
output('Content-type text/html ') &&これを出さないとNetscapeはダウンロードになる
*Front Pageは親切にNetscape用の上の行を消してしまう
head2='<html>'
output(head2,1) &&here we need carriage return
output("",1) &&here we need brank line for IIS
head3='<head><title>title is a
title</title></head>'
output(head3)
output('<body>')
begweek=str(month(datefield))+"月"+str(day(datefield))+"日"
theday='<p>今日は'+begweek+'の週です</p>'
output(theday,1)
tablehead='<table border>'
output(tablehead) &&begin table with border
* && if you dont need border just delete border.
con=contact
counter=0
do while .not. eof()
counter =counter + 1 &&何件かを取得
hello="hello"
eachdate='<tr><td >' + dtoc(datefield)
event='<td>'+eventfield +hello +' </tr>'
section='<td>'+sectionfie
output(eachdate)
outeach=section+event
output(outeach,1)
skip
enddo
output('</table>') &&テーブルの終わり
countern=str(counter) &&数値型を文字型に変換
counternum='<p>'+ countern +'件のデータです'+'</p>'
output(counternum)
output("<p>動きましたか</p>")
ENDHTML="</body></html>"
OUTPUT(ENDHTML)