大庆采油六厂采油工艺研究所 王兵 王波

常常逛WWW的人,一定对许多起始页上的计数器感兴趣。每当你光临某个站点的起始页时,它的计数器就很亲切地告诉你,从某年某月某日开始,你是第几位光临的人。你可能也想在自己的HomePage内做计数器,有很多方法来实现此功能, 我这里给大家一个用Foxweb实现的CGI计数器。

1.首先用Visual FoxPro写一个CGI程序qywjs.prg,如下:

*qywjs.prg  计数器CGI程序

PROCEDURE qywjs

clear

http://www.gaodaima.com/64812.html如何制作java页面计数器_java

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。

欢迎大家阅读《如何制作Java页面计数器_java》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

微信 赏一包辣条吧~

支付宝 赏一听可乐吧~

用java的io做一个代码计数器,如何制作Java页面计数器_java相关推荐

  1. 用java的io做一个代码计数器_Java中的程序计数器是什么

    Java中的程序计数器是什么 程序计数器是当前线程正在执行的字节码的地址.程序计数器是线程隔离的,每一个线程在工作的时候都有一个独立的计数器. JAVA虚拟机管理的内存区域图 1.什么是程序计数器? ...

  2. java中用swing做一个windows计算器

    java中用swing做一个windows计算器 主函数 普通计数器 科学计算器 注意: 前言: 来看这篇教程估计都是java课程设计吧,现在已经没有公司很少使用swing组件了,java主要还是开发 ...

  3. 使用socket.io做一个简单的WEB聊天室

    使用socket.io做一个简单的WEB聊天室(可消息私发) 1. 创建一个空的工程目录 空的目录命名为chat-web 2. 创建package.json 使用命令:npm init,会引导你设置p ...

  4. 前端的小玩意(9.5)——做一个仿360工具箱的web页面(完结篇,可以跑起来的工具箱)

    前端的小玩意(9.1)--做一个仿360工具箱的web页面(Tab按钮切换) http://blog.csdn.net/qq20004604/article/details/52216203 前端的小 ...

  5. 现学现卖做一个炫酷的动态背景页面

    很喜欢酷炫的页面,自从看了抖音的主页之后(如下)(链接),就决定要也做一个牛逼的动态背景页面 对...背景是视频,而且还有音效,太牛逼了 然后决定自己做一个,废话不说,先弄代码: 这里为了设计简便,用 ...

  6. 前端的小玩意(9.3)——做一个仿360工具箱的web页面(我的工具里的模板和样式)

    前端的小玩意(9.1)--做一个仿360工具箱的web页面(Tab按钮切换) http://blog.csdn.net/qq20004604/article/details/52216203 前端的小 ...

  7. 阿里《Java手册》做一个有技术情怀的人

    导读 最近重温了阿里的<码出高效Java开发手册>,感觉最后一页"聊聊成长"这一小块的内容写的很棒,特意把它复制出来,送给每一个技术人,愿你做一个有技术情怀的人. 正文 ...

  8. 使用ue4做一个可以显示任意数字变化的计数器方法

    使用ue4做一个可以显示任意数字变化过程的计数器 功能描述: 该功能可以任意输入一个数值然后通过UI绑定数值的方式来\显示数值变化的过程,例如可以显示从0变到100 或者从100变到0,同时还支持调节 ...

  9. java机器人_使用java+酷Q做一个QQ机器人

    背景:深夜睡觉,单身狗准备来一发时,却发现找不到自己喜欢的资源.突然想象着如果能发给我亲爱的小冰(qq机器人)一个电影名称就能给我对应的资源那该多好啊~ ^-^ 需要组件: 1:java(jdk8+) ...

最新文章

  1. 函数空间中的最佳逼近
  2. 获取WPF的DataGrid控件中,是否存在没有通过错误验证的Cell
  3. pymssql mysql_Python利用pymssql访问mysql数据库
  4. 为啥学java要看那么多东西_编程语言那么多,为啥学Java的人那么多?
  5. ios - 高效,准确的网络检测
  6. mysql 事务 异常_mysql事务级别以及相应的异常现象
  7. gpu跑普通python程序_普通电脑PC怎样跑TensorFlow的GPU模式
  8. python能做什么工作-学python后能找什么工作?Python是什么?
  9. Java软件开发中,常用的工具有哪些?
  10. 基于BERT进行商品标题实体识别,很详细~
  11. 实现一个在线抽奖系统,就算是个小白看了也能做出来(附源码)
  12. python 删除word 某一章节_聊聊python 办公自动化之 Word(中)
  13. WFU校赛题解 B、C、F
  14. 基于禁忌搜索优化的VRP问题求解matlab仿真
  15. 数据结构C++实现(顺序栈) 青岛大学王卓老师
  16. 超级搜索everything项目
  17. UDP 不阻塞的原因
  18. ddt数据的处理——@data(),@unpack
  19. 对接企业微信上架第三方应用_JAVA
  20. 上海亚商投顾:沪指失守3100点 教育板块逆势大涨

热门文章

  1. Multimap的遍历和删除(很重要)
  2. javascript中Math.random()产生随机数总结
  3. Atitit 热烈庆祝读经器项目圆满完成
  4. win7卸载打印机驱动
  5. 整理出一个比较实用的SqlHelper类 满足大多数情况的使用
  6. .NET Remoting Basic(6)-配置文件
  7. UA MATH564 概率分布1 二项分布上
  8. bochs调试linux内核学习4 - bochs配置文件的$BXSHARE变量、bochs的System BIOS must end at 0xfffff错误、运行内核0.00版本
  9. linux 内核探测kprobe 初步了解
  10. win32汇编处理字符消息和给常量区标号赋值