どこから来たのcgi 最終分

• Jun182007
• Author: さんきゅう
• Categories: openSUSE
• Tags: ActivePerl, openSUSE

• Next Page: MySQLクラッシュ！
• Prev Page: どこの国から来たのcgiにポップアップ

試行錯誤を重ねましたが最終分です。
GoogleMapsファイル名
　　　都道府県は[データ表記].html
　　　国別は[国コード].html
　　　国別.gif　/cgi-bin/surfpoint/images/
public_html
        +----  GoogleMaps  /   JP.html ~~~~
        +----  cgi-bin / surfpoint / welcome.cgi(705)
                                                weicomeworld.cgi(705)
                                                welcome.tmpl(604)
                                                weicomeworld.tmpl(604)
                                                welcome.css(604) 
                                                images /  JP.gif ~~~      

変更箇所　必ず変更して下さい。
$user_id = "surfpoint ID";
$passwd = "surfpoint PASS";
DBI->connect('DBI:mysql:openSurfpoint:localhost', "ユーザー", "パスワード");
/cgi-bin/surfpoint/welcome.cgi 

#!/usr/bin/perl -w

use DBI;
use HTML::Template;
use Frontier::Client;
#use CAR_TIME;

$user_id  = "ユーザーID";
$passwd   = "パスワード";
$ipadr    = $ENV{'REMOTE_ADDR'};

# 都道府県コードの取得
$server_url = "http://open.surfpoint.jp/webapi/enterprise.api";
$server = Frontier::Client->new( url=>$server_url );
$result = $server->call( 'openSurfpoint.GetPref', $user_id, $passwd, $ipadr );
$pref = $result;

if( $pref eq "-" ) { $pref = -1 };
if( $pref < -1 )   { $pref = -1 };
if( $pref > 47 )   { $pref = -1 };

# アクセス数をカウント
&IncrementAccessPref( $pref );
# トータルアクセス数を取得
$total_count = &GetTotalCount();

%h_pref_id = (
 1=>0,
 2=>0,
 3=>0,
 4=>0,
 5=>0,
 6=>0,
 7=>0,
 8=>0,
 9=>0,
 10=>0,
);
%h_count = (
 1=>0,
 2=>0,
 3=>0,
 4=>0,
 5=>0,
 6=>0,
 7=>0,
 8=>0,
 9=>0,
 10=>0,
);
&GetPrefRank( \%h_pref_id, \%h_count );
# ＨＴＭＬ出力
$tmpfile = "welcome.tmpl";
$tmphtml = HTML::Template->new( filename => $tmpfile );
$tmphtml->param(
 PREFNAME => &GetPrefectureName( $pref ),
 TOTALCOUNT => $total_count,
 NAME1 => &GetPrefectureName( $h_pref_id{1} ),
 NAME2 => &GetPrefectureName( $h_pref_id{2} ),
 NAME3 => &GetPrefectureName( $h_pref_id{3} ),
 NAME4 => &GetPrefectureName( $h_pref_id{4} ),
 NAME5 => &GetPrefectureName( $h_pref_id{5} ),
 NAME6 => &GetPrefectureName( $h_pref_id{6} ),
 NAME7 => &GetPrefectureName( $h_pref_id{7} ),
 NAME8 => &GetPrefectureName( $h_pref_id{8} ),
 NAME9 => &GetPrefectureName( $h_pref_id{9} ),
 NAME10 => &GetPrefectureName( $h_pref_id{10} ),
 ACCESS1 => $h_count{1},
 ACCESS2 => $h_count{2},
 ACCESS3 => $h_count{3},
 ACCESS4 => $h_count{4},
 ACCESS5 => $h_count{5},
 ACCESS6 => $h_count{6},
 ACCESS7 => $h_count{7},
 ACCESS8 => $h_count{8},
 ACCESS9 => $h_count{9},
 ACCESS10 => $h_count{10},
  C_ID_1 => $h_pref_id{1},
  C_ID_2 => $h_pref_id{2},
  C_ID_3 => $h_pref_id{3},
  C_ID_4 => $h_pref_id{4},
  C_ID_5 => $h_pref_id{5},
  C_ID_6 => $h_pref_id{6},
  C_ID_7 => $h_pref_id{7},
  C_ID_8 => $h_pref_id{8},
  C_ID_9 => $h_pref_id{9},
  C_ID_10 => $h_pref_id{10},
);
print "Content-Type: text/html; charset=utf-8\n\n";
print $tmphtml->output;
exit(0);
#==============================================================================
#機能：カウント数をインクリメントする。
#==============================================================================
sub IncrementAccessPref {
 my $pref_id  = $_[0];
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:openSurfpoint:localhost',"db名", "パスワード");
 my $hSt      = undef;
 my $count    = 0;
 my $record_n = 0;
 $hSt = $hDb->prepare( "select count from access_pref where pref_id='$pref_id' and access_date='$today'" );
 $record_n = $hSt->execute;
 @record = $hSt->fetchrow;
 $count = $record[0];
 $hSt->finish;
 if( $record_n == 0 ) {
  # レコードがなかった場合、新規に作成する
  $hSt = $hDb->prepare( "insert into access_pref values( '$today', '$pref_id', 1 )" );
  $hSt->execute;
  $hSt->finish;
 } else {
  # レコードがある場合、カウントをインクリメントする
  $count++;
  $hSt = $hDb->prepare( "update access_pref set count=$count where access_date='$today' and pref_id='$pref_id'" );
  $hSt->execute;
  $hSt->finish;
 }
 $hDb->disconnect;
 }
#==============================================================================
#機能：トータルカウント数を取得する。
#==============================================================================
sub GetTotalCount {
 #my $today    = &GetDateA( 0 );
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:openSurfpoint:localhost',"db名", "パスワード");
 my $hSt      = undef;
 my $count    = undef;
 $hSt = $hDb->prepare( "select sum(count) from access_pref where access_date='$today'" );
 $hSt->execute;
 @record = $hSt->fetchrow;
 $count = $record[0];
 $hSt->finish;
 $hDb->disconnect;
 return $count;
}
#==============================================================================
#機能：
#==============================================================================
sub GetPrefRank {
 my $s_pref_id = $_[0];
 my $s_count   = $_[1];
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:openSurfpoint:localhost',"db名", "パスワード");
 my $hSt      = undef;
 $hSt = $hDb->prepare( "select pref_id, count from access_pref where access_date='$today' order by count desc" );
 $hSt->execute;
 my $index = 1;
 while( @record = $hSt->fetchrow ) {
  $$s_pref_id{$index} = $record[0];
  $$s_count{$index}   = $record[1];
  $index++;
 }
 $hSt->finish;
 $hDb->disconnect;
 }
#==============================================================================
#機能：
#==============================================================================
sub GetPrefectureName {
 %prefecture_name = (
  -1 =>"該当無",
  0 =>"不明",
  1 =>"北海道",
  2 =>"青森",
  3 =>"岩手",
  4 =>"宮城",
  5 =>"秋田",
  6 =>"山形",
  7 =>"福島",
  8 =>"茨城",
  9 =>"栃木",
  10=>"群馬",
  11=>"埼玉",
  12=>"千葉",
  13=>"東京",
  14=>"神奈川",
  15=>"新潟",
  16=>"富山",
  17=>"石川",
  18=>"福井",
  19=>"山梨",
  20=>"長野",
  21=>"岐阜",
  22=>"静岡",
  23=>"愛知",
  24=>"三重",
  25=>"滋賀",
  26=>"京都",
  27=>"大阪",
  28=>"兵庫",
  29=>"奈良",
  30=>"和歌山",
  31=>"鳥取",
  32=>"島根",
  33=>"岡山",
  34=>"広島",
  35=>"山口",
  36=>"徳島",
  37=>"香川",
  38=>"愛媛",
  39=>"高知",
  40=>"福岡",
  41=>"佐賀",
  42=>"長崎",
  43=>"熊本",
  44=>"大分",
  45=>"宮崎",
  46=>"鹿児島",
  47=>"沖縄",
 );
 my $pref = $_[0];
 return $prefecture_name{ $pref };
}
#==============================================================================
#機能：時刻をYYYY-MM-DD 00:00:00形式で取得する。
#==============================================================================
sub GetDateA {
# my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = &CAR_TIME::GetTime( $_[0] );
 my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
 $sec  = 0;
 $min  = 0;
 $hour = 0;
    $sec  = sprintf("%02d",$sec );
    $min  = sprintf("%02d",$min );
    $hour = sprintf("%02d",$hour);
    $mday = sprintf("%02d",$mday);
    $mon  = sprintf("%02d",$mon );
  return $year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec;
}
__END__

/cgi-bin/surfpoint/welcome.tmpl 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>ご訪問地区カウンター</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="generator" content="Movable Type 3.34" />
<meta name="" />
<link href="welcome.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!-- コンテナ中央揃え ここから -->
<div align="center">
<div class="welcome"><TMPL_VAR NAME=PREFNAME>からようこそ！</div>
<div class="cap01">あなたは<TMPL_VAR NAME=TOTALCOUNT>番目の訪問者です</div>
<table width="170" border="0" cellspacing="0" cellpadding="0">
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_1() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_1>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_1();">
   <TMPL_VAR NAME=NAME1></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS1></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_2() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_2>.html', 'mywindow2', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_2();">
   <TMPL_VAR NAME=NAME2></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS2></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_3() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_3>.html', 'mywindow3', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_3();">
   <TMPL_VAR NAME=NAME3></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS3></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_4() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_4>.html', 'mywindow4', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_4();">
   <TMPL_VAR NAME=NAME4></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS4></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_5() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_5>.html', 'mywindow5', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_5();">
   <TMPL_VAR NAME=NAME5></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS5></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_6() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_6>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_6();">
   <TMPL_VAR NAME=NAME6></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS6></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_7() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_7>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_7();">
   <TMPL_VAR NAME=NAME7></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS7></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_8() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_8>.html', 'mywindow8', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_8();">
   <TMPL_VAR NAME=NAME8></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS8></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_9() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_9>.html', 'mywindow9', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_9();">
   <TMPL_VAR NAME=NAME9></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS9></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_10() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_10>.html', 'mywindow10', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_10();">
   <TMPL_VAR NAME=NAME10></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS10></td>
</tr>
<td class="box01"> </td>
<td class="box01"> </td>
</tr>
</table>
</body>
</html>

/cgi-bin/surfpoint/welcome.css(welcome.tmpl,welcomeworld.tmpl共通)

/* basic elements */
html {
    margin: 0;
    /* setting border: 0 hoses ie6 win window inner well border */
    padding: 0;
}
body {
    margin: 0;
    /* setting border: 0 hoses ie5 win window inner well border */
    padding: 0;
    /*font-family: "ＭＳ ゴシック", "Osaka－等幅"; */
    font-family: Verdana, Arial, sans-serif;
    font-size: 12px;
 line-height: 16px;
}
a:link {
 text-decoration: none;
 color: #0033FF;
}
a:visited {
 text-decoration: none;
 color: #003366;
}
a:hover {
 text-decoration: underline;
 color: #6633FF;
}
a:active {
 text-decoration: none;
 color: #FFFF00;
}
/* コンテンツ */
 .welcome {
 font-size: 10px;
 font-weight:bold;
 color: #000066;
 background-color: #E9F9FE;
 width: 170px;
 background-position: center;
 margin: 5px;
 padding: 3px;
}
 .cap01 {
 font-size: 10px;
 font-weight:bold;
 color: #000066;
 background-position: center;
 margin: 5px;
}
.cap02 {
 font-size: 10px;
 font-weight:bold;
 color: #FF6600;
 background-position: center;
 margin: 5px;
}
.box01 {
 font-size: 12px;
 background-color: #FFCC99;
 padding: 3px;
 text-align: center;
}
.box02 {
 font-size: 12px;
 background-color: #FFFFDD;
 padding: 3px;
 margin: 1px;
 text-align: center;
}
th {
 font-size: 10px;
 background-color: #FFCC99;
 padding: 3px;
 width: 120px;
 text-align: center;
}

/cgi-bin/surfpoint/welcomeworld.cgi 

#!/usr/bin/perl -w
use DBI;
use HTML::Template;
use Frontier::Client;
#use CAR_TIME;

$user_id  = "ユーザーID";
$passwd   = "パスワード";
$ipadr    = $ENV{'REMOTE_ADDR'};
# 都道府県コードの取得
#$server_url = "http://open.surfpoint.jp/webapi/enterprise.api";
#$server = Frontier::Client->new( url=>$server_url );
#$result = $server->call( 'openSurfpoint.GetPref', $user_id, $passwd, $ipadr );
#$pref = $result;
# 国内判定の取得
$server_url = "http://open.surfpoint.jp/webapi/globe.api";
$server = Frontier::Client->new( url=>$server_url );
$result = $server->call( 'openSurfpoint.GetCountry', $user_id, $passwd, $ipadr );
$country = $result;
if( $country eq "-" ) { $country = -1 };
if( $country eq "--" ) { $country = -1 };
# アクセス数をカウント
&IncrementAccessCountry( $country );
# トータルアクセス数を取得
$total_count = &GetTotalCount();
%h_country_id = (
 1=>0,
 2=>0,
 3=>0,
 4=>0,
 5=>0,
 6=>0,
 7=>0,
 8=>0,
 9=>0,
 10=>0,
);
%h_count = (
 1=>0,
 2=>0,
 3=>0,
 4=>0,
 5=>0,
 6=>0,
 7=>0,
 8=>0,
 9=>0,
 10=>0,
);
&GetCountryRank( \%h_country_id, \%h_count );
# ＨＴＭＬ出力
$tmpfile = "welcomeworld.tmpl";
$tmphtml = HTML::Template->new( filename => $tmpfile );
$tmphtml->param(
 COUNTRYNAME => &GetCountryName( $country ),
 TOTALCOUNT => $total_count,
 NAME1 => &GetCountryName( $h_country_id{1} ),
 NAME2 => &GetCountryName( $h_country_id{2} ),
 NAME3 => &GetCountryName( $h_country_id{3} ),
 NAME4 => &GetCountryName( $h_country_id{4} ),
 NAME5 => &GetCountryName( $h_country_id{5} ),
 NAME6 => &GetCountryName( $h_country_id{6} ),
 NAME7 => &GetCountryName( $h_country_id{7} ),
 NAME8 => &GetCountryName( $h_country_id{8} ),
 NAME9 => &GetCountryName( $h_country_id{9} ),
 NAME10 => &GetCountryName( $h_country_id{10} ),
 ACCESS1 => $h_count{1},
 ACCESS2 => $h_count{2},
 ACCESS3 => $h_count{3},
 ACCESS4 => $h_count{4},
 ACCESS5 => $h_count{5},
 ACCESS6 => $h_count{6},
 ACCESS7 => $h_count{7},
 ACCESS8 => $h_count{8},
 ACCESS9 => $h_count{9},
 ACCESS10 => $h_count{10},
  C_ID_1 => $h_country_id{1},
  C_ID_2 => $h_country_id{2},
  C_ID_3 => $h_country_id{3},
  C_ID_4 => $h_country_id{4},
  C_ID_5 => $h_country_id{5},
  C_ID_6 => $h_country_id{6},
  C_ID_7 => $h_country_id{7},
  C_ID_8 => $h_country_id{8},
  C_ID_9 => $h_country_id{9},
  C_ID_10 => $h_country_id{10},
);
print "Content-Type: text/html; charset=utf-8\n\n";
print $tmphtml->output;
exit(0);
#==============================================================================
#機能：カウント数をインクリメントする。
#==============================================================================
sub IncrementAccessCountry {
 my $country_id  = $_[0];
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:WorldAccess:localhost',"db名", "パスワード");
 my $hSt      = undef;
 my $count    = 0;
 my $record_n = 0;
 $hSt = $hDb->prepare( "select count from access_country where country_id='$country_id' and access_date='$today'" );
 $record_n = $hSt->execute;
 @record = $hSt->fetchrow;
 $count = $record[0];
 $hSt->finish;
 if( $record_n == 0 ) {
  # レコードがなかった場合、新規に作成する
  $hSt = $hDb->prepare( "insert into access_country values( '$today', '$country_id', 1 )" );
  $hSt->execute;
  $hSt->finish;
 } else {
  # レコードがある場合、カウントをインクリメントする
  $count++;
  $hSt = $hDb->prepare( "update access_country set count=$count where access_date='$today' and country_id='$country_id'" );
  $hSt->execute;
  $hSt->finish;
 }
 $hDb->disconnect;
 }
#==============================================================================
#機能：トータルカウント数を取得する。
#==============================================================================
sub GetTotalCount {
 #my $today    = &GetDateA( 0 );
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:WorldAccess:localhost',"db名", "パスワード");
 my $hSt      = undef;
 my $count    = undef;
 $hSt = $hDb->prepare( "select sum(count) from access_country where access_date='$today'" );
 $hSt->execute;
 @record = $hSt->fetchrow;
 $count = $record[0];
 $hSt->finish;
 $hDb->disconnect;
 return $count;
}
#==============================================================================
#機能：
#==============================================================================
sub GetCountryRank {
 my $s_country_id = $_[0];
 my $s_count   = $_[1];
 my $today    = "2007-04-10 00:00:00";
 my $hDb      = DBI->connect('DBI:mysql:WorldAccess:localhost',"db名", "パスワード");
 my $hSt      = undef;
 $hSt = $hDb->prepare( "select country_id, count from access_country where access_date='$today' order by count desc" );
 $hSt->execute;
 my $index = 1;
 while( @record = $hSt->fetchrow ) {
  $$s_country_id{$index} = $record[0];
  $$s_count{$index}   = $record[1];
  $index++;
 }
 $hSt->finish;
 $hDb->disconnect;
 }
#==============================================================================
#機能：
#==============================================================================
sub GetCountryName {
 %country_name = (
 -1 =>"不明",
 1 =>"該当無",
 AC =>"アセンション島",
 AD =>"アンドラ",
 AE =>"<IMG SRC=images/AE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アラブ首長国連邦>",
 AF =>"<IMG SRC=images/AF.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アフガニスタン>",
 AG =>"<IMG SRC=images/AG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アンティグア・バーブーダ>",
 AI =>"アンギラ",
 AL =>"<IMG SRC=images/AL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アルバニア共和国>",
 AM =>"<IMG SRC=images/AM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アルメニア共和国>",
 AN =>"オランダ領アンティール",
 AO =>"<IMG SRC=images/AO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アンゴラ共和国>",
 AP =>"アジア太平洋連合",
 AQ =>"南極大陸",
 AR =>"<IMG SRC=images/AR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アルゼンチン共和国>",
 AS =>"アメリカ領サモア",
 AT =>"<IMG SRC=images/AT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=オーストリア共和国>",
 AU =>"<IMG SRC=images/AU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=オーストラリア>",
 AW =>"アルバ",
 AX =>"クリスマス島",
 AZ =>"<IMG SRC=images/AZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アゼルバイジャン共和国>",
 BA =>"<IMG SRC=images/BA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ボスニア・ヘルツェゴビナ>",
 BB =>"<IMG SRC=images/BB.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バルバドス>",
 BD =>"<IMG SRC=images/BD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バングラディシュ人民共和国>",
 BE =>"<IMG SRC=images/BE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ベルギー王国>",
 BF =>"<IMG SRC=images/BF.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブルキナファソ>",
 BG =>"<IMG SRC=images/BG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブルガリア共和国>",
 BH =>"<IMG SRC=images/BH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バーレーン王国>",
 BI =>"<IMG SRC=images/BI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブルンジ共和国>",
 BJ =>"<IMG SRC=images/BJ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ベナン共和国>",
 BM =>"バミューダ諸島",
 BN =>"<IMG SRC=images/BN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブルネイ・ダルサラーム国>",
 BO =>"ボリビア",
 BR =>"<IMG SRC=images/BR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ブラジル連邦共和国>",
 BS =>"<IMG SRC=images/BS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バハマ国>",
 BT =>"ブータン",
 BV =>"ブーヴェ島",
 BW =>"<IMG SRC=images/BW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ボツワナ共和国>",
 BY =>"ベラルーシ",
 BZ =>"ベリーズ",
 CA =>"<IMG SRC=images/CA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カナダ>",
 CC =>"ココス（キーリング）諸島",
 CD =>"ザイール共和国",
 CF =>"<IMG SRC=images/CF.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=中央アフリカ共和国>",
 CG =>"<IMG SRC=images/CG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=コンゴ共和国>",
 CH =>"<IMG SRC=images/CH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スイス連邦>",
 CI =>"<IMG SRC=images/CI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=コートジボアール共和国>",
 CK =>"クック諸島",
 CL =>"<IMG SRC=images/CL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=チリ共和国>",
 CM =>"<IMG SRC=images/CM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カメルーン共和国>",
 CN =>"<IMG SRC=images/CN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=中華人民共和国>",
 CO =>"<IMG SRC=images/CO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=コロンビア共和国>",
 CR =>"コスタリカ",
 CS =>"旧チェコスロバキア",
 CU =>"<IMG SRC=images/CU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=キューバ共和国>",
 CV =>"<IMG SRC=images/CV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カーボヴェルデ共和国>",
 CX =>"クリスマス島",
 CY =>"<IMG SRC=images/CY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=キプロス共和国>",
 CZ =>"<IMG SRC=images/CZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=チェコ共和国>",
 DE =>"<IMG SRC=images/DE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ドイツ連邦共和国>",
 DJ =>"<IMG SRC=images/DJ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ジブチ共和国>",
 DK =>"<IMG SRC=images/DK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=デンマーク王国>",
 DM =>"<IMG SRC=images/DM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ドミニカ国>",
 DO =>"<IMG SRC=images/DO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ドミニカ共和国>",
 DZ =>"<IMG SRC=images/DZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アルジェリア民主人民共和国>",
 EC =>"<IMG SRC=images/EC.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エクアドル共和国>",
 EE =>"<IMG SRC=images/EE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エストニア共和国>",
 EG =>"<IMG SRC=images/EG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エジプト・アラブ共和国>",
 EH =>"西サハラ",
 ER =>"<IMG SRC=images/ER.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エリトリア国>",
 ES =>"<IMG SRC=images/ES.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スペイン>",
 ET =>"<IMG SRC=images/ET.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エチオピア連邦民主共和国>",
 EU =>"欧州連合",
 FI =>"<IMG SRC=images/FI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=フィンランド共和国>",
 FJ =>"フィジー",
 FK =>"フォークランド諸島",
 FM =>"ミクロネシア連邦",
 FO =>"フェロー諸島",
 FR =>"<IMG SRC=images/FR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=フランス共和国>",
 FX =>"<IMG SRC=images/FR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=フランス大都市>",
 GA =>"<IMG SRC=images/GA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ガボン共和国>",
 GB =>"<IMG SRC=images/GB.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イギリス>",
 GD =>"<IMG SRC=images/GD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=グレナダ>",
 GE =>"<IMG SRC=images/GE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=グルジア>",
 GF =>"フランス領ガイアナ",
 GG =>"ガーンジー島",
 GH =>"<IMG SRC=images/GH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ガーナ共和国>",
 GI =>"ジブラルタル",
 GL =>"グリーンランド",
 GM =>"<IMG SRC=images/GM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ガンビア共和国>",
 GN =>"<IMG SRC=images/GN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ギニア共和国>",
 GP =>"グアドループ島",
 GQ =>"<IMG SRC=images/GQ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=赤道ギニア共和国>",
 GR =>"<IMG SRC=images/GR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ギリシャ共和国>",
 GS =>"南ジョージア・南サンドイッチ諸島",
 GT =>"グアテマラ共和国",
 GU =>"グアム島",
 GW =>"<IMG SRC=images/GW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ギニアビサウ共和国>",
 GY =>"<IMG SRC=images/GY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ガイアナ協同共和国>",
 HK =>"<IMG SRC=images/CN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=香港>",
 HM =>"ハード・マクドナルド諸島",
 HN =>"<IMG SRC=images/HN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ホンジュラス共和国>",
 HR =>"<IMG SRC=images/HR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=クロアチア共和国>",
 HT =>"<IMG SRC=images/HT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ハイチ共和国>",
 HU =>"<IMG SRC=images/HU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ハンガリー共和国>",
 ID =>"<IMG SRC=images/ID.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=インドネシア共和国>",
 IE =>"<IMG SRC=images/IE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アイルランド>",
 IL =>"<IMG SRC=images/IL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イスラエル国>",
 IM =>"マン島",
 IN =>"<IMG SRC=images/IN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=インド>",
 IO =>"イギリス領インド洋地域",
 IQ =>"<IMG SRC=images/IQ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イラク共和国>",
 IR =>"<IMG SRC=images/IR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イラン・イスラム共和国>",
 IS =>"<IMG SRC=images/IS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アイスランド共和国>",
 IT =>"<IMG SRC=images/IT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イタリア共和国>",
 JE =>"ジャージー島",
 JM =>"<IMG SRC=images/JM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ジャマイカ>",
 JO =>"<IMG SRC=images/JO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ヨルダンヨルダン・ハシェミット王国>",
 JP =>"<IMG SRC=images/JP.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=日本>",
 KE =>"<IMG SRC=images/KE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ケニア共和国>",
 KG =>"<IMG SRC=images/KG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=キルギス共和国>",
 KH =>"<IMG SRC=images/KH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カンボジア王国>",
 KI =>"<IMG SRC=images/KI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=キリバス共和国>",
 KM =>"<IMG SRC=images/KM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=コモロ連合>",
 KN =>"アンギラ",
 KP =>"<IMG SRC=images/KP.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=北朝鮮>",
 KR =>"<IMG SRC=images/KR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=大韓民国>",
 KW =>"<IMG SRC=images/KW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=クウェート国>",
 KY =>"ケイマン諸島",
 KZ =>"<IMG SRC=images/KZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カザフスタン共和国>",
 LA =>"<IMG SRC=images/LA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ラオス人民民主共和国>",
 LB =>"<IMG SRC=images/LB.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=レバノン共和国>",
 LC =>"<IMG SRC=images/LC.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=セントルシア>",
 LI =>"<IMG SRC=images/LI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=リヒテンシュタイン公国>",
 LK =>"<IMG SRC=images/LK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スリランカ民主社会主義共和国>",
 LR =>"<IMG SRC=images/LR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=リベリア共和国>",
 LS =>"<IMG SRC=images/LS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=レソト王国>",
 LT =>"<IMG SRC=images/LT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=リトアニア共和国>",
 LU =>"<IMG SRC=images/LU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ルクセンブルク大公国>",
 LV =>"<IMG SRC=images/LV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ラトビア共和国>",
 LY =>"<IMG SRC=images/LY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=社会主義人民リビア・アラブ国>",
 MA =>"<IMG SRC=images/MA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モロッコ王国>",
 MC =>"<IMG SRC=images/MC.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モナコ公国>",
 MD =>"<IMG SRC=images/MD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モルドバ共和国>",
 MG =>"<IMG SRC=images/MG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マダガスカル共和国>",
 MH =>"<IMG SRC=images/MH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マーシャル諸島共和国>",
 MK =>"<IMG SRC=images/MK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マケドニア>",
 ML =>"<IMG SRC=images/ML.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マリ共和国>",
 MM =>"<IMG SRC=images/MM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ミャンマー連邦>",
 MN =>"<IMG SRC=images/MN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モンゴル国>",
 MO =>"マカオ",
 MP =>"北マリアナ諸島",
 MQ =>"マルチニーク島",
 MR =>"<IMG SRC=images/MR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モーリタニア・イスラム共和国>",
 MS =>"モンセラット",
 MT =>"<IMG SRC=images/MT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マルタ共和国>",
 MU =>"<IMG SRC=images/MU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モーリシャス共和国>",
 MV =>"<IMG SRC=images/MV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モルディブ共和国>",
 MW =>"<IMG SRC=images/MW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マラウイ共和国>",
 MX =>"<IMG SRC=images/MX.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=メキシコ合衆国>",
 MY =>"<IMG SRC=images/MY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=マレーシア>",
 MZ =>"<IMG SRC=images/MZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=モザンビーク共和国>",
 NA =>"<IMG SRC=images/NA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ナミビア共和国>",
 NC =>"ニューカレドニア",
 NE =>"<IMG SRC=images/NE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ニジェール共和国>",
 NF =>"ノーフォーク島",
 NG =>"<IMG SRC=images/NG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ナイジェリア連邦共和国>",
 NI =>"<IMG SRC=images/NI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ニカラグア共和国>",
 NL =>"<IMG SRC=images/NL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=オランダ王国>",
 NO =>"<IMG SRC=images/NO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ノルウェー王国>",
 NP =>"<IMG SRC=images/NP.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ネパール王国>",
 NR =>"<IMG SRC=images/NR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ナウル共和国>",
 NT =>"中立地帯",
 NU =>"ニウエ",
 NZ =>"<IMG SRC=images/NZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ニュージーランド>",
 OM =>"オマーン",
 PA =>"<IMG SRC=images/PA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=パナマ共和国>",
 PE =>"<IMG SRC=images/PE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ペルー共和国>",
 PF =>"フランス領ポリネシア",
 PG =>"<IMG SRC=images/PG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=パプアニューギニア独立国>",
 PH =>"<IMG SRC=images/PH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=フィリピン共和国>",
 PK =>"<IMG SRC=images/PK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=パキスタン・イスラム共和国>",
 PL =>"<IMG SRC=images/PL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ポーランド共和国>",
 PM =>"サンピエール島・ミクロン島",
 PN =>"ピットケルン島",
 PR =>"<IMG SRC=images/PR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=プエルトリコ自由連合州>",
 PS =>"パレスチナ王国",
 PT =>"<IMG SRC=images/PT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ポルトガル共和国>",
 PW =>"<IMG SRC=images/PW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=パラオ共和国>",
 PY =>"パラグアイ",
 QA =>"<IMG SRC=images/QA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=カタール国>",
 RE =>"レユニオン",
 RO =>"<IMG SRC=images/RO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ルーマニア>",
 RS =>"<IMG SRC=images/RS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=セルビア・モンテネグロ>",
 RU =>"<IMG SRC=images/RU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ロシア連邦>",
 RW =>"<IMG SRC=images/RW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ルワンダ共和国>",
 SA =>"<IMG SRC=images/SA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=サウジアラビア王国>",
 SB =>"<IMG SRC=images/SB.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ソロモン諸島>",
 SC =>"セイシェル",
 SD =>"<IMG SRC=images/SD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スーダン共和国>",
 SE =>"<IMG SRC=images/SE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スウェーデン王国>",
 SG =>"<IMG SRC=images/SG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=シンガポール共和国>",
 SH =>"セントヘレナ島",
 SI =>"<IMG SRC=images/SI.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スロベニア共和国>",
 SJ =>"スヴァルバルド・ヤンマイェン諸島",
 SK =>"<IMG SRC=images/SK.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スロバキア共和国>",
 SL =>"<IMG SRC=images/SL.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=シエラレオネ共和国>",
 SM =>"<IMG SRC=images/SM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=サンマリノ共和国>",
 SN =>"<IMG SRC=images/SN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=セネガル共和国>",
 SO =>"<IMG SRC=images/SO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ソマリア民主共和国>",
 SR =>"<IMG SRC=images/SR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スリナム共和国>",
 ST =>"<IMG SRC=images/ST.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=サントメ・プリンシペ民主共和国>",
 SU =>"ソビエト社会主義共和国連邦",
 SV =>"<IMG SRC=images/SV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=エルサルバドル共和国>",
 SY =>"<IMG SRC=images/SY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=シリア・アラブ共和国>",
 SZ =>"<IMG SRC=images/SZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=スワジランド王国>",
 TC =>"タークス諸島・カイコス諸島",
 TD =>"<IMG SRC=images/TD.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=チャド共和国>",
 TF =>"フランス領南方諸島",
 TG =>"<IMG SRC=images/TG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=トーゴ共和国>",
 TH =>"<IMG SRC=images/TH.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=タイ>",
 TJ =>"<IMG SRC=images/TJ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=タジキスタン共和国>",
 TK =>"トケラウ諸島",
 TM =>"トルクメニスタン",
 TN =>"<IMG SRC=images/TN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=チュニジア共和国>",
 TO =>"<IMG SRC=images/TO.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=トンガ王国>",
 TP =>"<IMG SRC=images/TP.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=東ティモール民主共和国>",
 TR =>"<IMG SRC=images/TR.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=トルコ共和国>",
 TT =>"<IMG SRC=images/TT.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=トリニダード・トバゴ共和国>",
 TV =>"<IMG SRC=images/TV.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ツバル>",
 TW =>"<IMG SRC=images/TW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=台湾>",
 TZ =>"<IMG SRC=images/TZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=タンザニア連合共和国>",
 UA =>"<IMG SRC=images/UA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ウクライナ>",
 UG =>"<IMG SRC=images/UG.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ウガンダ共和国>",
 UK =>"イギリス",
 UM =>"アメリカ辺境諸島",
 US =>"<IMG SRC=images/US.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=アメリカ>",
 UY =>"<IMG SRC=images/UY.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ウルグアイ東方共和国>",
 UZ =>"<IMG SRC=images/UZ.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ウズベキスタン共和国>",
 VA =>"バチカン市国",
 VC =>"セントビンセントおよびグレナディーン諸島",
 VE =>"<IMG SRC=images/VE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ベネズエラ・ボリバル共和国>",
 VG =>"イギリス領バージン諸島",
 VI =>"アメリカ領バージン諸島",
 VN =>"<IMG SRC=images/VN.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ベトナム社会主義共和国>",
 VU =>"<IMG SRC=images/VU.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=バヌアツ共和国>",
 WF =>"ワリスおよびフツナ諸島",
 WG =>"西ヨルダン・ガザ地区",
 WS =>"<IMG SRC=images/WS.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=サモア独立国>",
 YE =>"<IMG SRC=images/YE.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=イエメン共和国>",
 YT =>"マヨテ島",
 YU =>"ユーゴスラビア",
 ZA =>"<IMG SRC=images/ZA.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=南アフリカ共和国>",
 ZM =>"<IMG SRC=images/ZM.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ザンビア共和国>",
 ZR =>"ザイール",
 ZW =>"<IMG SRC=images/ZW.gif WIDTH=20 HEIGHT=13 BORDER=0 ALT=ジンバブエ共和国>",
 );
 my $country = $_[0];
 return $country_name{ $country };
 }
#==============================================================================
#機能：時刻をYYYY-MM-DD 00:00:00形式で取得する。
#==============================================================================
sub GetDateA {
# my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = &CAR_TIME::GetTime( $_[0] );
 my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
 $sec  = 0;
 $min  = 0;
 $hour = 0;
    $sec  = sprintf("%02d",$sec );
    $min  = sprintf("%02d",$min );
    $hour = sprintf("%02d",$hour);
    $mday = sprintf("%02d",$mday);
    $mon  = sprintf("%02d",$mon );
  return $year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec;
}
__END__

/cgi-bin/surfpoint/welcomeworld.tmpl 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>WORLD ACCESS</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="generator" content="Movable Type 3.34" />
<meta name="" />
<link href="welcome.css" rel="stylesheet" type="text/css" />

</head>
<body>
<!-- コンテナ中央揃え ここから -->
<div align="center">
<div class="welcome">
<TMPL_VAR NAME=COUNTRYNAME>
<br />
WELCOME
</div>
<div class="cap01">Your<TMPL_VAR NAME=TOTALCOUNT>Visitor.</div>

<table width="170" border="0" cellspacing="0" cellpadding="0">
<caption class="cap02">Online Visitors</caption>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_1() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_1>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_1();">
   <TMPL_VAR NAME=NAME1></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS1></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_2() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_2>.html', 'mywindow2', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_2();">
   <TMPL_VAR NAME=NAME2></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS2></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_3() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_3>.html', 'mywindow3', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_3();">
   <TMPL_VAR NAME=NAME3></a>
 </td>

<td class="box01"><TMPL_VAR NAME=ACCESS3></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_4() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_4>.html', 'mywindow4', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_4();">
   <TMPL_VAR NAME=NAME4></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS4></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_5() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_5>.html', 'mywindow5', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_5();">
   <TMPL_VAR NAME=NAME5></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS5></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_6() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_6>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_6();">
   <TMPL_VAR NAME=NAME6></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS6></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_7() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_7>.html', 'mywindow1', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_7();">
   <TMPL_VAR NAME=NAME7></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS7></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_8() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_8>.html', 'mywindow8', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_8();">
   <TMPL_VAR NAME=NAME8></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS8></td>
</tr>
<tr>
 <td class="box01">
  <script type="text/javascript"><!--
   function win_9() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_9>.html', 'mywindow9', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_9();">
   <TMPL_VAR NAME=NAME9></a>
 </td>
<td class="box01"><TMPL_VAR NAME=ACCESS9></td>
</tr>
<tr>
 <td class="box02">
  <script type="text/javascript"><!--
   function win_10() {
    window.open('../../GoogleMaps/<TMPL_VAR NAME=C_ID_10>.html', 'mywindow10', 'width=500, height=500, menubar=no, toolbar=no, scrollbars=no');
    }
   // -->
  </script>
  <a href="javascript:win_10();">
   <TMPL_VAR NAME=NAME10></a>
 </td>
<td class="box02"><TMPL_VAR NAME=ACCESS10></td>
</tr>
<td class="box01"> </td>
<td class="box01"> </td>
</tr>
</table>
</div>
</body>
</html>
 

• Related Entries
• 07/10/26MovableType4.01をFastCGIで高速化？
• 07/06/15どこの国から来たのcgiにポップアップ
• 07/06/10どこから来たのCGI
• 08/01/20sensors覚書
• 07/11/22xawtv インストールエラー 解決？？
• 07/11/22xawtv インストールエラー
• 07/11/14opensuse-updater-kde (0.6)
• 07/11/06Maia Mailguard（PEAR）
• 07/10/23CPANでCrypt::DSAインストール
• 07/10/12openSUSE10.2から10.3へバージョンアップ

• Edit
• Permalink