asp+fso在线管理图片功能原创

careyourself

2019-04-02

代码如下：

<% 
'--------------------------------------------- 
'##############20060528新增加了对端口的支持 
'作者：dxy QQ:461478385 Email:[email protected] 
'功能完善 
%> 
<!--#include file="global.asp"--> 
<!--#include file="session.asp"--> 
<% 
Set MyFile=Server.CreateObject("Scripting.FileSystemObject") 
  if request.form("action")="delall" then 
     Num=request.form("delFileName").count 
    for x=1 to Num 
    thedelall=Server.Mappath("../upload/"&request.form("delFileName")(x)) 
    if myfile.fileexists(thedelall) then 
    myfile.deletefile(thedelall) 
    end if 
    next 
    end if 
page=cint(request.querystring("page")) 
  if Page<=1 or Page="" then Page=1 
  PageSize=25 
  Domain=Request.ServerVariables("SERVER_NAME") 
  gFilePath=Request.ServerVariables("PATH_INFO") 
  serverport=request.ServerVariables("SERVER_PORT") 
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/"))) 
  CountN=len(gFilePath) 
  gFilePath=lcase(left(gFilePath,CountN-1)) 
  gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/"))) 
  if serverport<>"80" then 
  AllPath="http://"&Domain&":"&serverport&gfilepath 
  else 
  AllPath="http://"&Domain&gfilepath 
  end if 
filepath="../upload/" 
dim fso 
set fso=server.CreateObject("scripting.filesystemobject") 
set thefolder=fso.getfolder(server.MapPath(filepath)) 
for each ffiles in thefolder.files 
filecounts=filecounts+1 
filesizes=filesizes+ffiles.size 
if filesizes=0 then 
response.write "此文件夹下没有内容" 
response.end 
end if 
next 

%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<title>dxy文件管理器</title> 
<link href="main.css" rel="stylesheet" type="text/css" /> 
<script language="javascript" type="text/javascript"> 
function CheckAll() 
{ 
for (var ic=0;ic<form1.delfilename.length;ic++) 
{ 
var e = form1.delfilename[ic]; 
e.checked = !e.checked; 
} 
} 
</script> 
</head> 

<body style="margin:0px;"> 
<table width="760" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#1F429E"> 
  <form action="" method="post" name="form1"><tr> 
    <td width="40" height="25" bgcolor="#FFFFFF"><div align="center">序号</div></td> 
    <td width="493" height="25" bgcolor="#FFFFFF"><div align="center">文件名</div></td> 
    <td width="100" bgcolor="#FFFFFF"><div align="center">文件大小</div></td> 
    <td width="98" bgcolor="#FFFFFF"><div align="center">选择</div></td> 
  </tr> 
  <% 
  i=0 
  for each ffiles in thefolder.files 
  i=i+1 
  if ccount>=pagesize then 
  exit for 
  elseif i>pagesize*(page-1) then 
  ccount=ccount+1 
   %> 
  <tr> 
    <td height="25" nowrap="nowrap" bgcolor="#FFFFFF" align="center"><%=i%></td> 
    <td nowrap="nowrap" bgcolor="#FFFFFF"><a href="<%=allpath&"upload/"&ffiles.name%>" target="_blank"><img src=<%=allpath&"upload/"&ffiles.name%> border="0" /></a></td> 
    <td nowrap="nowrap" bgcolor="#FFFFFF"><div align="center"><%=ffiles.size%>[字节]</div></td> 
    <td nowrap="nowrap" bgcolor="#FFFFFF"> 
      <div align="center"> 
        <input name="delfilename" type="checkbox" id="delfilename" value="<%=ffiles.name%>" /> 
      </div></td></tr> 
  <%    
  end if 
  next 
  %> 
  <tr> 
    <td height="30" colspan="4" bgcolor="#FFFFFF"><div align="center">  
      共有文件<font color="#FF0000" style="font-family:Georgia, 'Times New Roman', Times, serif"><%=filecounts%></font>个，占用空间<font color="#FF0000" style="font-family:Georgia, 'Times New Roman', Times, serif"><%=formatnumber((filesizes/1024),2)%>k</font><br />         
      <input name="dxy_foldername" type="hidden" id="dxy_foldername" value="<%=request("dxy_foldername")%>" /> 
      <input type="button" name="Submit2" value="全选/反选" onclick="CheckAll()" /> 
          
       <input type="submit" name="Submit" value="确定删除所选的文件" /> 
        </p> 
        <input name="action" type="hidden" id="action" value="delall" /> 
    </div></td> 
    </tr> 
  </form> 
</table> 
<table width="760" height="21" border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td bgcolor="#FFFFFF"><div align="center"> 
      <% 
     if filecounts mod pagesize=0 then 
      pagecount=filecounts/pagesize 
      else 
      pagecount=filecounts/pagesize+1 
      end if 
      if page>pagecount then 
      page=pagecount 
      else 
      page=page 
      end if 
    for ii=1 to PageCount 
  if page=ii then 
    response.write "<a href=picManage.asp?Page="&ii&">[<font color=red>"&ii&"</font>]</a>  " 
    else 
    response.write "<a href=picManage.asp?Page="&ii&">["&ii&"]</a>  " 
    end if 
  next 
%> 
    </div></td> 
  </tr> 
</table> 
</body> 
</html>

domain