asp+fso在线管理图片功能

【 tulaoshi.com - Web开发 】

代码如下：

（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/webkaifa/）
%
'---------------------------------------------
'##############20060528新增加了对端口的支持
'作者：dxy QQ:461478385 Email:douxy001@gmail.com
'功能完善
%
!--#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" /
titledxy文件管理器/title
link href="main.css" rel="stylesheet" type="text/css" /
script language="javascript" type="text/javascript"
function CheckAll()
{
for (var ic=0;icform1.delfilename.length;ic++)
{
var e = form1.delfilename[ic];
e.checked = !e.checked;
}
}
/script
/head

body style="margin:0px;"
table width="760" border="0" style="text-align:center" cellpadding="3" cellspacing="1" bgcolor="#1F429E"
  form action="" method="post" name="form1"tr
    td width="40" height="25" bgcolor="#FFFFFF"div style="text-align:center"序号/div/td
    td width="493" height="25" bgcolor="#FFFFFF"div style="text-align:center"文件名/div/td
    td width="100" bgcolor="#FFFFFF"div style="text-align:center"文件大小/div/td
    td width="98" bgcolor="#FFFFFF"div style="text-align:center"选择/div/td
  /tr
  %
  i=0
  for each ffiles in thefolder.files
  i=i+1
  if ccount=pagesize then
  exit for
  elseif ipagesize*(page-1) then
  ccount=ccount+1
   %
  tr
    td height="25" nowrap="nowrap" bgcolor="#FFFFFF" style="text-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 style="text-align:center"%=ffiles.size%[字节]/div/td
    td nowrap="nowrap" bgcolor="#FFFFFF"
      div style="text-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 style="text-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/fontbr /        
      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" style="text-align:center" cellpadding="0" cellspacing="0"
  tr
    td bgcolor="#FFFFFF"div style="text-align:center"
      %
     if filecounts mod pagesize=0 then
      pagecount=filecounts/pagesize
      else
      pagecount=filecounts/pagesize+1
      end if
      if pagepagecount 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