大庆采油六厂采油工艺研究所
王兵 王波
---- 常常逛www的人，一定对许多起始页上的计数器感兴趣。每当你光临某个站点的起始页时，它的计数器就很亲切地告诉你，从某年某月某日开始，你是第几位光临的人。你可能也想在自己的homepage内做计数器，有很多方法来实现此功能, 我这里给大家一个用foxweb实现的cgi计数器。

---- 1.首先用visual foxpro写一个cgi程序qywjs.prg，如下：

*qywjs.prg 计数器cgi程序
procedure qywjs
clear
km="h:wwwqywjsqywjs.dbf"
&&存计数器计数值库
use &km
repl js with js+1
&&更新计数值
mstring=str(js,6)+chr(13)+chr(10)
&&将数据输出存入变量
use
mstring="content-type:text/plain"+chr(13)+chr(10)
+chr(13)+chr(10)+mstring
*content-type:text/plain
是foxweb的cgi程序输出数据第一行格式
html_out=mergetxt(mstring)
&&将数据输出，既通过www服务器将数据输出
return

---- 注：qywjs.dbf数据库只有一个字段，字段名：js；类型：数值型；长度：6 。

---- 2.在起始页上，我们只要附上一个javaapplet就可以取得目前计数器的值，javaapplet程序如下：

/*qywjs.java*/
import java.awt.*;
import java.net.*;
import java.io.*;
public class qywjs extends java.applet.applet
{
font fn=new font("timesroman",font.bold,14);
/*设置显示字体及大小*/
string count_str; /*存计数器的值*/
public void init() /*初始*/
{
try
{
url bookurl=new url
("http://10.65.76.64/scripts/foxweb.exe/qywjs
@h:/www/qywjs/qywjs.prg"); /*调入cgi程序*/
datainputstream book_is;
book_is=new datainputstream(bookurl.openstream());
count_str=book_is.readline(); /*读入计数值*/
book_is.close();
repaint();
}
catch (malformedurlexception mfurle)
{system.out.println("malformedurlexception:"+mfurle);}
catch (ioexception ioe)
{system.out.println("ioexception:"+ioe);}
}

public void paint(graphics g) /*显示*/
{g.setfont(fn);
g.setcolor(color.blue);
g.drawstring("从1998年03月10日开始，
你是第 "+count_str+" 位用户光临!",16,16);
}
}

---- 3.最后在自己的起始页html文件中加入如下程序段就行了。

< !对外首页 1998/3/2 >
< html >
< head >
。。。。。。
。。。。。。
< body >
。。。。。。
< applet code="qywjs.class"
width=200 height=40 >< /applet >
。。。。。。
< /body >
。。。。。。
。。。。。。
< /html >

---- 以上程序在hp netserver 5/100lh上调试通过，开发环境javacafe ver:1.5。