📄 init_win0.pl

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

💻 PL

字号:

#########################
sub init_win0 {

  $reload*=3;
#  do "$home_dir/save.pl";
#  &save("online");
  if ($dspy_adver!=1) { print"<html><head>\n"; }
  else { 
     if ($adverfile) {$temp="adver";}
   else {$temp="online_user";}	
print "<html><head><meta http-equiv=\"refresh\" content=\"$reload;url=$fullurl?job=$temp$userinfo\">\n"; }
 do "$home_dir/set_midi.pl";
 &mymusic;
print <<EOF;
<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>
<body bgcolor=$menuword text=$advercolor  link=$link_color alink=$alink_color vlink=$vlink_color OnLoad="if(parent.frames.length==0)top.location='$fullurl';">
<div align="right"><table  cellpadding="1" cellspacing="2"><tr>
<td><a target=win5 href="$homeurl/up3.htm"><acronym title='点这里系统会自动播放背景音乐!'>循环播放</acronym></a></td>
<td><a target=win5 href="$homeurl/up1.htm"><acronym title='手动换歌，没点一次换一首歌!'>手动换曲</acronym></a></td>
<td><a target=win5 href="$homeurl/up2.htm"><acronym title='如果你想安静一会，就点这里取消背景音乐!'>停止播放</acronym></a></td>
<td><a target=one href="$homeurl/help.htm"><acronym title='有关帮助!'></acronym></a></td>
<td><a href="$fullurl?job=win0$userinfo"><acronym title='手动接收别人的点歌!'>接收送歌</acronym></a></td>
EOF
print "<td>\n"; 
#print "<a target=\"\" href=\"#\" onClick=\"window.open('$fullurl?job=save$userinfo','leejun','width=400,height=400,top=0,left=0,location=no,directories=no,status=no,toolbar=no,menubar=no,scrollbars=auto,resizable=yes')\">察看经验</a></td>\n"; 
print "</tr></table></div></body></html>\n";
}

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -