SEARCH ALL SOURCE CODE

搜索引擎大全2.11

关于本搜索引擎大全的说明：

　　本搜索引擎大全为星尘开发，是一个GPL版权软件。目前我们共收录了比较常见的63个各类搜索网站，并不断增加中。
　　

如何安装？

　　本程序包共四个文件：
　　search.cgi　　　主程序文件
　　search.dat　　　搜索引擎库文件
　　category.dat　　搜索类别库文件
　　readme.htm　　　本说明文件

　　打开主程序，找到这几行：
　　$mainurl = "http://yourservurl/cgi-bin/search.cgi";
　　$datfile = "search.dat";
　　$catfile = "category.dat";
　　$sysname = "admin";
　　$syspass = "******";
　　将$mainurl的值改为你自己服务器上该程序的地址，$sysname和$syspass是管理用初始用户名和密码，请改为你自己的，保存修改。

　　将主程序和两个库文件用ascii方式上传至服务器，改主程序文件属性为755即可，搜索引擎库和类别库文件属性改为666。
　　

如何使用？

　　安装成功后，运行本程序即可得到搜索引擎大全的使用代码。将代码剪贴到主页中，即可使用啦！不选择搜索引擎，关键字填manage，则进入搜索站的管理，包括新增、修改、删除操作。

　　主程序(search.cgi)：

#!/usr/bin/perl
########################################
#　　　网站搜索引擎大全程序(V2.11)　 　#
########################################
#　　　程序编写：星尘　　　　　　　　　#
#　　　更新日期：2001.4.10　　　　　　 #
#　　　http://www.yznest.net　　　　　 #
########################################
#　　　本软件受GPL版权保护　　　　　　 #
########################################

$mainurl = "http://yourservurl/cgi-bin/search.cgi";　　　# 程序路径, 改为你自己的
$datfile = "search.dat";　　　　　　　　　　　　　　　　 # 搜索引擎库文件名
$catfile = "category.dat";　　　　　　　　　　　　　　　 # 搜索类别库文件名
$sysname = "admin";　　　　　　　　　　　　　　　　　　　# 搜索式管理登录名
$syspass = "*******";　　　　　　　　　　　　　　　　　　# 搜索式管理登录密码
$crypass = crypt($syspass,$sysname);　　　　　　　　　　 # 密码加密

#以下如果你对cgi不熟悉,请勿改动
################################################################
&readform;

open(SEARCHDATA,"$datfile") || &error("无法打开搜索引擎库文件!");
@search = <searchdata>;
@search = sort @search;
close(SEARCHDATA);
$total = @search;					# 搜索站总数统计

if (($FORM{'site'} eq "") && ($FORM{'key'} eq "manage")) {
	&htmltop;
	&managelogin;
}
elsif ($action eq "manage") {
	&checkpass;
	&htmltop;
	&manage;
}
elsif ($action eq "changehtml") {
	&error("请选择要修改的站点!") if ($FORM{'s'} eq "");
	&checkpass2;
	&htmltop;
	&changehtml;
}
elsif ($action eq "change") {
	&error('非法操作') unless ($ENV{'HTTP_REFERER'} =~ /$mainurl/);
	&checkpass2;
	&change;
}
elsif ($action eq "addhtml1") {
	&checkpass2;
	&htmltop;
	&addhtml1;
}
elsif ($action eq "addhtml2") {
	&checkpass2;
	&htmltop;
	&addhtml2;
}
elsif ($action eq "add") {
	&error('非法操作') unless ($ENV{'HTTP_REFERER'} =~ /$mainurl/);
	&checkpass2;
	&add;
}
elsif ($action eq "delete") {
	&error('非法操作') unless ($ENV{'HTTP_REFERER'} =~ /$mainurl/);
	&checkpass2;
	&delete;
}
else {

if($FORM{'site'} ne ""){
	&search;
}

else {
&htmltop;
&searchhtml;
}

}

######################
#　搜索页面输出
######################
sub searchhtml {
print <<eof; <HTML>
<head>
<title>搜索引擎大全</title>
<meta name="Author" content="Chen Zhen">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="FFFFFF" text="000000" link="0000B0">
<center><table width="400" border="0" cellspacing="0" cellpadding="2"><tr><td align="center" bgcolor="00cc00">
<font color="FFFFFF" size="5"><b>搜索引擎大全</b></font><table width="100%" border="0" cellspacing="0" cellpadding="6"><tr><td align="center" bgcolor="f5f5f5"><br>
EOF
&searchcode;
print <<eof; </td></tr></table></td></tr></table>
<p><table width="400"><tr><td><span style="font-size: 9pt">

<font color="red">关于本搜索引擎大全的说明：</font><p>
　　本搜索引擎大全为扬州网巢开发，未限定使用范围，如果你需要，尽请使用，使用方法见下！目前我们共收录了比较常见的$total个各类搜索网站，并不断增加中。<p>
　　<font color="red">为什么选择我们的搜索大全？</font><p>
　　1、全部搜索站点由站长经常验证，保证搜索的可用性；<br>
　　2、根据网友的要求，不断增加新的实用的搜索站点；<br>
　　3、......<p>
　　<font color="red">如何使用我们的搜索大全？</font><p>
　　1、只需将下面的代码放在你主页里的适当地方，就可以使用啦；<br>
　　2、不选择搜索引擎，空着搜索关键字按“搜索”，可以看本大全的最新消息；<br>
　　3、选择搜索引擎后，空着搜索关键字按“搜索”，则直接转到搜索网站。<p>
　　<font color="red">更新说明：</font><p>
　　2001.4.10　对部分搜索代码进行检查，去掉了几个失效链接，对部分代码进行了更新。<br>
　　2000.3.17　公开程序源代码，对程序进行了包装和详细说明。<br>
　　1999.12.28　对程序最后测试完成，上传服务器运行良好。<p>
本搜索引擎大全代码：<br>
<center><textarea wrap="yes" rows="10" cols="66" style="font-size: 9pt">
EOF

&searchcode;

print <<eof; </textarea></center>
</td></tr></table>
<p><span style="font-size: 9pt">©1999-2001　<a href="http://www.yznest.net">扬州网巢</a>
<script>
document.write("<a href=http://top.263.net/count/top.dll?Type=sharkpwd&id=4884&ReferID=4884 target=_blank><img src=http://top.263.net/count/top.dll?Type=Img2&add=1&id=4884&refer="+escape(document.referrer)+" border=0 width=8 height=8></a> ");
document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?chenzhen target=_blank><img src=http://best.netease.com/cgi-bin/log.cgi?user=chenzhen&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 width=8 height=8'></a>");
</script>
</body></html>
EOF
}

######################
#　Html输出头部
######################
sub htmltop {
	print "Content-type: text/html;CHARSET=gb2312\n";
	print "Pragma:no-cache\n\n";
}

######################
#　关键词递交子程序
######################
sub search{
$siteok = "0";
foreach (@search) {
	($category,$id,$sitename,$sitecname,$siteurl,$sitesearch,$sitesearch2)=split(/‖/,$_);
if($sitename eq $FORM{'site'}){
	if($FORM{'key'} eq ""){
	print "Location: http://$siteurl\n\n";
	$siteok = "1";
	last
	}
	print "Location: http://$sitesearch$FORM{'key'}$sitesearch2\n\n";
	$siteok = "1";
	last
}
}
if ($siteok eq "0") {
&htmltop;
&searchhtml;
}

}

######################
#　搜索代码输出子程序
######################
sub searchcode {
print <<eof; <form action="$mainurl" method="POST">
<div align="center"><center><p>
<select name="site" size="1" style="font-size: 9pt">
	<option value>请选择搜索引擎</option>
EOF

$categorytemp=1;
foreach (@search) {
	($category,$id,$sitename,$sitecname,$siteurl,$sitesearch,$sitesearch2)=split(/‖/,$_);
	if ($category ne $categorytemp) {
	print "	<option value="\"\"">===================</option>\n";
	}
	print "	<option value="\"$sitename\"">$sitecname</option>\n";
	$categorytemp = $category;
	}
print <<eof; </select>
<input type="text" size="20" name="key" style="font-size: 9pt">
<input type="submit" value="搜索" style="font-size: 9pt">
</center></div>
</form>
EOF
}

######################
#　管理登录页面
######################
sub managelogin{
print <<eof; <html>
<title>管理员登录</title>
<body bgcolor="FFFFFF" text="000000" link="0000B0">
<center>
　<form method="POST" action="$mainurl?action=manage">
<table border="1" width="280" CELLSPACING="0" bordercolor="#FFFFFF" bordercolordark="#FFFFFF" bordercolorlight="#000000">
 <tr bgcolor="#6666CC">
	<td align="center">
	<font color="#FFFFFF" size="3"><b>搜索式管理</b></font>
	</td>
 </tr>
 <tr bgcolor="#C0C0C0">
	<td>
	　　用户：<input type="text" name="username" size="20"><br>
	　　口令：<input type="password" name="password" size="20"><br>
<center><hr width="88%"><input type="submit" value=" 确认 " style="font-size:9pt;">　<input type="reset" value=" 清除 " style="font-size:9pt;"></center>
	</td>
 </tr>
</table>
    </form>
</body></html>
EOF
}

######################
#　登录密码检查
######################
sub checkpass{
if (($FORM{'username'} ne $sysname) || ($FORM{'password'} ne $syspass)) {
&error("错误登录，请检查你的用户名和密码！");
}
$FORM{'password'} = crypt($FORM{'password'},$FORM{'username'});
}

######################
#　管理密码检查
######################
sub checkpass2{
if (($FORM{'username'} ne $sysname) || ($FORM{'password'} ne $crypass)) {
&error("错误登录，请检查你的用户名和密码！");
}
}

######################
#　搜索引擎式管理
######################
sub manage{
print <<eof; <html>
<head>
<title>搜索式管理</title>
<style type="text/css"><!
--body {font-size:10.5pt;font-family:宋体;} td {font-size:10.5pt;font-family:宋体;} input {font-size:10.5pt;font-family:宋体;}
--></style>
</head>
<body bgcolor="FFFFFF" text="000000" link="0000B0">
<center>
<form method="POST" action="$mainurl?action=addhtml1">
<b>目前共$total个搜索式，新增搜索式<input type="submit" name="sub" value=" 请按这里 "><input type="hidden" name="username" value="$FORM{'username'}"><input type="hidden" name="password" value="$FORM{'password'}"></form></b><p>
<form method="POST" action="$mainurl?action=changehtml">
<table width="580" border="1" CELLSPACING="0" bordercolor="#FFFFFF" bordercolordark="#FFFFFF" bordercolorlight="#000000">
<tr bgcolor="#6666CC" align="center"><td><font color="#FFFFFF">选择</td><td><font color="#FFFFFF">类别</td><td><font color="#FFFFFF">站点代号</td>
<td><font color="#FFFFFF">站名</td><td><font color="#FFFFFF">网址</td></tr>
EOF
foreach (@search) {
	($category,$id,$sitename,$sitecname,$siteurl,$sitesearch,$sitesearch2)=split(/‖/,$_);
	print "<tr><td><input type="radio" name="s" value="$sitename"></td><td>$category</td><td>$sitename</td><td>$sitecname</td><td><acronym TITLE="$sitesearch关键词$sitesearch2"><a href="\%22http://$siteurl\%22">http://$siteurl</a></acronym></td></tr>\n";
}
print "<tr><td colspan="5">";
print "<p align="left">类别说明：<br>";
open(CATDATA,"$catfile") || &error("无法打开搜索类别库文件!");
@catedata=<catdata>;
close(CATDATA);
foreach (@catedata) {
($cate,$catename)=split(/‖/,$_);
print "$cate.$catename　";
}
print "</td></tr></table><p><input type="submit" name="sub" value="修改所选站搜索式">\n";
print "<input type="hidden" name="username" value="$FORM{'username'}">\n";
print "<input type="hidden" name="password" value="$FORM{'password'}">\n";
print "</form>";
print "</html>";
}

######################
#　搜索引擎式修改页面
######################
sub changehtml{
print <<eof; <html>
<head>
<title>搜索式修改页面</title>
<style type="text/css"><!
--body {font-size:10.5pt;font-family:宋体;} td {font-size:10.5pt;font-family:宋体;} input {font-size:10.5pt;font-family:宋体;}
--></style>
</head>
<body bgcolor="FFFFFF" text="000000" link="0000B0">
<center>
<table width="390" border="1" cellspacing="0" cellpadding="2" bordercolor="663399">
<tr><td align="center" bgcolor="#663399">
<font color="#FFFFFF" size="4"><b>对<font color="red">$FORM{'s'}</font>站修改</b></font>
</td></tr><tr><td bgcolor="e0e0e0">
<table width="390"><tr><td colspan="2"><br>
<form method="POST" action="$mainurl?action=change">
　　类　　别:　<select name="category" size="1" style="font-size: 9pt">　
EOF
foreach (@search) {
	($category,$id,$sitename,$sitecname,$siteurl,$sitesearch,$sitesearch2)=split(/‖/,$_);
	if ($sitename eq $FORM{'s'}) {
open(CATDATA,"$catfile") || &error("无法打开搜索类别库文件!");
@catedata=<catdata>;
close(CATDATA);
foreach (@catedata) {
$select = "";
($cate,$catname)=split(/‖/,$_);
if ($cate eq $category) {$select = "selected";}
	print "	<option value="\"$cate\"" $select>$catname</option>\n";
}
print <<eof; </select><p>
　　站点代号:　<input type="text" size="20" name="showname" value="$sitename">(不可修改)<p>
　　站　　名:　<input type="text" size="30" name="sitecname" value="$sitecname"><p>
　　网　　址:　<input type="text" size="30" name="siteurl" value="$siteurl"><p>
　　搜 索 式:　<input type="text" size="30" name="sitesearch" value="$sitesearch"><p>
　　备 用 式:　<input type="text" size="30" name="sitesearch2" value="$sitesearch2"><p>
</td></tr>
<tr><td><input type="hidden" name="sitename" value="$FORM{'s'}">
<input type="hidden" name="username" value="$FORM{'username'}">
<input type="hidden" name="password" value="$FORM{'password'}">
<center><input type="submit" value="确认修改" style="font-size=9pt;">
　　<input type="reset" value="重新修改" style="font-size=9pt;">
    </form>
</td><td><form method="POST" action="$mainurl?action=delete">
<input type="hidden" name="sitename" value="$FORM{'s'}">
<input type="hidden" name="username" value="$FORM{'username'}">
<input type="hidden" name="password" value="$FORM{'password'}">
<input type="submit" value="删除此站" style="font-size=9pt;">
</form>
    </td>
  </tr>
</table>
</td></tr>
</table>
</font>
</center>
</body>
</html>
EOF
}

}
}

######################
#　搜索引擎式修改
######################
sub change{
&check;
open(SEARCHDATA,">$datfile") || &error("无法打开搜索引擎库文件!");
foreach (@search) {
	($category,$id,$sitename,$sitecname,$siteurl,$sitesearch,$sitesearch2)=split(/‖/,$_);
	if ($sitename eq $FORM{'sitename'}) {
	print SEARCHDATA "$FORM{'category'}‖$id‖$FORM{'sitename'}‖$FORM{'sitecname'}‖$FORM{'siteurl'}‖$FORM{'sitesearch'}‖$FORM{'sitesearch2'}‖\n";
	}
	else { print SEARCHDATA "$category‖$id‖$sitename‖$sitecname‖$siteurl‖$sitesearch‖$sitesearch2‖\n"; }
}
close(SEARCHDATA);
&success("搜索式已修改成功！<a href="\%22$mainurl\%22">现在测试</a>");
}

######################
#　搜索引擎式智能分析
######################
sub ai {
$FORM{'searchform'} =~ s/http:\/\///g;
($foreside,$rearward)=split(/test/,$FORM{'searchform'});
($url)=split(/\//,$foreside);
($www,$urlname)=split(/\./,$url);
}

######################
#　搜索引擎式新增页面1
######################
sub addhtml1{
print <<eof; <html>
<head>
<title>新增搜索式-步骤一</title>
<style type="text/css"><!
--body {font-size:10.5pt;font-family:宋体;} td {font-size:10.5pt;font-family:宋体;} input {font-size:10.5pt;font-family:宋体;}
--></style>
</head>
<body bgcolor="FFFFFF" text="000000" link="0000B0">
<center>
<table width="390" border="1" cellspacing="0" cellpadding="2" bordercolor="663399">
<tr><td align="center" bgcolor="#663399"> 
<font color="#FFFFFF" size="4"><b>新增搜索式-步骤一</b></font>
</td></tr>
<tr><td bgcolor="e0e0e0"><br>
<form method="POST" action="$mainurl?action=addhtml2">
　　请输入完整搜索式:<br>
　　<textarea name="searchform" rows="4" cols="44"></textarea><p>
<input type="hidden" name="username" value="$FORM{'username'}">
<input type="hidden" name="password" value="$FORM{'password'}">
<center><input type="submit" value=" 智能分析 " style="font-size=9pt;">
　　<input type="reset" value=" 重置 " style="font-size=9pt;">
</form>
    </td>
  </tr>
</table>
<p>　　说明：请到搜索网站搜索关键字：<font color="red">test</font>，将搜索结果页面的网址拷贝，粘贴到这里即可。<p>
</center>
</body>
</html>
EOF
}

######################
#　搜索引擎式新增页面2
######################
sub addhtml2{

&ai if ($FORM{'searchform'} ne "");
print <<eof; <html>
<head>
<title>新增搜索式-步骤二</title>
<style type="text/css"><!
--body {font-size:10.5pt;font-family:宋体;} td {font-size:10.5pt;font-family:宋体;} input {font-size:10.5pt;font-family:宋体;}
--></style>
</head>
<body bgcolor="FFFFFF" text="000000" link="0000B0">
<center>
<table width="390" border="1" cellspacing="0" cellpadding="2" bordercolor="663399">
<tr><td align="center" bgcolor="#663399"> 
<font color="#FFFFFF" size="4"><b>新增搜索式-步骤二</b></font>
</td></tr>
<tr><td bgcolor="e0e0e0"><br>
<form method="POST" action="$mainurl?action=add">
　　类　　别:　<select name="category" size="1" style="font-size: 9pt">　
EOF
open(CATDATA,"$catfile") || &error("无法打开搜索类别库文件!");
@catedata=<catdata>;
close(CATDATA);
foreach (@catedata) {
($cate,$catname)=split(/‖/,$_);
	print "	<option value="\"$cate\"">$catname</option>\n";
}
$cate = $cate+1;
print <<eof; <option value="$cate">新增类别</option>
</select> <input type="text" size="14" maxlength="12" name="catename" value="新增类别名"><p>
　　站点代号:　<input type="text" size="20" maxlength="12" name="sitename" value="$urlname"><p>
　　站　　名:　<input type="text" size="30" maxlength="20" name="sitecname"><p>
　　网　　址:　<input type="text" size="30" name="siteurl" value="$url"><p>
　　搜 索 式:　<input type="text" size="30" name="sitesearch" value="$foreside"><p>
　　备 用 式:　<input type="text" size="30" name="sitesearch2" value="$rearward"><p>
<input type="hidden" name="username" value="$FORM{'username'}">
<input type="hidden" name="password" value="$FORM{'password'}">
<center><input type="submit" value=" 确认 " style="font-size=9pt;">
　　<input type="reset" value=" 重置 " style="font-size=9pt;">
    </form>
    </td>
  </tr>
</table>
</center>
</body>
</html>
EOF
}

######################
#　搜索引擎式新增
######################
sub add{
&check;
open(CATDATA,"$catfile") || &error("无法打开搜索类别库文件!");
@catedata=<catdata>;
close(CATDATA);

if ($FORM{'category'} > @catedata) {
	&error("请填写类别名") if (($FORM{'catename'} eq "新增类别名") || ($FORM{'catename'} eq ""));
	open(CATDATA,">>$catfile") || &error("无法打开搜索类别库文件!");
	print CATDATA "$FORM{'category'}‖$FORM{'catename'}‖\n";
	close(CATDATA);
}

foreach (@search) {
	($category,$id,$sitename,$sitecname,$siteurl,$sitesearch,$sitesearch2)=split(/‖/,$_);
	if (($sitename eq $FORM{'sitename'}) || ($sitecname eq $FORM{'sitecname'}) || ($siteurl eq $FORM{'siteurl'})) {
	&error("搜索引擎库里已有此站啦！");
	}
}
$id = $total+1;
if (length($total) eq "1") {$id = "00".$id;}
elsif (length($total) eq "2") {$id = "0".$id;}

open(SEARCHDATA,">>$datfile") || &error("无法打开搜索引擎库文件!");
print SEARCHDATA "$FORM{'category'}‖$id‖$FORM{'sitename'}‖$FORM{'sitecname'}‖$FORM{'siteurl'}‖$FORM{'sitesearch'}‖$FORM{'sitesearch2'}‖\n";
close(SEARCHDATA);
&success("搜索式已成功增加！<a href="\%22$mainurl\%22">现在测试</a>");
}

######################
#　搜索引擎式删除
######################
sub delete {
open(SEARCHDATA,">$datfile") || &error("无法打开搜索引擎库文件!");
foreach (@search) {
	($category,$id,$sitename,$sitecname,$siteurl,$sitesearch,$sitesearch2)=split(/‖/,$_);
	if ($sitename ne $FORM{'sitename'}) {
	print SEARCHDATA "$category‖$id‖$sitename‖$sitecname‖$siteurl‖$sitesearch‖$sitesearch2‖\n";
	}
}
&success("$FORM{'sitename'}站已成功删除！<a href="\%22$mainurl\%22">现在测试</a>");
}

######################
#　检查表格是否为空
######################
sub check {
&error("没有填写站点代号！") if ($FORM{'sitename'} eq "");
&error("没有填写站名！") if ($FORM{'sitecname'} eq "");
&error("没有填写网址！") if ($FORM{'siteurl'} eq "");
&error("没有填写搜索式！") if ($FORM{'sitesearch'} eq "");
$FORM{'siteurl'} =~ s/http:\/\///g;
$FORM{'sitesearch'} =~ s/http:\/\///g;
}

######################
#　读入选择参数
######################
sub readform {

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $input);
	foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair);
	        $name =~ tr/+/ /;
	        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $value =~ tr/+/ /;
	        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $FORM{$name} = $value;
	}

@vars = split(/&/, $ENV{QUERY_STRING});
	foreach $var (@vars) {
	        ($v,$i) = split(/=/, $var);
	        $v =~ tr/+/ /;
	        $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ tr/+/ /;
	        $i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	        $i =~ s///g;
	        $INFO{$v} = $i;
	}

$action = $INFO{'action'};

}

######################
#　成功输出文件
######################
sub success {
	print "Content-type: text/html;CHARSET=gb2312\n\n";
	print "<html><body bgcolor="FFFFFF" text="000000" link="0000B0">\n";
	print "<center><br><table width="300" border="0" cellspacing="0" cellpadding="2"><tr><td align="center" bgcolor="6666CC">\n";
	print "<font color="FFFFFF" size="5"><b>成功!!!</b></font><table width="100%" border="0" cellspacing="0" cellpadding="6"><tr><td align="center" bgcolor="f5f5f5"><hr>\n";
	print "<p><span style="\'font-size:" 9pt\'><b>$_[0]</b></span></p><hr></font>\n";
	print "</td></tr></table></td></tr></table>\n";
	print "</body></html>\n";
	exit 0;
}

######################
#　出错处理子程序
######################
sub error {
	print "Content-type: text/html;CHARSET=gb2312\n\n";
	print "<html><body bgcolor="FFFFFF" text="000000" link="0000B0">\n";
	print "<center><br><table width="300" border="0" cellspacing="0" cellpadding="2"><tr><td align="center" bgcolor="990000">\n";
	print "<font color="FFFFFF" size="5"><b>出错信息</b></font><table width="100%" border="0" cellspacing="0" cellpadding="6"><tr><td align="center" bgcolor="f5f5f5"><hr>\n";
	print "<p><span style="\'font-size:" 9pt\'><b>$_[0]</b></span></p><hr></font>\n";
	print "</td></tr></table></td></tr></table>\n";
	print "</body></html>";
	exit 0;
}

　　搜索引擎库(search.dat)：

1‖001‖gbyahoo‖Yahoo中文(GB)‖cn.yahoo.com‖cn.search.yahoo.com/search/cn?p=‖‖
1‖002‖sohu‖Sohu中文(GB)‖www.sohu.com‖search.sohu.com/cgi-bin/search.cgi?opt=main&B1=搜索&T1=‖‖
1‖003‖goyoyo‖悠游北京(GB)‖www.goyoyo.com.cn‖www.goyoyo.com.cn/gyy/search%20GB?query=‖‖
1‖004‖yeah‖网易yeah(GB)‖www.yeah.net‖nisearch.163.com/Search?q=‖‖
1‖005‖sina‖新浪网(GB)‖www.sina.com.cn‖search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey=‖‖
1‖006‖!dreamer‖梦想家(GB)‖www.dreamer.com.cn‖engine.dreamer.com.cn:9090/?Type=N&Type=N&Target=SS&SWord=‖‖
1‖007‖tonghua‖常青藤(GB)‖www.tonghua.com.cn‖search.tonghua.com.cn/search?o=1&za=and&n=20&p=‖‖
1‖008‖cseek‖搜索客(GB)‖www.cseek.com‖db.cseek.com/search/isearch4d.shtm?sc=‖‖
1‖009‖bjx‖北极星(GB)‖www.beijixing.com.cn‖www.beijixing.com.cn/search97cgi/search.exe?Action=Search&R1=V4&SEARCH-97.x=12&SEARCH-97.y=11&searchkey=‖‖
1‖010‖5415‖我是野虎(GB)‖www.5415.com‖www.5415.com/srch/queries/y_search.asp?Select=Or&InputWord=‖‖
1‖011‖zhaodaola‖找到啦!(GB)‖search.zhaodaola.com‖www.zhaodaola.com.cn/cgi-bin/fs.cgi?query=‖‖
1‖012‖3721‖3721中文网址(GB)‖www.3721.net‖www.3721.net/‖‖
1‖013‖compass‖网路指南针(GB)‖compass.net.edu.cn:8010‖compass.net.edu.cn:8010/cgi-bin/cernet/get?qt=‖‖
1‖014‖!cptsh‖网友搜索(GB)‖www.cptsh.net.cn‖vsvr.cptsh.net.cn/multis.asp?start=0&REXP=OR&txt1=‖‖
1‖015‖!c3s‖华页指南(GB)‖www.c3s.org.sg‖www.c3s.org.sg/cgi-bin/search.cgi?ENCODING=gb&CATEGORY=0&TERM=‖‖
1‖016‖ipoinc‖美国世页(GB)‖www.ipoinc.com.hk‖www.ipoinc.com.hk/ipo-cgi/iposearch?vers=5&theColls=&trans=0&max=100&web=pages&db=ALL&code=2&terms=‖‖
1‖017‖!omron‖上海欧姆龙(GB)‖www.omron.online.sh.cn‖www.omron.online.sh.cn/homepage/cgi/shinfoport.exe?searchcgi=%2Fhomepage%2Fcgi%2F&PreviousPage=%2Fhomepage%2Fstart.htm&all=yes&searchkey=‖‖
1‖018‖ipanda‖熊猫搜索(GB)‖www.ipanda.net‖cn.i-panda.com/channel/search.cgi?imageField.x=32&imageField.y=8&query=‖‖
1‖019‖gbaltavista‖Altavista(GB)‖www.altavista.com‖www.altavista.com/cgi-bin/query?pg=q&kl=zh&q=‖‖
2‖020‖gbexcite‖Excite(GB,Big5)‖chinese.excite.com‖chinese.excite.com/search/search.dcg?collection=china&look=default&search=‖‖
2‖021‖yayawoo‖也也鸟(GB,Big5)‖www.yayawoo.com‖www.yayawoo.com/cgi-bin/search/search.cgi?db=hk&query=‖‖
2‖022‖kimo‖奇摩(Big5)‖www.kimo.com.tw‖search.kimo.com.tw/cgi-bin/srchfz.pl?query=‖‖
2‖023‖ifound‖发现者(Big5)‖www.ifound.net.tw‖www.ifound.com.tw/cgi-bin/search.tmp?Time=10&country=Taiwan&box=‖‖
2‖024‖!octor‖八爪鱼(Big5)‖www.octor.com‖www.octor.com/cgi-bin/webgais2.exe?Function=Search&query=%B5%D8&domain=‖‖
2‖025‖yam‖蕃薯藤(Big5)‖www.yam.com.tw‖www.yam.com.tw/b5/search?k=‖‖
3‖026‖yahoo‖英文Yahoo‖www.yahoo.com‖search.yahoo.com/bin/search?p=‖‖
3‖027‖altavista‖英文AltaVista‖www.altavista.com‖www.altavista.com/cgi-bin/query?pg=q&what=web&q=‖‖
3‖028‖excite‖英文Excite‖www.excite.com‖www.excite.com/search.gw?collection=web&search=‖‖
3‖029‖hotbot‖英文Hotbot‖www.hotbot.com‖www.hotbot.com/?SM=MC&DV=0&Search.x=38&Search.y=12&MT=‖‖
3‖030‖infoseek‖英文Infoseek‖infoseek.go.com‖infoseek.go.com/Titles?col=WW&svx=home_searchbox&sv=IS&lk=noframes&qt=‖‖
3‖031‖lycos‖英文Lycos‖www.lycos.com‖www.lycos.com/srch/?lpv=1&loc=searchhp&x=47&y=12&query=‖‖
3‖032‖netscape‖英文Netscape‖www.netscape.com‖search.netscape.com/cgi-bin/search?search=‖‖
3‖033‖msn‖英文MSN‖search.msn.com‖search.msn.com/results.asp?co=20&RS=CHECKED&FORM=SMCB&ba=0&v=1&q=‖‖
4‖034‖download‖Download软件库‖www.download.com‖download.cnet.com/downloads/1,10150,0-10001-103-0-1-7,00.html?tag=st%2Edl%2E10001%2Esbsr&cn=&ca=10001&qt=‖‖
4‖035‖zdnet‖ZDnet软件库‖www.zdnet.com‖xlink.zdnet.com/cgi-bin/texis/xlink/xlink/search.html?chkpt=zdhpsearch&Utext=‖‖
4‖036‖cnet‖CNET软件库‖www.cnet.com‖home.cnet.com/search/results/1,10050,0-0,00.html?ty=127&tag=st.cn.1.srchsrch&qt=‖‖
4‖037‖tucows‖Tucows软件库‖www.tucows.com‖www.tucows.com/perl/tucowsSearch?key=all&platform=win95&word=‖‖
4‖038‖gbdownload‖金蜘蛛软件商店‖www.download.com.cn‖www.download.com.cn/show.phtml?ss=Name&action=search&imageField.x=1&imageField.y=6&sk=‖‖
4‖039‖hncninfo‖湖南信息港软件库‖download.hn.cninfo.net‖202.103.69.33/soft/find.php3?SelCls=0&SelPlat=ALL&SelOrder=0&SelRange=SN&FindStr=‖‖
4‖040‖zfiles‖浙江Z档案软件下载‖zfiles.zj.cninfo.net‖zfiles.zj.cninfo.net/asp/qquery_file.asp?q_str=‖‖
4‖041‖softhouse‖软件屋免费下载中心‖www.softhouse.com.cn‖www.softhouse.com.cn/cgi-bin/biank/search?libname=freenew&page_no=1&dispnum=20&word=‖‖
4‖042‖hanhua‖中国软件汉化同盟‖www.52hh.com‖www.52hh.com/PatchSearch.asp?input=‖‖
4‖043‖longfei‖飞龙阁软化汉化包‖www.longfei.com‖www.to-game.com/longfei/flg2000/flgsb.asp?HH_GN=HH_SS&SS_FS=SS_ALL&txtname1=‖‖
5‖044‖mp3box‖MP3.BOX‖mp3.box.sk‖mp3.box.sk/mp3ftp.php3?srch=‖‖
5‖045‖mywebmp3‖音乐情缘MP3‖mp3.myweb.com.cn‖mp3.myweb.com.cn/linksearch.asp?songname=‖‖
5‖046‖mp3home‖MP3之家‖mp3.stn.sh.cn‖mp3.stn.sh.cn/mp3/Mp3Music/Mp3_Search.asp?trsSearchType=0&trsSearchStr=‖‖
5‖047‖musicinside‖音乐地平线RA‖card.jsinfo.net/music‖card.jsinfo.net/music/search.asp?txtSearch=‖‖
5‖048‖verymusic‖非常音乐网RA‖www.verymusic.net‖www0.wol.com.cn/music/searchit.asp?mtype=2&I13.x=30&I13.y=8&mtext=‖‖
5‖049‖geci‖中文歌词理想国‖geci.yesite.com‖geci.yesite.com/cgi-bin/songs/search.cgi?query=‖‖
6‖050‖!yinte‖中文文学作品‖www.yinte.net‖www.yinte.net/browser.php3?range=all&action=Search&search=‖‖
6‖051‖shuku‖亦凡书库‖sousuo.shuku.net‖sousuo.shuku.net/cgi-bin/bookdb/userSearch.cgi?mode=book&query=‖‖
6‖052‖newshoo‖全球新闻搜索‖www.newshoo.com.cn‖www.newshoo.com/search/today/today.asp?T1=‖‖
6‖053‖driver‖驱动程序搜索‖www.mydrivers.com‖search.mydrivers.com/scripts/search.dll?ITEM=‖‖
6‖054‖serial‖软件注册码‖astalavista.box.sk‖65.165.234.126/cgi-bin/robot?submit=+search+&srch=‖‖
6‖055‖keygen‖Keygen Search‖hambo.163.net‖202.103.100.253/hambo/searchengine.asp?FormMode=search&KeyWord=‖‖
6‖056‖homeway‖中国个股实时搜索‖www.homeway.cn.net‖companies.homeway.com.cn/lbi-bin/stock/stockindex.cgi?stock=‖‖
6‖057‖chinastar‖中文明星搜索‖starsline.muzi.net/index2.shtml‖starsline.muzi.net/search.shtml?option=all&l=chinese&s=&searchtype=searchstar_zhongwen&p=‖‖
6‖058‖wz‖物资信息搜索‖www.wz.net.cn‖www.wz.net.cn/search/search.asp?search=‖‖
6‖059‖picture‖图片搜索‖isurf.yahoo.com‖isurf.yahoo.com/cgi-bin/y-new/keyword_search.cgi?db=%2Fdata%2Fglobal_keyword&q=‖‖
6‖060‖wallpaper‖月牙泉壁纸‖desk.moon.net.cn‖desk.moon.net.cn/program/search_result.asp?page=1&keyword=‖‖
6‖061‖games‖游戏攻略秘籍‖games.sina.com.cn‖games.sina.com.cn/cgi-bin/games/search/searchcol.cgi?col=handbook&keywords=‖‖
6‖062‖joke‖笑话搜索‖joke.163.com‖joke.163.com/search.php?keyword=‖‖
6‖063‖domain‖域名查询‖www.checkdomain.com‖www.checkdomain.com//cgi-bin/checkdomain.pl?domain=‖‖

　　搜索类别库(category.dat)：

点这里下载程序>>>