📄 go.cgi
字号:
#!/usr/bin/perl
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # 得到当前位置: UNIX / or Windows /
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # 得到当前位置: 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;
}
## 缺省主页
if ( lc($username) eq "www" ) {
print "Content-type: text/html\n\n";
print $meta_mainpage;
exit;
}
tie(%acc, 'AnyDBM_File', $db , $flags, 0666) || &error("不能读取 -- 用户数据库");
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>
~;
# 转向目标网址在转向页面显示广告
$meta_adv = qq~
<HTML><head>
<title></TITLE>
<META HTTP-EQUIV="REFRESH" CONTENT="$meta_time; URL=$userdata[0]">
</HEAD>
$meta_body
</BODY></HTML>
~;
# 转向目标网址 显示弹出广告
$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>服务提供:<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>
~;
#无广告,保持子域名
$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;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -