<?php
/*--------------以下为设定部分---------------------------------*/
$gname = "index.php";/*本文件的名称*/
$gfname = "bate.php";/*用于存放程序的文件的文件名及路径*/
$gtitle = ".: 阿志网络 :.";/*下载页面的标题，显示在TITLE里面*/
$homepage = "http://binbaggio.my.freedim.net";/*主页地址*/
$imgurl = "images/";/*图片文件地址,本程序所用的图片所在目录的url地址，注意在最后加上"/"*/
$maxlen = "2000";/*设定介绍的最大长度(字节)*/
$psd = "1234";/*版主密码*/
$coop = 20;/*每页显示多少个程序*/
$copl = 7;/*页连接将出现多少个*/
$html = 0;/*是否支持html,0为不支持,1为支持*/
$bgcolor1 = "#f7f7f7";/*显示程序条目背景颜色1*/
$bgcolor2 = "#ffffff";/*显示程序条目背景颜色2*/
$titlebgcolor = "#909099";/*表格标题背景颜色*/
$titletextcolor = "#ffffff";/*表格标题文字颜色*/
$signcolor = "#000fff";/*突出显示的颜色*/
$bgboard = "#dcdcdc";/*表格边框颜色*/
/*--------------以上为设定部分--------------------------------*/




/*--------------以下部分无需改动------------------------------*/
function acheck($acceptname,$ahtml){
if($ahtml==0){$acceptname=strip_tags($acceptname);}/*如果不允许HTML标记则剔除标记*/
$acceptname=str_replace("\r\n","<br>",$acceptname);/*把回车换行替换成<br>*/
$acceptname=str_replace("|","│",$acceptname);/*把"|"转化为制表符，因为存储用"|"做分隔符，所以不能输入这个符号*/
$acceptname=stripslashes($acceptname);/*去掉反斜线字符"\"*/
return $acceptname;
}



