?? compare.cgi
字號:
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$co=new CGI;
@temp=$co->param('proname');
print "Content-type: text/html\n\n";
if ($#temp<1) {&error ("error(030)");}
print qq~
<html>
<head><title>比較</title></head>
<body>
<table border="1" cellspacing="1" width="100%" bordercolorlight="#2169C6" align="center">
<tr>
<td align=center><font color=#2169C6>
<br><br><br>Recording Format<br><br>CCD Quantity<br><br>CCD Pixels<br><br>Recording System<br><br>Optical Zoom<br><br>LCD Panel Size<br><br>Audio Format<br><br>Type<br><br>Digital Zoom<br><br>Lens Focal Length<br><br>LCD Display<br><br>Color Viewfinder<br><br>Image Stabilizer<br><br>Digital Still Shot Mode<br><br>Multimedia Card<br><br>Low Lux<br><br>Recommended Illumination<br><br>Recording Speed<br><br>MPEG Movie Mode<br><br>Outputs<br><br>Video In/Out<br><br>Audio In/Out<br><br>DV Terminal<br><br>Interface Type<br><br>Battery Type<br><br>Weight<br><br>Depth<br><br>Height<br><br>Width<br><br></font>
</td>
~;
foreach $temp(@temp)
{
open (f,"$realpath/data/$temp.dat");
@tmpdata=split(/=/,<f>);
close f;
open (f,"$realpath/intro/$temp.itd");
($myname,$nonedata)=split(/=/,<f>);
close f;
print qq~
<td align=center>
~;
print "<font color=#2169C6><b>$myname</b></font><br>";
print "<br><br>";
foreach $tmpdata(@tmpdata)
{print "$tmpdata<br><br>";}
print qq~
</td>
~;
}
print qq~
</tr>
</table>
</body>
</html>
~;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -