大慶采油六廠采油工藝研究所 王兵 王波

經常逛WWW的人，一定對許多起始頁上的計數器感愛好。每當你光臨某個站點的起始頁時，它的計數器就很親切地告訴你，從某年某月某日開始，你是第幾位光臨的人。你可能也想在自己的HomePage內做計數器，有很多方法來實現此功能, 我這里給大家一個用FoxWeb實現的CGI計數器。

1.首先用Visual FoXPRo寫一個CGI程序qywjs.prg，如下：


  *qywjs.prg  計數器CGI程序
  PROCEDURE qywjs
  clear
  km="h:/www/qywjs/qywjs.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。