荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: icefire (as you wish), 信区: Java
标 题: JAVA编写的CGI--URL随机转移surprise.java
发信站: BBS 荔园晨风站 (Tue Dec 1 22:58:19 1998), 站内信件
/* surprise.java
* 本applet显示一个按纽，当按这个按纽时，随机转移到一个URL去
*/
import java.applet.*;
import java.awt.*;
import java.net.*;
import java.util.*;
public class surprise extends Applet {
protected int numURLs;//number of URLs in parameter
Button go;
String[] myURLs;
Random forWhere;
protected int i;
/********************************* init (Gets it started)*/
public void init(){
/* load string arrays */
myURLs = fillArray("where");
forWhere = new Random();//instance Random generator
go = new Button("Surprise!");
go.setBackground(Color.green);
this.add(go);
this.show();
}
/********************************* fill array */
public String[] fillArray(String name) {
String Raw = this.getParameter(name);//read raw parameter
StringTokenizer Rip = new StringTokenizer(Raw, ",", false);
//instance
numURLs = Rip.countTokens();//How many?
//if (name.compareTo("where")) ERROR!!!!!
String[] filler = new String[numURLs];//instance
for(i=0;i<numURLs;i++) {
try{
filler[i] = Rip.nextToken();//transfer token
} catch (NoSuchElementException e){
System.out.println(e.getMessage());
}
}
return filler;
}
/*************************************** pick random integer
*/
public int pickNumber(int arrayLen) {
Float DumbNum = new Float(arrayLen * (forWhere.nextFloat()));
//dumb floating
number
if (DumbNum.intValue() >= arrayLen) return 0;//outahere
return DumbNum.intValue();
}
/********************************************* handle events
*/
public boolean action(Event event, Object arg){
URL goThere;
if (event.target == go) {// pick a URL and go!
try {
this.getAppletContext().showDocument(goThere = new
URL(myURLs[pickNumber(numURLs)]));
return true;
}
catch (MalformedURLException err)
{
try {
this.getAppletContext().showDocument(goThere = new
URL("http://www.starnine.com/"));// oops!
return true;
}
catch (MalformedURLException errr)
{
return true;// we tried
}
}
} else {
return super.action(event, arg);
}
}
} /* EOA */
--
来去如风
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.5]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店