| > 取得タグは<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";」 の部分にあたるのでしょうか?
とすると、その後に、記述することになると思うのですが、 どんな感じに記述するといいでしょうか?
|