📄 ikonadmin.lib

📁 绿叶网络小学校园网-完全适合小学的网站
💻 LIB
字号:
#############################################################
# Ikondiscussion v2.1
# Copyright 2000 Ikondiscussion.com - All Rights Reserved
# Ikondiscussion is a trademark of Ikondiscussion.com
#
# Software Distributed by: Ikondiscussion.com
# Visit us online at http://www.ikondiscussion.com
# Email us on boards@ikondiscussion.com
#
# All files written by Matthew Mecham
#############################################################


sub adminlogin {

    $inmembername =~ s/\_/ /g;
    print qq(
    
    <tr><td bgcolor="#333333" colspan=2><font face=宋体 color=#FFFFFF>
    <b>欢迎来到 ib2000 论坛管理中心</b>
    </td></tr>
    <form action="$boardurl/$adminprog" method="post">
    <input type=hidden name="action" value="login">
    <tr>
    <td bgcolor=#EEEEEE valign=middle colspan=2 align=center><font face=宋体 color=#333333><b>请输入您的用户名、密码登陆</b></font></td></tr>
    <tr>
    <td bgcolor=#FFFFFF valign=middle width=40% align=right><font face=宋体 color=#555555>请输入您的用户名</font></td>
    <td bgcolor=#FFFFFF valign=middle><input type=text name="membername" value="$inmembername"0></td></tr>
    <tr>
    <td bgcolor=#FFFFFF valign=middle width=40% align=right><font face=宋体 color=#555555>请输入您的密码</font></td>
    <td bgcolor=#FFFFFF valign=middle><input type=password name="password" value="$inpassword"0></td></tr>
    <tr>
    <td bgcolor=#FFFFFF valign=middle colspan=2 align=center><input type=submit name="submit" value="登 陆"></form></td></tr>
    <tr>
    <td bgcolor=#FFFFFF valign=middle align=left colspan=2><font face=宋体 color=#555555>
    <blockquote><b>请注意</b><p>
    <b>只有论坛的坛主才能登陆论坛管理中心。<br>
    未经过授权的尝试登陆行为将会被记录在案！</b><p>
    在进入论坛管理中心前，请确定你的浏览器打开了 Cookie 选项。<br>
    Cookie 只会存在于当前的浏览器进程中。为了安全起见，当你关闭了浏览器后，Cookie 会失效并被自动删除。</blockquote>
    </td></tr>
    </table></td></tr></table>
    );
    
}


sub admintitle {
    
print qq~
    <html>
    <head>
    <title>ib2000 - 论坛管理中心</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    
    <style type="text/css">
		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>
    <script language="javascript"> 
    function save_changes() { 
    document.the_form.process.value="true"; 
    } 
    function preview_template() { 
    document.the_form.target="_blank"; 
    document.the_form.process.value="preview template";
    }
    </script>
    </head>
    <body bgcolor="#555555" topmargin=5 leftmargin=5>
    <table width=95% cellpadding=0 cellspacing=1 border=0 bgcolor=#000000 align=center>
    <tr><td>
    <table width=100% cellpadding=0 cellspacing=1 border=0>
    <tr><td width=25% valign=top bgcolor=#FFFFFF>
    <table width=100% cellpadding=6 cellspacing=0 border=0>
    <tr><td bgcolor="#333333"><font face=宋体 color=#FFFFFF>
    <b>管理菜单</b>
    </td></tr>
    <tr>
    <td bgcolor="#EEEEEE"><font face=宋体 color=#333333><b>用户管理</b>
    </td></tr>
    <tr>
    <td bgcolor="#FFFFFF"><font face=宋体 color=#333333>
    >> <a href="$setmembersprog">用户管理</a>
    </td></tr>
    
    <tr>
    <td bgcolor="#EEEEEE"><font face=宋体 color=#333333><b>论坛管理</b>
    </td></tr>
    <tr>
    <td bgcolor="#FFFFFF"><font face=宋体 color=#333333>
    >> <a href="$setforumsprog">论坛管理</a>
    </td></tr>
    
    <tr>
    <td bgcolor=#EEEEEE><font face=宋体 color=#333333><b>设置管理</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF><font face=宋体 color=#333333>
    >> <a href="$stylesprog">风格设置</a><br>
    >> <a href="$varsprog">变量设置</a><br>
    >> <a href="$membertitlesprog">用户等级</a><br>
    >> <a href="setbadwords.cgi">不良词语过滤</a>
    </td></tr>
    
    <tr>
    <td bgcolor=#EEEEEE><font face=宋体 color=#333333><b>页首页尾</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF><font face=宋体 color=#333333>
    >> <a href="checklog.cgi">检测 hack 日志</a><br>
    >> <a href="checkboard.cgi">检查论坛</a><br>
    >> <a href="settemplate.cgi">编辑论坛模板</a><br><br>
    >> <a href="$boardurl/$forumsummaryprog">进入您的论坛</a>
    </td></tr>
    
    <tr>
    <td bgcolor=#EEEEEE><font face=宋体 color=#333333><b>ib2000 信息</b>
    </td></tr>
    <tr>
    <td bgcolor=#FFFFFF align=left>
    <span class="large">版本：</span><span class="body">$versionnumber</span><p>
    <font face=宋体 color="#333333">
    中文版权所有： <a href="http://www.cgier.com/" target=_blank>CGI 编程者之家</a><p>
    技术支持论坛： <a href="http://www.leobbs.com/">网酷论坛</a>
    </td></tr></table>
    </td><td width=70% valign=top bgcolor=#FFFFFF>
    <table width=100% cellpadding=6 cellspacing=0 border=0>
    ~;

}



sub parseadminform {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s/\|/&brvbar\;/g;
        $value =~ s/\"/&quot\;/g;
        $value =~ s/\</&lt\;/g;
        $value =~ s/\>/&gt\;/g;
        $value =~ s/\;/\\\;/g;
        $value =~ s/<!--(.|\n)*-->//g;
        $header =~ s/\@/\\\@/g;
        $FORM{$name} = $value;
        }
    }

1;
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -