📄 search.cgi
字号:
#!/perl/bin/perl
require "./setup.pl";
use CGI;
$co=new CGI;
$name1=$co->param('name1');
$name2=$co->param('name2');
$price1=$co->param('price1');
$price2=$co->param('price2');
$page=$co->param('page');
if (($price1)||($price2))
{$flag=1;}
if (($name2)||($page))
{$flag=1;}
unless ($flag)
{print "Content-type: text/html\n\n";
print qq~
<html>
<head><title>搜索</title></head>
<body>
<br>
<br>
<br>
<table border="0" width="100%" height="115">
<tr>
<td width="100%" align="center" height="1">
<p align="center"><img border="0" src="images/afudv.gif" width="262" height="100"></p>
</td>
</tr>
<tr>
<td width="100%" align="center" height="18"><u><i><b><font size="4" color="#066AFF">欢迎光临</font></b></i></u></td>
</tr>
<tr>
<td width="100%" align="center" height="83"><form action=search.cgi>
<p><font color="#000000">
<font size="4"><b>
Search for:</b></font> </font> <input type=text name=name1 size="20"> <font color="#000000">
<font size="4"><b> in</b></font> <select name="name2">
<option value=sony>Sony</option>
<option value=jvc>JVC</option>
<option value=pan>Panasonic</option>
<option value=cannon>Cannon</option>
</select>
<input type="submit" name="Submit" value=" Go ">
</p>
</form></font></td>
</tr>
<tr>
<td width="100%" align="center" height="83">
<font color="#000000"><font size="5"><b>按品牌搜索:</b></font>
<a href=search.cgi?&name2=jvc target=_blank><font color="#0000ff" size="5"></font></a><a href=search.cgi?&name2=sony target=_blank><font size="5">Sony</font></a>
<a href=search.cgi?&name2=jvc target=_blank><font color="#0000ff" size="5">JVC</font></a> <a href=search.cgi?&name2=pan target=_blank><font color="#0000ff" size="5">Panasonic</font></a>
<a href=search.cgi?&name2=cannon target=_blank><font color="#0000ff" size="5">Cannon</font></a></font></td>
</tr>
<tr>
<td width="100%" align="center" height="83">
<font color="#000000"><font size="4"><b>按价格搜索:</b></font>
<a href=search.cgi?&price1=500&price2=2000 target=_blank><font size="4"></font></a><a href=search.cgi?&price1=500 target=_blank><font size="4">500以下</font></a>
<a href=search.cgi?&price1=500&price2=2000 target=_blank><font color="#0000ff" size="4">500-2000</font></a> <a href=search.cgi?&price2=2000 target=_blank><font color="#0000ff" size="4">2000以上</font></a>
</font>
</td>
</tr>
</table>
</body>
</html>
~;
exit;}
my $id=$co->cookie('id');
my $key=$co->cookie('key');
if (($id eq $supername)&&($key eq $superkey))
{$supermen=1;}
unless ($page)
{
unless (($price1)||($price2))
{
opendir (DIR,"$realpath/intro/$name2");
@tmpdir=readdir(DIR);
closedir DIR;
foreach $tmpdir(@tmpdir)
{
if ($tmpdir=~/\.itd$/i) {
unless ($name1) {push (@tempdir,"$name2/$tmpdir");}
else{
open (f,"$realpath/intro/$name2/$tmpdir");
($filedata,$nonedata)=split(/=/,<f>);
close f;
if ($filedata=~/$name1/ig){push (@tempdir,"$name2/$tmpdir");}
}
}
}
}
else
{
foreach $prokind(@prokind)
{
opendir (DIR,"$realpath/price/$prokind");
@tmpdir=readdir(DIR);
closedir DIR;
foreach $tmpdir(@tmpdir)
{
if ($tmpdir=~/\.pie$/i) {
open (f,"$realpath/price/$prokind/$tmpdir");
@tempprice=split(/=/,<f>);
close f;
($price51,$price52)=split(/-/,$tempprice[4]);
if ($price51=~/(\d+\.{0,1}\d+)$/) {$temp1=$1;}
if ($price52=~/(\d+\.{0,1}\d+)$/) {$temp2=$1;}
unless ($price2)
{if ($temp1<$price1) {push (@tempdir,"$prokind/$tmpdir");}}
unless ($price1)
{if ($temp2>$price2) {push (@tempdir,"$prokind/$tmpdir");}}
if (($price1)&&($price2)&&($temp1<$price1)&&($temp2>$price1))
{push (@tempdir,"$prokind/$tmpdir");}
}
}
}
}
open (f,">$realpath/temp.tmp");
print f "@tempdir";
close f;
}
open (f,"$realpath/temp.tmp");
@tempdir=split(/ /,<f>);
close f;
if (@tempdir) {$total=$#tempdir+1;}
else {$total=0;}
if ($#tempdir<$pageview)
{foreach $tempdir(@tempdir) {push (@mydir,$tempdir);}}
else{
$count=($#tempdir+1)/$pageview+1;
$max=$page*$pageview-1;
$max=$#tempdir if ($max>$#tempdir);
for ($n=($page-1)*$pageview;$n<=$max;$n++)
{push (@mydir,$tempdir[$n]);}
}
print "Content-type: text/html\n\n";
print qq~
<html>
<head><title>搜索结果</title></head>
<body>
<form action=compare.cgi>
<table border="1" cellspacing="1" width="750" id="AutoNumber1" height="191" bordercolorlight="#2169C6" align="center">
<tr>
<td width="25%" bgcolor="#636563" height="17" align=center valign=middle><b>
<span lang="EN-GB" style="font-size: 10.5pt; font-family: Verdana">一共发现了<span style="color: #CC0000">$total
个产品</span></span></b></td>
<td width="75%" colspan="3" height="17"></td>
</tr>
<tr>
<td width="25%" bgcolor="#DEDFDE" height="28" align=center valign=middle>
~;
unless ($supermen) {print "<input type=submit name=Submit value=比较></td>";}
else {print " </td>";}
print qq~
<td width="75%" colspan="3" bgcolor="#DEDFDE" height="28"> </td>
</tr>
~;
foreach $mydir(@mydir)
{
($name2,$noninfo)=split(/\//,$mydir);
($wantinfo,$noninfo)=split(/\./,$noninfo);
open (f,"$realpath/intro/$name2/$wantinfo.itd");
($tempname,$temppic)=split(/=/,<f>);
close f;
open (f,"$realpath/price/$name2/$wantinfo.pie");
($nonprice1,$nonprice2,$price3,$price4,$price5)=split(/=/,<f>);
close f;
if ($supermen){
print qq~
<tr>
<td width="25%" height="98" align=center valign=middle><img src=$temppic></td>
<td width="25%" height="98" align=center valign=middle><a href=see.cgi?name2=$name2&mydir=$wantinfo target=_blank>$tempname</a></td>
<td width="25%" height="98" align=center valign=middle>$price5<br><a href=price.cgi?name2=$name2&mydir=$wantinfo target=_blank><img border="0" src="images/see.gif" width="92" height="19"></a></td>
<td width="25%" height="98" align=center valign=middle><a href=change_htm.cgi?name2=$name2&mydir=$wantinfo target=_blank>修改</a><br><br><a href=delete.cgi?name2=$name2&mydir=$wantinfo target=_blank>删除</a></td>
</tr>
~;
}
else {
print qq~
<tr>
<td width="25%" height="98" align=center valign=middle><input type=checkbox name=proname value="$name2/$wantinfo"></td>
<td width="25%" height="98" align=center valign=middle><img src=$temppic></td>
<td width="25%" height="98" align=center valign=middle><a href=see.cgi?name2=$name2&mydir=$wantinfo target=_blank>$tempname</a></td>
<td width="25%" height="98" align=center valign=middle>$price5<br><a href=price.cgi?name2=$name2&mydir=$wantinfo target=_blank><img border="0" src="images/see.gif" width="92" height="19"></a></td>
</tr>
~;
}
}
print qq~
<tr>
<td width="25%" bgcolor="#DEDFDE" height="28" align=center valign=middle>
~;
unless ($supermen) {print "<input type=submit name=Submit value=比较></td>";}
else {print " </td>";}
print qq~
<td width="75%" colspan="3" bgcolor="#DEDFDE" height="28" align=right valign=middle>Page:
~;
for ($i=1;$i<=$count;$i++){print "<a href=search.cgi?page=$i> $i </a>";}
print qq~
</td>
</tr>
</table>
</form>
</body>
</html>
~;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -