例)
if ( $FORM{'jsmode'} eq '' )
{
$jscheck = "<script language=\"JavaScript\">\n"
. "<!--\n"
. "document.write('<input type=\"hidden\" name=\"jsmode\" value=\"1\">');\n"
. "// -->\n"
. "</script>\n"
. "<noscript>\n"
. "<input type=\"hidden\" name=\"jsmode\" value=\"0\">\n"
. "</noscript>\n" ;
}
else
{
$jscheck = "<input type=\"hidden\" name=\"jsmode\" value=\"$FORM{'jsmode'}\">\n" ;
}
・
・
・
print "<form method=\"post\" action=\"〜.cgi\">\n" ;
print $jscheck ;
・
・
・
print "<input type=\"submit\" value=\"Send\">\n" ;
print "</form>\n" ;