【下载文档:  asp+fso在线管理图片功能__font_color=red_原创__font_.txt 】

---

asp+fso在线管理图片功能 原创
复制代码 代码如下:<% '--------------------------------------------- '##############20060528新增加了对端口的支持 '作者：dxy QQ:461478385 Email:douxy001@gmail.com '功能完善 %> <% 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 %> <% 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 %> <% end if next %>

序号	文件名	文件大小	选择
<%=i%>	" target="_blank"> border="0" />	<%=ffiles.size%>[字节]
共有文件<%=filecounts%>个，占用空间<%=formatnumber((filesizes/1024),2)%>k " />

<% 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 "["&ii&"] " else response.write "["&ii&"] " end if next %>