自己修改的附件管理系统（后台在线管理附件）

wishyou · 发表于 2005-10-16 12:48:42

希望有人帮忙把这个改成仿D4风格的啊

这只是小弟自己修改别人的。有些地方不对请大家指点一下喔

修改：

admin/attachments.php

在最下面添加：

<table border="0" class="tableborder" cellspacing="1" cellpadding="4" width="100%">
<tr><td class="header" colspan="2">附件在线管理系统</td></tr><br>
<table border="0" width="100%" bgcolor="#698CC3" cellspacing="1" cellpadding="3">
<tr>
<td width="33%" bgcolor="#FFFFFF" align="center"><a
href="attachments.php?action=list&dir=<?=$dir;?>">文件列表</a></td>
<td width="33%" bgcolor="#FFFFFF" align="center"><a
href="attachments.php?action=upload&dir=<?=$dir;?>">上存文件</a></td>
<td width="25%" bgcolor="#FFFFFF" align="center"><a
href="attachments.php?action=list">附件根目录</a>　</td>
</table>
<br>
<?
//---------------------------
function show($msg='',$url='')
{
echo "<script>
window.alert('$msg');
window.location ="$url";
</script>";
exit;
}
//---------------------------
//文件上存
if ($action=='list')
{
@$data_upload = $dir_path;
if(!@chdir($data_upload)) {echo'Dir error!';exit;}
@chdir($data_upload);
@$indexskin_dir = opendir(".");
while(@$indexskdir = readdir($indexskin_dir)) {
@$files[] = $indexskdir;
}
@closedir($indexskin_dir);
@$data_num = sizeof($files);
echo "<table border="0" width="100%" bgcolor="#698CC3" cellspacing="1"
cellpadding="3">";
echo "<tr><td width="7%" bgcolor="#FFFFFF">序号</td><td width="17%"
bgcolor="#FFFFFF">日期</td><td width="19%" bgcolor="#FFFFFF">类别 </td><td width="19%"
bgcolor="#FFFFFF">文件名</td><td width="19%" bgcolor="#FFFFFF">大小</td><td width="19%"
bgcolor="#FFFFFF">删除</td></tr>";
for ($i=0;$i<$data_num;$i++)
{
$filename = $files[$i];
if (is_file("$files[$i]"))
{
$ii=$i-2;
$file_0 = explode(".", $files[$i]);
$fname = $files[$i];
$ftype = $file_0[0];
$fsize = filesize("$files[$i]");
$s = $dir_path.'/'.$files[$i];
$s = base64_encode($s);
$fsize_all=$fsize_all+$fsize;
$etime = $nowtime - filectime("$filename");
$tmp_file[] = array(
'type' => $ftype,
'name' => $name,
'size' => $fize,
'time' => $etime,
's' => $s);
echo "<tr><td bgcolor="#EEEEEE"> $ii </td><td bgcolor="#FFFFFF">".date("Y-m-d
H:i:s",filectime("$filename"))."</td><td bgcolor="#EEEEEE"> $file_0[1] </td><td
bgcolor="#FFFFFF"><a href={$dir_imgpath}/{$files[$i]}
target=pic>$files[$i]</a></td><td bgcolor="#EEEEEE"> $fsize B</td><td
bgcolor="#FFEEEE"><a href=$PHP_SELF?action=adupdel&del=$s >删除</a></td></tr>";
}
else
{
$tmp_dir[] = array(
'dirname' => $filename);
}
}
echo "</table>";
$fsize_all = $fsize_all/1024;
$fsize_all = round($fsize_all);
echo "<br><font size=2 color=red>小计: 共有文件数 ".$ii." 占用空间 $fsize_all Kb</font><br>";
chdir("..");
}
?>
<table border="0" width="100%" bgcolor="#698CC3" cellspacing="1" cellpadding="3">
<tr>
<td width="100%" bgcolor="#EEEEEE">选择目录：</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">　
<?
if(is_array($tmp_dir)) {
foreach($tmp_dir as $value) {
$iii++;
if ($value[dirname]=='.' || $value[dirname]=='..'){
}else{
echo "<a href="attachments.php?action=list&dir=$value[dirname]">进入目录 $value[dirname]</a> |
";
}
if (($iii%8)==0){echo "<br><br>";}
}
}else{
echo "没有下一级目录了";
}
?>
</td>
</tr>
</table>
<?
//------------------------删除上存文件开始
if ($action==adupdel)
{
global $del;
$del = base64_decode("$del");
//$dir = $dir_path.'/'.$del;
if (!@is_file("$del")) {
show("$del 文件无法删除，可能是因为文件名含有特殊字符！",'attachments.php?action=list');
}
if (!@unlink("$del"))
{
show("$del 文件无法删除，请确认是否有该文件存在！",'attachments.php?action=list');
}
else
{
@unlink("$del");
show("文件 $del 已被删除！",'attachments.php?action=list&');
}
}
//------------------------删除上存文件结束
//上存管理程序结束
//上存程序开始
if ($action==upload)
{
global $phpfile,$phpfile_size,$phpfile_name,$dir,$PHP_SELF,$fs,$qz;
if ($upload==1)
{
if($phpfile != "") {
if( !$phpfile_size ) {
show ("上传的文件不存在或大小为0.");
}
if(file_exists("$dir_path/$phpfile_name")) {
show ("上传的文件已经存在.");
}
//$qz=base64_encode(date(YmdHis));
$filelz=substr($phpfile_name,-4);
if (($filelz!='.gif') && ($filelz!='.jpg') && ($filelz!='.png') && ($filelz!='.zip') && ($filelz!='.rar')) {
$msg = "上存的文件只能是gif,jpg,png,zip,rar格式，而你上存的竟然是\.$filelz 格式。";show($msg);
}
$qz=$phpfile_name;
$full_filename = explode(".", $phpfile_name);
@$fs=filesize($phpfile_name);
if ($fs>2048000) {
$fs_tmp=round($fs/1024);
$msg = "文件太大,超出2M 限定了。该文件大小为: $fs_tmp K";show($msg);
}
$file_extention = $full_filename[$fs];
if(!copy($phpfile, "$dir_path/$phpfile_name")) {
$msg = "文件无法上传."; show($msg);
}
if (!@rename("$dir_path/$phpfile_name","$dir_path/$qz")) {
$msg = "文件无法改名 $phpfile_name,$qz";show($msg);
}
else { @rename($phpfile_name,$qz);}
if(!unlink("$phpfile")) {
$msg = "临时文件没有删除."; show($msg);
}
$musictemp_url=$musictemp.$qz;
echo "<INPUT TYPE=text name=musictemp_url VALUE="$musictemp_url" size=70>";
echo "<br><br><a href=$PHP_SELF?action=list&dir=$dir>";
echo "（type= $full_filename[1] size= $fs ）上存成功，请点击这里返回！</a><br>";
}
}
//################################################################################
echo " <FORM action='$PHP_SELF?action=upload&&upload=1' method=post enctype='multipart/form-data'>
<INPUT TYPE=HIDDEN NAME=action VALUE=upload>
<INPUT TYPE=HIDDEN NAME=dir VALUE=$dir>
<INPUT TYPE=file NAME=phpfile SIZE=18>
<INPUT TYPE=SUBMIT VALUE='上存文件'>
</FORM>";
echo "<font color=red>上存的速度视乎你网速，如果你的网速比较慢，请耐心等待。</font><br>";
}
//上存程序结束
?>

复制代码

后台——附件相关——附件管理
可以看到效果啊

然后把附件放到跟目录，当然也可以放到其他位置。不过上面的路径要记得改才行喔～

[ 本帖最后由 wishyou 于 2005-10-16 14:14 编辑 ]

咕咕 · 发表于 2005-10-16 12:52:35

0000000000000000000000000

wishyou · 发表于 2005-10-16 12:53:19

原帖由咕咕于 2005-10-16 12:52 发表
0000000000000000000000000

灌水？

魔焰男孩 · 发表于 2005-10-16 12:55:05

效果？截图？

咕咕 · 发表于 2005-10-16 12:58:56

非灌水栽...是抢沙发栽....

xjbl · 发表于 2005-10-16 14:05:12

看看..

jimmyjimmyqqq · 发表于 2005-10-16 14:52:19

沒有沙發，只好支持！

jimmyjimmyqqq · 发表于 2005-10-16 15:02:12

不錯，我試試幫你改一下！

Shadowsong · 发表于 2005-10-16 15:16:06

echo "<font color=red>上存的速度视乎你网速，如果你的网速比较慢，请耐心等待。</font><br>";

应该是上传的速度视于你网速，如果你的网速比较慢，请耐心等待。

wishyou · 发表于 2005-10-21 14:41:30

原帖由 Shadowsong 于 2005-10-16 15:16 发表

应该是上传的速度视于你网速，如果你的网速比较慢，请耐心等待。

呵呵～没事的啦～自己改正就OK啊

		自动登录	找回密码
密码			立即注册

自己修改的附件管理系统（后台在线管理附件）

本帖子中包含更多资源

评分