复制代码 代码如下:
<%@language=vbscript codepage=936 %>
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++Wrance的图片系统目录直读版1.0+++++++++++++++++++++++
'++++++演示:http://www.cnecg.com/pic.asp++++++++++++++++++
'++++++此为免费程序,您可以任意修改,欢迎发表建议++++++++++
'++++++Email:[email protected],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%>
<% 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 showpage2 strFileName,totalput,MaxPerPage response.write " 本页共显示 " & 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 %>
<% 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 & " "
strTemp=strTemp & "Copyright 2004 CnEcg.com All Rights Reserved 版权所有 +++__Wrance的图片系统目录直读版_ 1.0
"
strTemp=strTemp & "设计制作:Wrance Email:[email protected] QQ:74028"
response.write strTemp
end sub
%>