|
> 取得タグは<body>〜</body>タグ内に記述します。
> CGIファイルに書く場合も同じですので、まず<body>開始タグを探してみてください。
###<--------------------------------------------------------------
###<--- HTMLヘッダー書き出し
###<--------------------------------------------------------------
sub header {
&get_agent;
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "<html>\n<head>\n";
print "<meta http-equiv=\"Content-Language\" content=\"ja\">\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=shift_jis\">\n";
print "<meta http-equiv=\"Content-Style-Type\" content=\"text/css\">\n";
print "<meta http-equiv=\"Content-Script-Type\" content=\"text/javascript\">\n";
if ( $tag == yes ) {
if ( $css_use== 1 ) {print "<LINK rel=stylesheet href=\"$css_stylesheet\">\n";}
}
print <<"EOM";
<style type="text/css">
<!--
body {
scrollbar-face-color : #FFFFFF ;
scrollbar-shadow-color : #A001FD ;
scrollbar-highlight-color : #FFFFFF ;
scrollbar-3dlight-color : #A001FD ;
scrollbar-darkshadow-color : #FFFFFF ;
scrollbar-track-color : #F6EAFE ;
scrollbar-arrow-color : #A001FD ;
font-family: 'MS UI Gothic','MS PGothic','MS Gothic','Osaka';
}
a:link {font-size: $pt; text-decoration:none; color:$linkcolor }
a:visited {font-size: $pt; text-decoration:none; color:$vlinkcolor }
a:active {font-size: $pt; text-decoration:none; color:$alinkcolor }
a:hover {font-size: $pt; text-decoration:underline; color:$hovercolor; }
body,tr,td { font-size: $pt;}
hr{ color : $hrcolor ; }
.tab1{ border:$fm_o_style $fm_o_color $fm_o_width;background-color:$fmcolor; }
.tab2 { border-collapse:collapse;border:$fm_o_style $fm_o_color $fm_o_width ; }
.td1{ font-size:$pt;border:$fm_o_style $fm_o_color $fm_o_width;background-color:$fmcolor;padding:5px; }
EOM
print ".txt1{ color:$tetinpt_f_color;font-size:$b_size;font-family:'MS UI Gothic','MS PGothic','MS Gothic','Osaka';border:$tetinpt_style $tetinpt_l_color $tetinpt_l_width;background-color:$tetinpt_b_color;";
if($txtselect==0){print "}\n";
}else{print "background-image:url(\"$icon_url/$tetinpt_bgs_image\");}\n";}
print ".txt2{ color:$tetinpt_f_color;font-size:$b_size;font-family: 'MS UI Gothic','MS PGothic','MS Gothic','Osaka';border:$tetinpt_style $tetinpt_l_color $tetinpt_l_width;background-color:$tetinpt_b_color;";
if($txtselect==0){print "}\n";
}else{print "background-image:url(\"$icon_url/$tetinpt_bgl_image\");}\n";}
print ".but{ font-size:$b_size;font-weight:bold;color:$button_f_color;font-family: 'MS UI Gothic','MS PGothic','MS Gothic','Osaka';border:$button_style $button_l_color $button_l_width;background-color:$button_b_color;";
if($butselect==0){print " }\n";}
elsif($butselect==1){print "background-image:url(\"$icon_url/$button_bg_image\");}\n";}
else{}
print "-->\n</STYLE>\n";
# JavaScriptヘッダー
if ($ImageView == 1) {
print "<SCRIPT LANGUAGE=\"JavaScript\">\n";
print "<!--\n";
print " function ImageUp() {\n";
print " window.open(\"$script?action=icondisp\",\"window1\",\"width=$img_w,height=$img_h,scrollbars=1\");\n";
print " }\n";
print "//-->\n";
print "</SCRIPT>\n";
}
print "<title>$title</title>\n";
print "</head>\n";
if ($backpicture) { $set = "background=\"$backpicture\""; if ( $bgcolor ) { $set .= " bgcolor=\"$bgcolor\"" ; } }
elsif ($bgcolor ) { $set = "bgcolor=\"$bgcolor\""; }
print "<body $set text=\"$tcolor\" link=\"$linkcolor\" vlink=\"$vlinkcolor\" alink=\"$alinkcolor\">\n";
if ( $prv eq "1" ){
&prvwindow;
}
}
という風にヘッダが開始されてます。
この場合、BODY開始タグは最後のほうにある
「print "<body $set text=\"$tcolor\" link=\"$linkcolor\" vlink=\"$vlinkcolor\" alink=\"$alinkcolor\">\n";」
の部分にあたるのでしょうか？
とすると、その後に、記述することになると思うのですが、
どんな感じに記述するといいでしょうか？
|
