misc.cgi

绿叶网络小学校园网-完全适合小学的网站

			<BLOCKQUOTE>代码：<hr noshade color=$fonthighlight>
			unless ( eq "$authenticateme") { <BR>
			print "错误的管理密码"; <BR>
			&unlock; <BR>
			exit; <BR>
			}<hr noshade color=$fonthighlight></FONT></BLOCKQUOTE>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[url]</font>http://www.CGIer.com<font color=$fonthighlight>[/url]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><a href="http://www.CGIer.com">http://www.CGIer.com</a></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[url=http://www.CGIer.com]</font>CGI 编程者之家<font color=$fonthighlight>[/url]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><a href="http://www.CGIer.com">CGI 编程者之家</a></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[email=webmaster\@cgier.com]</font>写信给我<font color=$fonthighlight>[/email]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><a href="mailto:webmaster\@cgier.com">写信给我</a></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[email]</font>webmaster\@cgier.com<font color=$fonthighlight>[/email]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><a href="mailto:webmaster\@cgier.com">webmaster\@cgier.com</a></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[b]</font>文字加粗体效果<font color=$fonthighlight>[/b]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><b>文字加粗体效果</b></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[i]</font>文字加倾斜效果<font color=$fonthighlight>[/i]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><i>文字加倾斜效果</i></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[u]</font>文字加下划线效果<font color=$fonthighlight>[/u]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><u>文字加下划线效果</u></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[size=4]</font>改变文字大小<font color=$fonthighlight>[/size]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font size=4>改变文字大小</font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[font=impact]</font>改变字体<font color=$fonthighlight>[/font]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font face=impact>改变字体</font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[color=red]</font>改变文字颜色<font color=$fonthighlight>[/color]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=red>改变文字颜色</font>
                </td>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[s]</font>文字上加删除线<font color=$fonthighlight>[/s]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><s>文字上加删除线</s></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[sup]</font>上标文字<font color=$fonthighlight>[/sup]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><sup>上标文字</sup></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[sub]</font>下标文字<font color=$fonthighlight>[/sub]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><sub>下标文字</sub></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[shadow=文字宽度,颜色,边界大小]</font>阴影文字<font color=$fonthighlight>[/shadow]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><table width=50 style="filter:shadow\(color=#f000ff\, direction=1)">阴影文字</table></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[GLOW=文字宽度,颜色,边界大小]</font>光晕文字<font color=$fonthighlight>[/GLOW]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><table width=50 style="filter:glow\(color=#00f0ff\, strength=1)">光晕文字</table></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[list]</font>开始列表<br><font color=$fonthighlight>[*]</font>列表项目<br><font color=$fonthighlight>[/list]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=left valign=middle>
                    <font face="$font" color="$fontcolormisc"><ul>开始列表<br><li>列表项目</ul></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[img]</font>http://www.joydown.com/ib2000/images/logo.gif<font color=$fonthighlight>[/img]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=left valign=middle>
                    <font face="$font" color="$fontcolormisc"><img src="$imagesurl/images/logo.gif" border=0></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[fly]</font>飞行文字特效<font color=$fonthighlight>[/fly]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=left valign=middle>
                    <font face="$font" color="$fontcolormisc"><marquee width=90% behavior=alternate scrollamount=3>飞行文字特效<\/marquee></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[move]</font>滚动文字特效<font color=$fonthighlight>[/move]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=left valign=middle>
                    <font face="$font" color="$fontcolormisc"><marquee width=90% scrollamount=3>滚动文字特效<\/marquee></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[swf]</font>http://www.micromedia.com/demo.swf<font color=$fonthighlight>[/swf]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc">插入一个 FLASH 文件</font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><font color=$fonthighlight>[sound]</font>http://www.cgier.com/demo.wav<font color=$fonthighlight>[/sound]</font>
                    </font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc">插入一个背景声音文件</font>
                </td>
                </tr>
            </table>
        </td></tr>
    </table>
    </body>
    </html>
    ~;
    
} # end elsif 








elsif ($action eq "aim") {

$cleanboardname = $boardname;
$cleanboardname =~ s/ /\+/sg;

$output = qq~
    
    <html><head><title>$boardname 的 AIM 寻呼</title>
<style>
		A:visited {	TEXT-DECORATION: none	}
		A:active  {	TEXT-DECORATION: none	}
		A:hover   {	TEXT-DECORATION: underline overline	}
		A:link 	  {	text-decoration: none;}
		
	        A:visited {	text-decoration: none;}
	        A:active  {	TEXT-DECORATION: none;}
	        A:hover   {	TEXT-DECORATION: underline overline}
	        
		.t     {	LINE-HEIGHT: 1.4					}
		BODY   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		SELECT {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		INPUT  {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px;	}
		TEXTAREA{	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		DIV    {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		FORM   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		OPTION {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		P	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		BR	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}

</style>
    </head>
    <body topmargin=10 leftmargin=0>
    <table width=95% cellpadding=0 cellspacing=1 border=0 align=center bgcolor=$tablebordercolor>
    <tr>
        <td>
        <table width=100% cellpadding=6 cellspacing=1 border=0>
            <tr>
                <td bgcolor="$titlecolor" align=center valign=middle>
                    <font face="$font" color="$titlefontcolor"><b>$boardname - AIM 寻呼</b></font>
                    </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbacktwo" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc">
                    <a href="aim:goim?screenname=$aimname&message=Hi.+I'm+from+$cleanboardname">给 $aimname 发个消息</a></font>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc">
                    <a href="aim:addbuddy?screenname=$aimname">加入 $aimname 到你的 AIM 好友清单</a></font>
                </td>
                </tr>
            </table>
        </td></tr>
    </table>
    </body>
    </html>
    ~;


} # end aim

elsif ($action eq "newmsg") {

$output = qq~
    
    <html><head><title>有新的短消息</title></head>
    <body topmargin=10 leftmargin=0><br><br><br><br>
    <font face="$font" color="$titlefontcolor"><center><a href=$messangerprog><img src="$imagesurl/images/newmail.gif" border=0></a>有新的短消息<br><br><a href=$messangerprog>按此查看</a><br>
    </body>
    </html>
    ~;
    
} # end elsif newmsg

###########
print header(-charset=>"gb2312");
print $output;

exit;