?? go.cgi
字號(hào):
#!/usr/bin/perl
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # 得到當(dāng)前位置: UNIX / or Windows /
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # 得到當(dāng)前位置: Windows \
require "setup.pl";
};
use Fcntl;
use AnyDBM_File;
$flags = O_RDONLY;
$div ="\|\|";
### must modify to path
$datapath="/yourpath/sub";
$userdb ="user";
$db = "$datapath/$userdb";
$meta_default = qq~
<HTML><head>
<META HTTP-EQUIV="REFRESH" CONTENT="$meta_time;URL=$default">
</HEAD><body>
</BODY></HTML>
~;
$meta_mainpage = qq~
<HTML><head>
<META HTTP-EQUIV="REFRESH" CONTENT="$meta_time;URL=$mainpage">
</HEAD><body>
</BODY></HTML>
~;
$uri = $ENV{'REQUEST_URI'};
$uri =~ s/\///;
if ($type eq "subdomain") {
$username = $ENV{'HTTP_HOST'};
$username =~ s/^www\.//i;
$username =~ s/\.$domain//i;
}
else {
@urs = split(/\//,$uri);
$username = $urs[0];
$uri =~ s/$username//i;
$uri =~ s/\///;
}
unless ($username) {
print "Content-type: text/html\n\n";
print $meta_default;
exit;
}
## 缺省主頁(yè)
if ( lc($username) eq "www" ) {
print "Content-type: text/html\n\n";
print $meta_mainpage;
exit;
}
tie(%acc, 'AnyDBM_File', $db , $flags, 0666) || &error("不能讀取 -- 用戶數(shù)據(jù)庫(kù)");
unless ($acc{$username}) {
untie(%acc);
print "Content-type: text/html\n\n";
print $meta_default;
exit;
}
$user_array = $acc{$username};
untie(%acc);
$tempdiv=quotemeta($div);
@userdata = split(/$tempdiv/,$user_array);
if ($uri) {
$userdata[0] = "$userdata[0]/$uri";
}
$meta_none = qq~
<HTML><head>
<META HTTP-EQUIV="REFRESH" CONTENT="$meta_time;URL=$userdata[0]">
<title></TITLE>
</HEAD><body>
</BODY></HTML>
~;
# 轉(zhuǎn)向目標(biāo)網(wǎng)址在轉(zhuǎn)向頁(yè)面顯示廣告
$meta_adv = qq~
<HTML><head>
<title></TITLE>
<META HTTP-EQUIV="REFRESH" CONTENT="$meta_time; URL=$userdata[0]">
</HEAD>
$meta_body
</BODY></HTML>
~;
# 轉(zhuǎn)向目標(biāo)網(wǎng)址 顯示彈出廣告
$meta_pop = qq~
<HTML><head>
<script language="JavaScript">
<!-- begin script
redirect = window.open("$ad_url", "solutions", "toolbar=no,location=no,directories=no,menubar=no,scrollbars=no,resizable=no,width=$ad_width,height=$ad_height");
// end script -->
</script>
<META HTTP-EQUIV="REFRESH" CONTENT="$meta_time;URL=$userdata[0]">
<title></TITLE>
</HEAD>
$meta_body
<TABLE bgcolor=white border=1 cellspacing=0 cellpadding=3 align=center>
<TR><TD align=center>
<FONT face=宋體,arial >正在裝入中...
<BR>
<B><A HREF="$userdata[0]">$userdata[2]</A></B></FONT>
</TD></TR></TABLE>
</BODY></HTML>
~;
# 彈出廣告,顯示子框架,保持子域名
$frames_all = qq~
<HTML><head>
<title></TITLE>
<script language="JavaScript">
<!-- begin script
redirect = window.open("$ad_url", "solutions", "toolbar=no,location=no,directories=no,menubar=no,scrollbars=no,resizable=no,width=$ad_width,height=$ad_height");
function redirectFrame () {
return '<html><body bgcolor="#FFFFFF" text="#000000"><CENTER>' +
'<FONT face=宋體,arial ><B>服務(wù)提供:<A HREF="http://$domain" target="_TOP">$name</A></B></FONT> ' +
'<FONT face=宋體,arial size=-1>'+
'</FONT>'+
'</body></html>'
}
// end script -->
</script>
<frameset rows='*,0'>;
<frame name='main' FRAMEBORDER="0" FRAMESPACING="0" MARGINWIDTH="0" MARGINHEIGHT="0" SCROLLING="auto" RESIZE=NO src='$userdata[0]'>;
<frame name='redirect' FRAMEBORDER="0" FRAMESPACING="0" MARGINWIDTH="3" MARGINHEIGHT="3" SCROLLING="auto" RESIZE=NO src='javascript:parent.redirectFrame()'>;
</frameset></html>
~;
#彈出廣告,保持子域名
$frames_pop = qq~
<HTML><head>
<title></TITLE>
<script language="JavaScript">
<!-- begin script
redirect = window.open("$ad_url", "solutions", "toolbar=no,location=no,directories=no,menubar=no,scrollbars=no,resizable=no,width=$ad_width,height=$ad_height");
// end script -->
</script>
<frameset>;
<frame name='subdomain' FRAMEBORDER="0" FRAMESPACING="0" MARGINWIDTH="0" MARGINHEIGHT="0" SCROLLING="auto" RESIZE=NO src='$userdata[0]'>;
</frameset>
</html>
~;
#無(wú)廣告,保持子域名
$frames = qq~
<HTML><head>
<title></TITLE>
<frameset>;
<frame name='subdomain' FRAMEBORDER="0" FRAMESPACING="0" MARGINWIDTH="0" MARGINHEIGHT="0" SCROLLING="auto" RESIZE=NO src="$userdata[0]">;
</frameset>
</html>
~;
$to_type=$userdata[3];
if ($adv_type ne "yes")
{
print "Content-type: text/html\n\n";
if ( $to_type eq "1" ) {
print $meta_none;
exit;
}
else
{
print $frames;
}
}
else
{
print "Content-type: text/html\n\n";
if ( $to_type eq "1" )
{ print $meta_pop; }
else
{ print $frames_pop;}
}
exit;?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -