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

复制代码 代码如下:

<%
'---------------------------------------------
'##############20060528新增加了对端口的支持
'作者：dxy QQ:461478385 Email:[email protected]
'功能完善
%>


<%
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

%>







function CheckAll()
{
for (var ic=0;ic{
var e = form1.delfilename[ic];
e.checked = !e.checked;
}
}





  
    序号

    文件名

    文件大小

    选择

  
  <%
  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
   %>
  
    <%=i%>
    " target="_blank"> border="0" />
    <%=ffiles.size%>[字节]