Java頁面計數(shù)器

2019-11-18 14:16:17

字體：大中小

供稿：網(wǎng)友

　　大慶采油六廠采油工藝研究所
王兵王波
---- 經(jīng)常逛WWW的人，一定對許多起始頁上的計數(shù)器感愛好。每當(dāng)你光臨某個站點的起始頁時，它的計數(shù)器就很親切地告訴你，從某年某月某日開始，你是第幾位光臨的人。你可能也想在自己的HomePage內(nèi)做計數(shù)器，有很多方法來實現(xiàn)此功能, 我這里給大家一個用FoxWeb實現(xiàn)的CGI計數(shù)器。

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

*qywjs.prg 計數(shù)器CGI程序
PROCEDURE qywjs
clear
km="h:wwwqywjsqywjs.dbf"
&&存計數(shù)器計數(shù)值庫
use &km
repl js with js+1
&&更新計數(shù)值
MSTRING=str(js,6)+CHR(13)+CHR(10)
&&將數(shù)據(jù)輸出存入變量
use
MSTRING="CONTENT-TYPE:TEXT/plain"+CHR(13)+CHR(10)
+CHR(13)+CHR(10)+MSTRING
*CONTENT-TYPE:TEXT/plain
是FoxWeb的CGI程序輸出數(shù)據(jù)第一行格式
Html_OUT=MERGETXT(MSTRING)
&&將數(shù)據(jù)輸出，既通過WWW服務(wù)器將數(shù)據(jù)輸出
RETURN

---- 注：qywjs.dbf數(shù)據(jù)庫只有一個字段，字段名：js；類型：數(shù)值型；長度：6 。

---- 2.在起始頁上，我們只要附上一個javaApplet就可以取得目前計數(shù)器的值，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);
/*設(shè)置顯示字體及大小*/
String count_str; /*存計數(shù)器的值*/
public void init() /*初始*/
{
try
{
URL bookURL=new URL
("http://10.65.76.64/scripts/foxweb.exe/qywjs
@h:/www/qywjs/qywjs.PRG"); /*調(diào)入CGI程序*/
DataInputStream book_is;
book_is=new DataInputStream(bookURL.openStream());
count_str=book_is.readLine(); /*讀入計數(shù)值*/
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上調(diào)試通過，開發(fā)環(huán)境JAVACAFE ver:1.5。

上一篇：Java應(yīng)用技巧－Java中的發(fā)聲提示

下一篇：Java異常學(xué)習(xí)心得