if(!file_exists($gfname)){echo("无法定位用于存放程序的".$gfname."文件！！！");}/*判断文件是否存在,如果不存在则提示*/
else{/*如果文件存在*/?>

<html><head>
<meta content="text/html; charset=gb2312" http-equiv=content-type>
<style type=text/css>
body {color:#000000;background-color:#ffffff;font-size:12px;font-family:tahoma,verdana,ms sans serif,courier new;}
td,tr {font-size:12px;}
a:link {color: #336699;text-decoration:none;}
a:visited {color: #6699FF;text-decoration:none;}
a:hover {color: red}
font {text-decoration: none}
input.text,input.file,select,textarea {color:#000000;background-color:#ffffff;border:1 solid #101010}
input.buttom{color: #000000; border-width: 1px; padding: 1px; font-size: 12px; border-color: #000000;  height: 18px; background-color: #dedfdf; }
</style>

<?
if(empty($actionsign)){/*如果$actionsign为空则显示程序*/

if(empty($pageno)){$pageno = 1;}/*判断是否输入了页码，如果没有输入，则显示第一页*/
$garray = file($gfname);/*把文件读道数组中,$garray为存放所有程序的数组，每个程序为数组的一个元素，第0个元素存放编号最大值*/
$cog = count($garray)-1;/*计算文件行数，即程序数目,CountOfGuest,因为第一行存放编号，所以减去一行*/
$fnopl=(ceil($pageno/$copl)-1)*$copl+1;/*FirstNoOfPageLink,计算显示页连接的第一个页码*/
$fnog=$cog-($pageno-1)*$coop;/*FirstNoOfGuest,计算页码为$pageno的页面应该显示的第一条程序编号*/
$mpln=ceil($cog/$coop);/*计算最大页码,MaxPageLinkNo*/?>

<title><? echo $gtitle;?></title></head>
<body onselectstart="return false" marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<div align="center"><br>
<a href="<? echo $gname?>?actionsign=add"><img src="<? echo $imgurl;?>sign2.gif" alt="我要发布程序" border=0>
</a>&nbsp;<a href="<? echo $homepage;?>"><img src="<? echo $imgurl;?>home2.gif" alt="返回主页" border=0></a>
</div>

<table cellspacing=1 border=0 width=70% cellpadding="0" align="center">
<tr><td valign="bottom" align="left">
目前程序总数有: <font color=<? echo $signcolor;?>><? echo $cog;?></font>个,
<font color=<? echo $signcolor;?>><? echo $coop;?></font>>个为一页,总共有
<font color=<? echo $signcolor;?>><? echo $mpln;?></font>页,当前页
<font color=<? echo $signcolor;?>><? echo $pageno;?></font></td>

<td align="right">
<? /*显示页连接*/
if($cog>$coop){/*如果程序数量小于等于每页显示的程序数，则不显示页连接*/
	if($pageno>1){/*如果页码大于一，则显示"[<]"*/
		?><a href="<? echo $gname;?>?pageno=<? echo($pageno-1);?>">[<]</a><? }
	if($pageno>$copl){/*如果页连接大于每页出现的页连接总数，即页码"1"没有当前页码连接中显示，则显示"[1][<<]-"*/
		?><a href="<? echo $gname;?>?pageno=1">[1]</a><a href="<? echo $gname;?>?pageno=<? echo($pageno-$copl);?>">[<<]</a>-<? }
	for($i=0;$i<$copl;$i++){/*通过循环显示页连接*/
		if($fnopl+$i<=$mpln){/*如果计算得到的页码小于最大页码，则显示页码*/
			if($pageno==$fnopl+$i){/*如果要显示的页码为当前页码，则不显示超级联接*/
				?><font color=#000000>[<? echo($fnopl+$i);?>]</font><? }
			else{
				?><a href="<? echo $gname;?>?pageno=<? echo($fnopl+$i);?>">[<? echo($fnopl+$i);?>]</a><? }
		}else /*如果计算得到的页码大于最大页码，则不显示，直接跳出*/break;}
	if($mpln > ceil($pageno/$copl)*$copl){/*如果最大页码数没有在当前页码连接中显示，则显示"-[>>][最大页码数]"*/
		?>-<a href="<? echo $gname;?>?pageno=<? 
		if($pageno+$copl>$mpln){/*判断"[>>]"要连接到的页码，如果计算结果超过最大页码，则显示最大页码，如果不超过，则"显示当前页码数"+"每页出现页码连接数"*/
			echo($mpln);}
		else{echo($pageno+$copl);
		}?>">[>>]</a><a href="<?php echo $gname;?>?pageno=<? echo($mpln);?>">[<? echo($mpln);?>]</a>
	<? }
	if($pageno<$mpln){/*如果当前页码小于最大页码，则显示"[>]"*/
		?><a href="<? echo $gname;?>?pageno=<? echo($pageno+1);?>">[>]</a><? 
	}
}
?>
</td></tr></table>
  
<table border=0 cellpadding=0 cellspacing=0 width="70%" align="center"><tr bgcolor=<? echo $bgboard;?>><td>
<table width=100% border=0 cellspacing=1 cellpadding=4><tr bgcolor="<? echo $titlebgcolor;?>">
<td valign="middle" width=18%><font color=<? echo $titletextcolor;?>>程序名称:</font><br></td>
<td valign="middle" width=82%><font color=<? echo $titletextcolor;?>>程序介绍:</font></td>
</tr></table></td></tr></table>

<?
/*将每条程序信息拆解到$larray数组中，数组内容依次为：
0.程序编号，没什么用/1.姓名/2.地址，即来自哪里/3.电子邮件/4.主页/5.程序内容/6.程序日期时间/7.心情符号编号/8.系统信息
9.ip地址/10.评价内容/11.评价的日期时间/12.提交程序时生成的编码，用于防止重复提交/13.性别，用于确定头像/14.icq号码/15.oicq号码
*/
if($cog<1){/*判断现在是否有程序*/echo "<center><br>目前没有任何程序！！<br></center>";}else{
for($i=$fnog;$i>$fnog-$coop;$i--){/*根据$fnog，即此页($pageno页)显示的第一条程序号码，显示第$fnog至$fong-$coop条程序*/
	if($i>0){/*判断程序编号是否溢出，如果没有溢出则开始调出并输出程序内容*/
		$larray = explode("|",$garray[$i]);/*将第i条程序拆解到数组中，并将数组赋到各个变量中*/
		$bianhao = $larray[0];
		$xingming = $larray[1];
		$dizhi = $larray[2];
		$email = $larray[3];
		$zhuye = $larray[4];
		$liuyanneirong = $larray[5];
		$liuyanshijian = $larray[6];
		$xinqingfuhao = $larray[7];
		$xitongxinxi = $larray[8];
		$ipdizhi = $larray[9];
		$huifuneirong = $larray[10];
		$huifushijian = $larray[11];
		$biaoshihaoma = $larray[12];
		$xingbie = $larray[13];
		$icq = $larray[14];
		$oicq = $larray[15];
		if($bgcol==$bgcolor1){$bgcol=$bgcolor2;}else{$bgcol=$bgcolor1;}//隔行不同颜色显示
?>

<table width="70%" border="0" cellpadding="0" cellspacing="0" align="center">
  <tr bgcolor=<? echo $bgboard;?>>
    <td> 
      <table width="100%" border="0" cellspacing="1" cellpadding="4">
        <tr bgcolor=<? echo $bgcol?>>
		  <td rowspan="3" width="18%" valign="top" align="center">
            <table border="0" cellpadding="0" cellspacing="0">
				<tr><td align="center" width="100%"><font color=<? echo $signcolor;?>><? echo $xingming;?></font></td></tr>
				<tr><td align="center" width="100%"><br>
					<? if (strlen($dizhi)>0){?><hr>推荐人:<? echo $dizhi;}?></td></tr>
			</table>
		  </td>
          <td align="left" valign="top"> 
            <table width="100%" border="0" cellpadding="0" cellspacing="0" valign="top">
              <tr>
                <td width=24><img src="<? echo($imgurl);?>icon<? echo $xinqingfuhao;?>.gif" border=0 align="abscenter" width="18" height="18"></td>
                <td>发布时间: <? echo $liuyanshijian;?></td>
                <td align="right" valign="top"> 
                  <img src="<? echo($imgurl);?>ip.gif" alt="<? echo $ipdizhi;?>" align="absmiddle" border=0 width=13 height=13>&nbsp;&nbsp; 
                  <img src="<? echo($imgurl);?>system.gif" alt="<? echo $xitongxinxi;?>" align="absmiddle" border=0 width=13 height=13> 
               </td>
              </tr>
			</table>
          </td>
        </tr>
		<tr bgcolor=<? echo $bgcol;?> width=82%>
		  <td align="left" valign="top" height="40">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
				<td valign="top" <?echo "style='WORD-BREAK: break-all'";?>>
					<? echo $liuyanneirong;if(strlen($huifuneirong)>0){?>
					<hr size=1 noshade><font color=<? echo $signcolor;?>>版主评价</font>: (<? echo $huifushijian;?>)<br><? echo $huifuneirong;}?>
				</td>
			  </tr>
			</table>
		  </td>
		</tr>
		<tr bgcolor=<? echo $bgcol;?>>
          <td valign="bottom"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" height="12">
              <tr>
				<td valign="bottom">
					<img src="<? echo $imgurl;?>reply.gif" alt="评价该程序" align="absmiddle" border=0 width=16 height=16><a href="<? echo $gname;?>?actionsign=replay&pageno=<? echo $pageno;?>&biaoshihaoma=<? echo $biaoshihaoma;?>"> 评价</a>
					<img src="<? echo $imgurl;?>recycle.gif" alt="删除该程序" align="absmiddle" border=0 width=16 height=16><a href="<? echo $gname;?>?actionsign=delete&pageno=<? echo $pageno;?>&biaoshihaoma=<? echo $biaoshihaoma?>"> 删除</a>
					<? if(strlen($email)>0){?><img src="<? echo $imgurl;?>home.gif" alt="访问程序主页" align="absmiddle" border=0 width=16 height=16><a href="<? echo $email;?>"> 主页 </a><? }
					if(strlen($zhuye)>0){?><img src="<? echo $imgurl;?>down.gif" alt="下载程序" align="absmiddle" border=0 width=16 height=16><a href="<? echo $zhuye;?>" target="_blank"> 下载</a><? }?>
				</td>
			  </tr>
			</table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>
<?
	}/*end if 以上处理程序编号不溢出的情况*/
	else break;/*如果溢出则直接跳出循环*/
}/*end for 循环处理结束*/
}/*end if 以上处理有程序的情况*/
?>

<table cellspacing=1 border=0 width=70% cellpadding="0" align="center">
<tr><tr><td align="left">所有时间均为<font color=<? echo $signcolor;?>>北京时间</font></td>
<td align="right">
<? /*显示页连接*/
if($cog>$coop){/*如果程序数量小于等于每页显示的程序数，则不显示页连接*/
	if($pageno>1){/*如果页码大于一，则显示"[<]"*/
		?><a href="<? echo $gname;?>?pageno=<? echo($pageno-1);?>">[<]</a><? }
	if($pageno>$copl){/*如果页连接大于每页出现的页连接总数，即页码"1"没有当前页码连接中显示，则显示"[1][<<]-"*/
		?><a href="<? echo $gname;?>?pageno=1">[1]</a><a href="<? echo $gname;?>?pageno=<? echo($pageno-$copl);?>">[<<]</a>-<? }
	for($i=0;$i<$copl;$i++){/*通过循环显示页连接*/
		if($fnopl+$i<=$mpln){/*如果计算得到的页码小于最大页码，则显示页码*/
			if($pageno==$fnopl+$i){/*如果要显示的页码为当前页码，则不显示超级联接*/
				?><font color=#000000>[<? echo($fnopl+$i);?>]</font><? }
			else{
				?><a href="<? echo $gname;?>?pageno=<? echo($fnopl+$i);?>">[<? echo($fnopl+$i);?>]</a><? }
		}else /*如果计算得到的页码大于最大页码，则不显示，直接跳出*/break;}
	if($mpln > ceil($pageno/$copl)*$copl){/*如果最大页码数没有在当前页码连接中显示，则显示"-[>>][最大页码数]"*/
		?>-<a href="<? echo $gname;?>?pageno=<? 
		if($pageno+$copl>$mpln){/*判断"[>>]"要连接到的页码，如果计算结果超过最大页码，则显示最大页码，如果不超过，则"显示当前页码数"+"每页出现页码连接数"*/
			echo($mpln);}
		else{echo($pageno+$copl);
		}?>">[>>]</a><a href="<?php echo $gname;?>?pageno=<? echo($mpln);?>">[<? echo($mpln);?>]</a>
	<? }
	if($pageno<$mpln){/*如果当前页码小于最大页码，则显示"[>]"*/
		?><a href="<? echo $gname;?>?pageno=<? echo($pageno+1);?>">[>]</a><? 
	}
}
?>
</td></tr></table>

<div align="center">
<a href="<? echo $gname?>?actionsign=add"><img src="<? echo $imgurl;?>sign2.gif" alt="我要发布程序" border=0>
</a>&nbsp;<a href="<? echo $homepage;?>"><img src="<? echo $imgurl;?>home2.gif" alt="返回主页" border=0></a>
<br><br><a href="http://web.nyist.net/~niky/ntb/" target="_blank">阿志网络</a> 版权所有&nbsp;&reg;CopyRight 2002</div><br>
</body></html>
<?
}/*以上处理查看程序的情况*/



else{/*一下为处理用户其他操作：add,delete,replay,saveadd,savedelete,savereplay*/

switch ($actionsign) {



case "add": /*输出表单让用户填写*/?>
<title><? echo $gtitle;?></title></head>
<body onselectstart="return false" marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<div align="center">
<table border=0 cellpadding=4 cellspacing=1 width=70%>
<tr><td valign="top">
<a href="<?php echo $gname?>"><img src="<? echo $imgurl?>view2.gif" alt="查看已发布程序" border=0></a>
</td></tr></table>
<!-- form.cjs -->
<script language="JavaScript1.2">
function check(theForm,textlengh) {
	if(theForm.xingming.value == "" || theForm.liuyanneirong.value == "" ) {
		alert("请检查名字和介绍是不是都输入了，这两项是必须要的！");
		return false;
	}
	if (theForm.liuyanneirong.value.length > textlengh){
		alert("对不起，你的介绍不能超过" + textlengh + "个字符！");
		return false;
	}	
}
function confirm_reset(){
	if (confirm("该项操作要清除全部的内容，你确定要清除吗?")){
		return true;
	}
	return false;
}
</script>
<table border=0 cellpadding=0 cellspacing=0 width="70%"><tr><td bgcolor=<? echo $bgboard;?>>

<table border=0 cellpadding=4 cellspacing=1 width=100%>
<tr bgcolor=<? echo $titlebgcolor?>><td width="16%"><FONT color=<? echo $titletextcolor;?>><center>填写内容</center></font>

</td>
<td valign="top"><font color=<? echo $titletextcolor;?>>注意：带*的为必填选项. </font>
</td></tr>
<tr bgcolor=<? echo $bgcolor1;?>>
<td width="16%" align="center">*程序名称:</td>
<td><form method="POST" action="<? echo $gname;?>?actionsign=saveadd"><input type="text" class=text value="" name="xingming" size="15" maxlength="15">
</td></tr>
<tr bgcolor=<? echo $bgcolor2;?>><td width="16%" align="center">
推荐人:</td>
<td valign="top">
<INPUT class=text type="text" value="" name="dizhi" size=25 maxlength=15>
</td></tr><tr bgcolor=<? echo $bgcolor1;?>><td width="16%" align="center">
程序主页:</td>
<td valign="top">
<input type="text" class=text value="http://" name="email" size="35" maxlength="50">
</td></tr><tr bgcolor=<? echo $bgcolor2;?>><td width="16%" align="center">
下载地址:</td>
<td valign="top">
<input class=text type="text" value="http://" name="zhuye" size=55 maxlength=70>
</td></tr>
<tr bgcolor=<? echo $bgcolor1;?>>
<td width="16%" valign="top" align="center">
表情图标:</td>
<td>
<input type="radio" name="xinqingfuhao" value="1" checked>&nbsp;<img src="<? echo $imgurl?>icon1.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="10"  >&nbsp;<img src="<? echo $imgurl?>icon10.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="11"  >&nbsp;<img src="<? echo $imgurl?>icon11.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="12"  >&nbsp;<img src="<? echo $imgurl?>icon12.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="13"  >&nbsp;<img src="<? echo $imgurl?>icon13.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="14"  >&nbsp;<img src="<? echo $imgurl?>icon14.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="2"  >&nbsp;<img src="<? echo $imgurl?>icon2.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<br>
<input type="radio" name="xinqingfuhao" value="3"  >&nbsp;<img src="<? echo $imgurl?>icon3.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="4"  >&nbsp;<img src="<? echo $imgurl?>icon4.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="5"  >&nbsp;<img src="<? echo $imgurl?>icon5.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="6"  >&nbsp;<img src="<? echo $imgurl?>icon6.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="7"  >&nbsp;<img src="<? echo $imgurl?>icon7.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="8"  >&nbsp;<img src="<? echo $imgurl?>icon8.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<input type="radio" name="xinqingfuhao" value="9"  >&nbsp;<img src="<? echo $imgurl?>icon9.gif" height=18 width=18 align="abxcenter">&nbsp;&nbsp;
<BR></td></tr>
<tr bgcolor=<? echo $bgcolor2;?>><td width="16%" valign="top" align="center">
*程序介绍:
</td><td><textarea name="liuyanneirong" cols="55" rows="5"></textarea>
</td></tr>
<tr bgcolor=<? echo $bgcolor1;?>><td valign="top">&nbsp;
</td><td>注意 HTML 功能的状态: <? if($html==0){echo "关闭";}else{echo "启动";}?></td></tr>
</table></center></td></tr></table>
<center><br>
<input type="Submit" class=buttom name="submit" value="  确 定  " onclick="return check(this.form,<? echo $maxlen;?>)">
<input type="reset" class=buttom name="reset" value="  清 除 内 容  " onclick="return confirm_reset()">
</center></form>
<a href="http://web.nyist.net/~niky/ntb/" target="_blank">阿志网络</a> 版权所有&nbsp;&reg;CopyRight 2002
</center></body></html>
<? break;/*以上为actionsign==add的情况*/



case "delete":/*输出删除页面，让用户填写密码，然后提交*/?>
<title><?php echo $gtitle;?></title></head>
<body onselectstart="return false" marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<div align="center">

<br><br><br><br><br><br>
<table border="0" cellpadding="1" cellspacing="0" width="70%"><tr bgcolor=<? echo $bgboard;?>><td>
<table cellspacing="0" cellpadding="3" width="100%" border="0" bgcolor=<? echo $bgcolor1;?>>  
<tr bgcolor=<? echo $titlebgcolor;?> align="center"><td><font color=<? echo $titletextcolor;?>>删 除 留 言</font></td></tr>
<tr>
            <td>在删除程序前，请先输入你的管理密码。</td>
          </tr>
<tr><td align="center">
<form method="post" action="<? echo $gname;?>">
<input type="hidden" name="actionsign" value="savedelete">
<input type="hidden" name="pageno" value="<? echo $pageno;?>">
<input type="hidden" name="biaoshihaoma" value="<? echo $biaoshihaoma;?>">
<table cellspacing="0" cellpadding="3" width="100%" border="0">
	<tr><td align="center"><img src="<? echo $imgurl;?>passwd.gif" align="absmiddle"> 管理密码</td>
	<td><input type="password" class=text name="password" size="20" maxlength="10"></td>
	</tr></table>
</td></tr>
<tr><td align="center">
<input type="button" class=buttom value=" 取 消 " onclick="history.go(-1)">&nbsp;&nbsp;<input type="submit" class=buttom value=" 确 定 "></td></tr>
</table></td></tr></table></form>

<a href="http://web.nyist.net/~niky/ntb/" target="_blank">阿志网络</a> 版权所有&nbsp;&reg;CopyRight 2002
</CENTER></BODY></HTML>
<? break;/*以上为actionsign=delete的情况*/



case "replay":/*输出评价页面，让用户填写评价内容*/?>
<title><?php echo($gtitle);?></title></head>
<body onselectstart="return false" marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<div align="center">
<br><br>
<table border=0 cellpadding=4 cellspacing=1 width=70%>
<tr><td valign="top">
<a href="<?php echo $gname?>"><img src="<? echo $imgurl?>view2.gif" alt="查看程序" border=0></a>
</td></tr></table>
<table border=0 cellpadding=0 cellspacing=0 width="70%"><tr><td bgcolor=<? echo $bgboard;?>>
<table border=0 cellpadding=4 cellspacing=1 width=100%>
<tr bgcolor=<? echo $titlebgcolor;?>><td>
<form method="post" action="<? echo $gname;?>">
<input type="hidden" name="actionsign" value="savereplay">
<input type="hidden" name="pageno" value="<? echo $pageno;?>">
<input type="hidden" name="biaoshihaoma" value="<? echo $biaoshihaoma;?>">
<font color=<? echo $titletextcolor;?>>评价程序</font></td>
<td><font color=<? echo $titletextcolor;?>>只有版主才能评价。要发布点&nbsp;</font><a href="<? echo $gname;?>?actionsign=add" style="color: <? echo $signcolor;?>;">这里</a><font color=<? echo $titletextcolor;?>>&nbsp;。</font>
</td></tr><tr bgcolor=<? echo $bgcolor1;?>><td align="center">密码:</td>
<td valign="top">
<input class=text value="" type="password" name="password" size=25 maxlength=25>
</td></tr>
<tr bgcolor=<? echo $bgcolor2;?>><td align="center" valign="top">
你的评价:
</td><td><textarea name="huifuneirong" cols="55" rows="8"></textarea>
</td></tr><tr bgcolor=<? echo $bgcolor1;?>><td valign="top">&nbsp;
</td><td>注意：如果评价内容为空，那将清除以前的评价内容。</td></tr>
</table></center></td></tr></table>
<center><p>
<input type="submit" name="submit" class=buttom value="  确 定  ">
<input type="reset" name="reset" class=buttom value="  清 除 内 容  ">
</center></form>
<a href="http://web.nyist.net/~niky/ntb/" target="_blank">阿志网络</a> 版权所有&nbsp;&reg;CopyRight 2002
</center></body></html>
<? break;/*以上为actionsign=replay的情况*/




case "saveadd":/*处理用户添加程序的表单，把用户输入的内容存入文件*/
$shijian=getdate();/*取得时间日期*/
$liuyanshijian = $shijian[year]."-".$shijian[mon]."-".$shijian[mday]." ".$shijian[hours].":".$shijian[minutes].":".$shijian[seconds];
$ipdizhi=getenv("REMOTE_ADDR");/*取得IP地址*/
$xitongxinxi=getenv("HTTP_USER_AGENT");/*取得系统信息*/
$liuyanneirong=acheck($liuyanneirong,$html);/*用函数acheck检查输入的合法性*/
$xingming=acheck($xingming,0);
$dizhi=acheck($dizhi,0);
$email=acheck($email,0);
$zhuye=acheck($zhuye,0);
$garray = @file($gfname);/*把文件读道数组中,$garray为存放所有程序的数组，每条程序为数组的一个元素，第0个元素存放编号最大值*/
$bianhao = count($garray);/*计算编号*/

if(!strstr($zhuye,"http://")){$zhuye="http://".$zhuye;}
if($zhuye=="http://"){$zhuye="";}

/*取得标识号码，并把标识号码加一后存入文件*/
$fp=@fopen($gfname,"r+");
$biaoshihaoma=@fread($fp,10);
@rewind($fp);
@fwrite($fp,$biaoshihaoma+1,10);
@fclose($fp);
$larray=array($bianhao,$xingming,$dizhi,$email,$zhuye,$liuyanneirong,$liuyanshijian,$xinqingfuhao,$xitongxinxi,$ipdizhi,$huifuneirong,$huifushijian,$biaoshihaoma,$xingbie,$icq,$oicq);
$newguest = implode("|", $larray)."|\r\n";
$fp=@fopen($gfname,"a+");
@fwrite($fp,$newguest);
@fclose($fp);?>

<title>OK!</title><meta http-equiv=refresh content="0; url=<? echo $gname;?>"></head>
<BODY onselectstart="return false" bgcolor=#ffffff  text=#000000 link=#000080 alink=#800000 vlink=#2f2f4f marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<table width=100% height=100%><tr><td align="center"> 填加程序成功！<br><a href="<? echo $gname;?>">[ 返回程序列表 ]</a></font></td></tr></table></body></html>	
<?	break;/*以上处理acgionsign=saveadd的情况*/




case "savedelete":/*处理用户删除的表单，删除相应的程序*/
if($password==$psd){
	$garray=@file($gfname);
	$cog=count($garray);
	$fp=@fopen($gfname,"w+");
	@fwrite($fp,$garray[0]);
	for($i=1;$i<$cog;$i++){
		$larray = explode("|",$garray[$i]);/*将第i条程序拆解到数组中，并将数组赋到各个变量中*/
		if(!($biaoshihaoma==$larray[12])){@fwrite($fp,$garray[$i]);}
	}
	@fclose($fp);?>

<title>OK!</title><meta http-equiv=refresh content="0; url=<? echo $gname;?>?pageno=<? echo $pageno;?>"></head>
<BODY onselectstart="return false" bgcolor=#ffffff  text=#000000 link=#000080 alink=#800000 vlink=#2f2f4f marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<table width=100% height=100%><tr><td align="center"> 删除程序成功！<br><a href="<? echo $gname;?>?pageno=<? echo $pageno;?>">[ 返回程序列表 ]</a></font></td></tr></table></body></html>	
<?}	
else{ ?>
<title>ERROR!</title><meta http-equiv=refresh content="2; url=<? echo $gname;?>?actionsign=delete&pageno=<? echo $pageno;?>&biaoshihaoma=<? echo $biaoshihaoma;?>"></head>
<BODY onselectstart="return false" bgcolor=#ffffff  text=#000000 link=#000080 alink=#800000 vlink=#2f2f4f marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<table width=100% height=100%><tr><td align="center">密码不对！<br><a href="<? echo $gname;?>?actionsign=delete&pageno=<? echo $pageno;?>&biaoshihaoma=<? echo $biaoshihaoma;?>">[ 重试 ]</a></font></td></tr></table></body></html>
<? };
break;/*以上处理acgionsign=savedelete的情况*/


	

case "savereplay":/*处理用户评价的表单，把评价内容存入文件*/
if($password==$psd){
	$huifuneirong=acheck($huifuneirong,$html);/*用函数acheck检查输入的合法性*/
	$garray=@file($gfname);
	$cog=count($garray);
	$fp=@fopen($gfname,"w+");
	@fwrite($fp,$garray[0]);
	for($i=1;$i<$cog;$i++){
		$larray = explode("|",$garray[$i]);/*将第i条程序拆解到数组中，并将数组赋到各个变量中*/
		if(!($biaoshihaoma==$larray[12])){@fwrite($fp,$garray[$i]);}
		else{
			$larray[10]=$huifuneirong;
			$shijian=getdate();/*取得时间日期*/
			$larray[11] = $shijian[year]."-".$shijian[mon]."-".$shijian[mday]." ".$shijian[hours].":".$shijian[minutes].":".$shijian[seconds];
			$newreplay = implode("|", $larray);	
			@fwrite($fp,$newreplay);
		}
	}
	@fclose($fp);?>

<title>OK!</title><meta http-equiv=refresh content="0; url=<? echo $gname;?>?pageno=<? echo $pageno;?>"></head>
<BODY onselectstart="return false" bgcolor=#ffffff  text=#000000 link=#000080 alink=#800000 vlink=#2f2f4f marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<table width=100% height=100%><tr><td align="center"> 评价成功！<br><a href="<? echo $gname;?>?pageno=<? echo $pageno;?>">[ 返回程序列表 ]</a></font></td></tr></table></body></html>	
<?}	
else{ ?>
<title>ERROR!</title><meta http-equiv=refresh content="2; url=<? echo $gname;?>?actionsign=replay&pageno=<? echo $pageno;?>&biaoshihaoma=<? echo $biaoshihaoma;?>"></head>
<BODY onselectstart="return false" bgcolor=#ffffff  text=#000000 link=#000080 alink=#800000 vlink=#2f2f4f marginheight=0 marginwidth=0 topmargin=0 leftmargin=0 rightmargin=0>
<table width=100% height=100%><tr><td align="center">密码不对！<br><a href="<? echo $gname;?>?actionsign=replay&pageno=<? echo $pageno;?>&biaoshihaoma=<? echo $biaoshihaoma;?>">[ 重试 ]</a></font></td></tr></table></body></html>
<? };
break;/*以上处理acgionsign=savereplay的情况*/



default:
    echo "<br><br><br><br><center>What are you doing!</center>";
	break;
}
}
}/*以上处理文件存在的情况*/
?>