Wrance的图片系统目录直读版1.0

复制代码 代码如下:

<%@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            showContent         
            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
%>
      
                   
        <% For Each theFile In theFolder.Files
    c=c+1
    if FileCount>MaxPerPage then
        exit for
    elseif c>MaxPerPage*(CurrentPage-1) then %>
          " target="_blank">
 border=0 width=120 height=150>
<% if FileCount mod 5 =0 then%>
              
               
                <%end if%>
        <%    FileCount=FileCount+1
        TotleSize=TotleSize+theFile.Size
    end if
Next
%>                
      
      <%
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 & " 转到："   
    for i = 1 to n   
           strTemp=strTemp & "        if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
        strTemp=strTemp & ">第" & i & "页"   
    next
    strTemp=strTemp & ""
    strTemp=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
%>