Oct 29 2002 10:28<html><head><TITLE> 入 力 サ ン プ ル プ ロ グ ラ ム</head>inputsamplephp.txt

Page 1</TITLE><body><?php// パ ス ワ ー ド チ ェ ッ ク
if (!user_auth($username,$passwd)) {print " こ こ に は 入 れ ま せ ん";
exit;}// 入 力 時 刻$unixtime = time();$showtime = date("Y 年 m月d日 H時 i分 s秒 ",$unixtime);
print " 入 力 時 刻: $showtime <br>\n";// 北 緯 /南 緯if ($nanboku == "N") {print " 北 緯 ";} else {print " 南 緯 ";}// 緯 度 (DB入 力 用)
$ido = "$ido.$ifun.$ibyo.$imbyo";// 東 経/西 経
if ($touzai == "E") {print " 東 経";} else {print " 西 経";}// 経 度 (DB入 力 用 )$keido = "$keido.$keifun.$keibyo.$keimbyo";// 場 所 、 コ メ ン ト
print " コ メ ン ト : $comment <br>\n";// デ ー タ ベ ー ス を 開 け る@$dbcon = pg_connect("","","foo");if ($dbcon == false) {print("デ ー タ ベ ー ス に 接 続 で き ま せ ん で し た 。
");exit;}// SQL 文 を 作 っ て 実 行$sql = "INSERT INTO bartbl VALUES (’$unixtime’,’$nanboku’,’$ido’,’$touzai’,’$keido’,’$comment’)";$result = pg_exec($sql);
if ($result == TRUE) {print " 入 力 し ま し た 。
<br> \n";} else {print " 入 力 に 失 敗 し ま し た 。
<br> \n";}// デ ー タ ベ ー ス を 閉 じ る
pg_close($dbcon);?></body></html>inputsamplephp.txt

1Oct 29 2002 10:28<html><head><title> 僕 な ら ば こ こ に い る</head><body bgcolor=white>

outputsamplephp.txt

Page 1</title><?php// デ ー タ ベ ー ス を 開 く@$dbcon = pg_connect("","","foo");if ($dbcon == false) {print("デ ー タ ベ ー ス に 接 続 で き ま せ ん で し た 。
");
exit;
}
// SQL 文 を 実 行$sql = "select * from bartbl order by unixtime desc limit 50";
$result = pg_exec($sql);
if ($result == false) {print " 該 当 す る 入 力 は あ り ま せ ん 。
<br>\n";exit;}$rows = pg_numrows($result);// 件 数 を 取 得
print "$rows 件 あ り ま す 。
<br>\n";// table形 式 で 結 果 を 表 示
print("<table border>\n");for ($j = 0;$j < $rows;$j++) {if ($j == 0) {print("<tr>");print("<TH ALIGN=CENTER>日 時 </TH>");
print("<TH ALIGN=CENTER>緯 度 </TH>");
print("<TH ALIGN=CENTER>経 度 </TH>");
print("<TH ALIGN=CENTER>場 所 ・ コ メ ン ト な ど</TH>");
print("<TH ALIGN=CENTER>地 図 1</TH>");
print("</tr>\n");}print("<tr>");// 日 時$unixtime = pg_result($result,$j,0);$youbi = array(" 日","月","火 ","水 ","木","金","土 ");$w = date("w",$unixtime);$showtime = date("Y/m/d",$unixtime) . "(" . $youbi[$w] . ")" . date("H:i:s",$unixtime);
print("<TD ALIGN=CENTER>$showtime</td>\n");Oct 29 2002 10:28

outputsamplephp.txt

Page 2

print " 東 経";} else {print " 西 経 ";}// 経 度if (ereg("([0-9]{1,3}).([0-9]{1,2}).([0-9]{1,2}).([0-9]{1})",pg_result($result,$j,4), $kregs)) {print "$kregs[1] 度$kregs[2]分 $kregs[3].$kregs[4]秒";} else {print " 不 明";}
print "</td>\n";// 場 所 、 コ メ ン ト な ど$comment = pg_result($result,$j,5);
print("<td>$comment</td>\n");// 地 図(マ ピ オ ン)へ の リ ン ク$mapionurl = "http://www.mapion.co.jp/c/f?scl=5000&pnf=1&uc=1&grp=all&size=50
0,500&el=$kregs[1]/$kregs[2]/$kregs[3].$kregs[4]&nl=$iregs[1]/$iregs[2]/$iregs[3].$iregs[4]";print("<td><a href=\"$mapionurl\" target=\"_\">Mapion</a></td>\n");print("</tr>\n");}print("</table>\n");pg_freeresult($result); // 検 索 結 果 の 解 放
pg_close($dbcon);// デ ー タ ベ ー ス を 閉 じ る?></body></html>// 北 緯 /南 緯
$nanboku = pg_result($result,$j,1);
print("<TD ALIGN=CENTER>");if ($nanboku == "N") {print " 北 緯 ";} else {print " 南 緯 ";}// 緯 度if (ereg("([0-9]{1,2}).([0-9]{1,2}).([0-9]{1,2}).([0-9]{1})",pg_result($result,$j,2), $iregs)) {print "$iregs[1] 度$iregs[2]分 $iregs[3].$iregs[4] 秒";} else {print " 不 明";}
print "</td>\n";// 東 経 /西 経
$touzai = pg_result($result,$j,3);
print("<TD ALIGN=CENTER>");if ($touzai == "E") {outputsamplephp.txt

1Oct 29 2002 10:28

hdmlsample.txt

Page 1<hdml version=3.0 markable=true ttl=3600><entry name=username format="*M" default="hourin" key=username><action type=accept task=go dest=#passwd>
ユーザ名</entry><entry name=passwd format="*M" key=passwd noecho=true><action type=accept task=go dest=#comment>
パスワード</entry><entry name=comment format="*M" key=comment><action type=accept task=go dest=#nanboku>
コ メ ン ト (場 所 な ど )</entry><choice name=nanboku key=nanboku><action type=accept task=go dest=#ido>
北 緯 /南 緯 ?
<ce value="N">北 緯<ce value="S">南 緯</choice><entry name=ido format="NN\度 NN\分 NN\.N\秒" key=ido><action type=accept task=go dest=#touzai>
緯 度 (数 字7個)</entry><choice name=touzai key=touzai><action type=accept task=go dest=#keido>
東 経 /西 経?
<ce value="E">東 経<ce value="W">西 経</choice><entry name=keido format="NNN\度NN\分NN\.N\秒 " key=keido><action type=accept task=go dest=#soushin>
緯 度 (数 字8個 )</entry><display name=soushin><action type=accept task=go postmethod=post
postdata="username=$username&passwd=$passwd&nanboku=$nanboku&ido=$ido&touzai=$touzai&keido=$keido&comment=$comment"
dest=input.php label="送 信 ">コ メ ン ト : $comment <br>
緯 度 : $nanboku $ido <br>
経 度: $touzai $keido <br>
送信します。
<br></display></hdml>hdmlsample.txt

1