?? affiche.cgi
字號:
#!/usr/bin/perl
#------------------------------------------------------#
# 本程序為Yuzi工作室提供 #
# Yuzi論壇3000(BBS3000)v4.00 #
#------------------------------------------------------#
$cgipa="."; # CGI程序文件的絕對路徑
######################
## 以下部分不需修改 ##
######################
require "$cgipa/setup.cgi";
&GetCookies;
open(TITLES,"$filepath/list/bbs");
@hastitles=<TITLES>;
close(TITLES);
for ($i=0; $i<8; $i++){
$hastitle=@hastitles[$i];
if($hastitle ne ""){
($rcomment)=split(/\t/,$hastitle);
chomp($rcomment);
open(TITLES,"$filepath/list/$rcomment");
$m=<TITLES>;
close(TITLES);
($rtitles,$rthistime,$rusername,$nr)=split(/\t/,$m);
$new="$new<table border=0 width=98% bgcolor=$bgcolor0 cellspacing=1 cellpadding=0 height=64><tr><td width=100% height=20><p align=center><font color=$bgcolor4>$rtitles</font></td></tr><tr><td width=100% height=44><table border=0 width=100% cellspacing=1 cellpadding=0 height=60><tr><td width=100% bgcolor=$bgcolor2 height=38><table border=0 width=100% cellspacing=3><tr><td width=100%>$nr</td></tr></table></td></tr><tr><td width=100% bgcolor=$bgcolor2 height=18><p align=right>發布人 $rusername 發布時間 <font style='family:arial; font-size: 7pt'>$rthistime</font></td></tr></table></td></tr></table></center><br>";
}}
&css;
print <<EOF;
<TITLE>公告欄</TITLE><body background="$imagurl/bei.gif"><br>
<table border="0" width="95%" cellspacing="1"><tr><td width="50%">[<a href=javascript:window.close();><font color=$bgcolor0>關閉窗口</font></a>]</td><td width="50%" align="right">[<a onclick=javascript:window.close(); href=newtopic.cgi?id=$id&bbsname=公告欄 target=_blank><font color=$bgcolor0>發布公告</font></a>]</td></tr></table>
$new
<center><font color=C0C0C0 style=font-size:7pt>Powered by <a href=http://www.yuzi.net target=_blank><font color=C0C0C0 style=font-size:7pt>Yuzi Studios</a> © 2001<br>Yuzi Bulletin Board Version<font style=font-size:7pt><sup><b>TM</b></sup></font> $ver
</BODY></HTML>
EOF
######################### END OF SCRIPT #########################
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -