📄 ad_header.pl

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

💻 PL

字号:

##############################  HTML 头部 #####################
sub header {
if ($header_test!=1) {
   print "Content-type: text/html\n\n";	
   print "<html><head><title>$title服务台</title>\n"; 
   print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=gb2312\">\n";
print qq~
<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>
<LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\"></head>
~;
   if ($refresh eq "1") { print "<meta http-equiv=\"refresh\" content=\"$reload;url=$cgiurl/ad.pl?id=$id\"> "; }
   elsif ($refresh eq "2") { print "<meta http-equiv=\"refresh\" content=\"$retrun;url=$ENV{'HTTP_REFERER'}\"> "; }
   print "<body bgcolor=$back text=$word  link=$link_color alink=$alink_color vlink=$vlink_color>\n";
   print "<div align=\"center\"><table border=\"0\" width=\"100%\" height=\"100%\" cellspacing=\"0\" cellpadding=\"0\">\n";
   print "<tr><td width=\"100%\"><p align=\"center\">\n";
   print "<span class=\"head\">$title服务台</span><br>(右键刷新)<br>\n"; 
   }
$header_test=1;
}

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -