Wrance的图片系统目录直读版1.0 复制代码 代码如下:<%@language=vbscript codepage=936 %> <% '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '++++++Wrance的图片系统目录直读版1.0+++++++++++++++++++++++ '++++++演示：http://www.cnecg.com/pic.asp++++++++++++++++++ '++++++此为免费程序，您可以任意修改，欢迎发表建议++++++++++ '++++++Email:cnecg@yahoo.com.cn,QQ:74028+++++++++++++++++++ '以下为修改内容 Const UploadDir="/ecg/upload/news/" '存放文件的目录 Const MaxPerPage=30 '每页显示数量 const title="+++＿＿Wrance的图片系统目录直读版＿ " '标题 '检查组件是否已经安装 Function IsObjInstalled(strClassString) IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function dim strFileName dim totalPut,CurrentPage,TotalPages dim TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize strFileName="?" if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if TruePath=Server.MapPath(UploadDir) If not IsObjInstalled("Scripting.FileSystemObject") Then Response.Write "你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能" Else set fso=CreateObject("Scripting.FileSystemObject") %> <%=title%>
<%=title%>
<% if fso.FolderExists(TruePath)then FileCount=0 TotleSize=0 Set theFolder=fso.GetFolder(TruePath) For Each theFile In theFolder.Files FileCount=FileCount+1 TotleSize=TotleSize+theFile.Size next totalPut=FileCount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage2 strFileName,totalput,MaxPerPage response.write "
本页共显示 " & FileCount-1 & " 个文件，占用 " & TotleSize\1024 & " K
" else if (currentPage-1)*MaxPerPage
本页共显示 " & FileCount-1 & " 个文件，占用 " & TotleSize\1024 & " K
" else currentPage=1 showContent showpage2 strFileName,totalput,MaxPerPage response.write "
本页共显示 " & FileCount-1 & " 个文件，占用 " & TotleSize\1024 & " K
" end if end if else response.write "找不到文件夹！可能是配置有误！" end if end if sub showContent() dim c FileCount=1 TotleSize=0 %> <% For Each theFile In theFolder.Files c=c+1 if FileCount>MaxPerPage then exit for elseif c>MaxPerPage*(CurrentPage-1) then %> <% if FileCount mod 5 =0 then%> <%end if%> <% FileCount=FileCount+1 TotleSize=TotleSize+theFile.Size end if Next %>
border=0 width=120 height=150>
<% end sub %>
<% sub showpage2(sfilename,totalnumber,maxperpage) dim n, i,strTemp if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp= "
" strTemp=strTemp & "共 " & totalnumber & " 个文件 " if CurrentPage<2 then strTemp=strTemp & "首页 上一页 " else strTemp=strTemp & "首页 " strTemp=strTemp & "上一页 " end if if n-currentpage<1 then strTemp=strTemp & "下一页 尾页" else strTemp=strTemp & "下一页 " strTemp=strTemp & "尾页" end if strTemp=strTemp & " 页次：" & CurrentPage & "/" & n & "页 " strTemp=strTemp & " " & maxperpage & "" & "个文件/页" strTemp=strTemp & " 转到：" strTemp=strTemp & "
" strTemp=strTemp & " " strTemp=strTemp & "Copyright 2004 CnEcg.com All Rights Reserved 版权所有 +++＿＿Wrance的图片系统目录直读版＿ 1.0
" strTemp=strTemp & "设计制作：Wrance Email:cnecg@yahoo.com.cn QQ:74028" response.write strTemp end sub %>