CGI_20080726_03


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。



aaa

http://www6.atpages.jp/aurora72source2/cgi/test005/test/test02.cgi

gen0001

aaa

#!/usr/local/bin/perl
# 上の1行の前には空行も空白文字もはいらないようにしてください。
# perlのパス名はプロバイダや環境に合わせて変更してください。

#require "jcode.pl";

sub resheadprint {

print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>CGI TEST</TITLE>\n";
print "</HEAD>\n";
print "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";

print("===========================================<br>\n");
print("<br>\n");

}

sub restailprint {

#
# HTMLの終わりの部分を書き出します。
#
print "</XMP>\n";
print "</BODY>\n";
print "</HTML>\n";
print "\n";

}

sub headprint {

# print OUT "$_<BR>\n";
print OUT "<HTML>\n";
print OUT "<HEAD>\n";
print OUT "<TITLE>CGI TEST</TITLE>\n";
print OUT "</HEAD>\n";
print OUT "<BODY BGCOLOR='#FFFFFF' TEXT='#000000'>\n";

print OUT "===========================================<br>\n";
print OUT "<br>\n";

}

sub tailprint {

#
# HTMLの終わりの部分を書き出します。
#
print OUT "</XMP>\n";
print OUT "</BODY>\n";
print OUT "</HTML>\n";
print OUT "\n";

}

#
# CGIのヘッダを書き出します。通常は text/html を指定します。
#
print "Content-type: text/html\n";
print "\n";

&resheadprint();

# &headprint();


# &tailprint();
&restailprint();


aaa