📄 adver.pl

📁 这个社区是虚拟社区使用的程序

💻 PL

字号:

sub return_adver {

open(ONLINE,"$rootdir/$adverfile") || &error("无法打开文件$adverfile");
@adver = <ONLINE>;
close(ONLINE);
$adver=@adver;
srand;
$ram=int(rand($adver+1));
@adverfile=split(/‖/,$adver[$ram]);
print qq~
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV=REFRESH CONTENT='$advert;URL=$fullurl?job=win0$userinfo'>
<LINK REL=stylesheet HREF="$homeurl/styles.css" TYPE="text/css">
<SCRIPT language=javascript><!--
if (navigator.appName.indexOf("Internet Explorer") != -1) 
document.onmousedown = noSourceExplorer;
function noSourceExplorer(){
if (event.button == 2 | event.button == 3){
document.location.reload();
     }
document.onmousedown=noSourceExplorer
}
//--></SCRIPT>
</head>
<body bgcolor=$menuword text=$advercolor  link=$link_color alink=$alink_color vlink=$vlink_color OnLoad="if(parent.frames.length==0)top.location='$fullurl';">
<table width="100%" height="100%" cellspacing="0" cellpadding="0" align="center"><tr><td>
~;

foreach (@adverfile) {
 print "$_";
} 
print "</td>\n</tr>\n</table>\n</body>\n</html>\n";
   }
}

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -