猫
1999/11/24(水) 03:12:11
*.html
-------------------------------------------
<FORM METHOD="POST" ACTION="./location.cgi" TARGET="_self">
<SELECT NAME="navi">
<OPTION VALUE="
http://www.goo.ne.jp/">goo
<OPTION VALUE="
http://www.yahoo.co.jp/">yahoo
<OPTION VALUE="
http://www.excite.co.jp/">excite
<OPTION VALUE="
http://japan.infoseek.com/">infoseek
</SELECT><INPUT TYPE="submit" VALUE="移動">
</FORM>
-------------------------------------------
フレームを指定したい場合はFORMタグのTARGETを表示したいフレームの名前にする。
location.cgi
-------------------------------------------
#!/usr/local/bin/perl
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
($name,$url) = split(/=/,$buffer);
$url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print "Location: $url\n\n";
-------------------------------------------
こんなかんじでいかがですか？
＃「Javaを使わず～」のJavaをJavaScriptのつもりで言ってるなら止めて欲しいです。