*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("从2007年06月05日开始, 你是第 "+count_str+" 位用户光临!",16,16); } } |
< !对外首页 2007/6/5 > < HTML > < HEAD > 。。。。。。 。。。。。。 < BODY > 。。。。。。 < APPLET CODE="qywjs.class" WIDTH=200 HEIGHT=40 >< /APPLET > 。。。。。。 < /BODY > 。。。。。。 。。。。。。 < /HTML > |