a hrefcgitest htmlcgia cgitest html form action cgitest

データの引渡し ① <a href="cgi_test. html">cgi起動テスト</a> cgi_test. html ② <form action=". . /cgi_test. cgi"> <input

アンケート調査のHTML文書 n n n n n n n n <!DOCTYPE html> <head> <title>アンケート調査</title> <link

$アンケート調査のcgi（Perl) #!/usr/bin/perl # #アンケート調査 if ($ENV{'REQUEST_METHOD'} eq POST) { $len = $ENV{'CONTENT_LENGTH'}; read(STDIN, $buffer,$

アクセスをカウントするPHPプログラムの追加 <div class="right"> 文章文章 <? php $fp=fopen("count. txt", "r+"); $count=fgets($fp, 10); $count=$count+1; fseek($fp,

Slides: 12

Download presentation

データの引渡し ① <a href="cgi_test. html">cgi起動テスト</a> cgi_test. html ② <form action=". . /cgi_test. cgi"> <input type="submit" name="button" value="起動確認" /> ③ http: //www. isc. chubu. ac. jp/pj 15***/cgi_test. cgi? button=%8 BN%93%AE%8 Am%94 F

アンケート調査のHTML文書 n n n n n n n n <!DOCTYPE html> <head> <title>アンケート調査</title> <link rel="stylesheet" href="poll. css" type="text/css" media="screen" /> </head> <body> <h 3>アンケート調査</h 3> <p>あなたのお名前を入力して送信してください. </p> <form action="http: //www 2. isc. chubu. ac. jp/jc/miyahara/cgi/poll. cgi" /> お名前： <input type="text" name="namae" /> 性別： <input type="radio" name="seibetu" value="男" />男 <input type="radio" name="seibetu" value="女" />女趣味： <input type="checkbox" name="v 1" value="旅行" />旅行 <input type="checkbox" name="v 2" value="読書" />読書 <input type="checkbox" name="v 3" value="音楽" />音楽 <input type="checkbox" name="v 3" value="スポーツ" />スポーツ <input type="checkbox" name="v 3" value="その他" />その他出身県： <select name="pref"> <option value="未入">県選択</option> <option value="愛知">愛知県</option> <option value="岐阜">岐阜県</option> <option value="三重">三重県</option> <option value="静岡">静岡県</option> <option value="以外">その他</option> </select> <input type="submit" name="submit" value="送信" /> <input type="reset" name="reset" value="取消" /> </form> </body＞</html>

$アンケート調査のcgi（Perl) #!/usr/bin/perl # #アンケート調査 if ($ENV{'REQUEST_METHOD'} eq POST) { $len = $ENV{'CONTENT_LENGTH'}; read(STDIN, $buffer,$

アンケート調査のcgi（Perl) #!/usr/bin/perl # #アンケート調査 if ($ENV{'REQUEST_METHOD'} eq POST) { $len = $ENV{'CONTENT_LENGTH'}; read(STDIN, $buffer, $len); } else { $buffer = $ENV{'QUERY_STRING'}; } #フォームに入力された値を分解し、復元する # @pairs = split(/&/, $buffer); foreach $pair(@pairs){ ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-f. A-F 0 -9][a-f. A-F 09])/pack("C", hex($1))/eg; $hozon{$name} = $value; } $w 1=$hozon{"namae"}; $w 2=$hozon{"seibetu"}; $w 3=$hozon{"v 1"}; $w 4=$hozon{"v 2"}; $w 5=$hozon{"v 3"}; $w 6=$hozon{"v 4"}; $w 7=$hozon{"v 5"}; open(LOGFILE, ">>poll. txt"); print LOGFILE "$w 1, $w 2, $w 3, $w 4, $w 5, $w 6, $w 7, $w 8, "; ($sec, $min, $hour, $day, $mon, $year) = localtime(time); $year += 1900; $mon += 1; print LOGFILE "$year/$mon/$day, $hour: $min: $sec, "; print LOGFILE "$ENV{'REMOTE_HOST'}, "; print LOGFILE "$ENV{'REMOTE_ADDR'}n"; close(LOGFILE); print "Content-type: text/htmlnn"; print "<html>n"; print "<head>n"; print "<TITLE>Thank You!</TITLE>n"; print "</head>n"; print "<body>n"; print "<p>$w 1さんご回答ありがとうございましたm(_ _)m</p>"; print "</body></html>n"; exit (0);

アクセスをカウントするPHPプログラムの追加 <div class="right"> 文章文章 <? php $fp=fopen("count. txt", "r+"); $count=fgets($fp, 10); $count=$count+1; fseek($fp, 0); fputs($fp, $count); fclose($fp); ? > あなたは<b> <? php echo $count; ? > </b>人目の来訪者です。 </div>