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


答案：[复制此代码]CODE:

<%@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 "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>" 
Else 
    set fso=CreateObject("Scripting.FileSystemObject")     
%> 
<html> 
<head> 
<title><%=title%></title> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<style type="text/css"> 
<!-- 
.font { 
    font-size: 12px; 
    color: #000000; 
    text-decoration: none; 
    text-align: center; 
    vertical-align: middle; 
    line-height: 140%; 
} 
a:link { 
    font-size: 12px; 
    color: #000000; 
    text-decoration: underline; 
} 
a:hover { 
    font-size: 12px; 
    color: #999999; 
    text-decoration: none; 
} 
a:visited { 
    font-size: 12px; 
    color: #0088B5; 
    text-decoration: underline; 
} 
--> 
</style> 
</head> 
<body> 
<div align=center> 
<%=title%><br> 
  <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> 
    <tr>       
      <td width="100%" align="center" valign="top">       
      <% 
  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 "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>" 
       else 
              if (currentPage-1)*MaxPerPage<totalPut then 
            showContent          
            showpage2 strFileName,totalput,MaxPerPage 
            response.write "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>" 
           else 
            currentPage=1 
            showContent          
            showpage2 strFileName,totalput,MaxPerPage 
            response.write "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个文件，占用 <b>" & TotleSize\1024 & "</b> K</div>" 
        end if 
    end if 
  else 
    response.write "找不到文件夹！可能是配置有误！" 
  end if 
end if 
sub showContent() 
       dim c 
    FileCount=1 
    TotleSize=0 
%> 
      <table width="100%" border="0" align="center" cellpadding="5" cellspacing="5"> 
                  <tr class="tdbg">  
        <% For Each theFile In theFolder.Files 
    c=c+1 
    if FileCount>MaxPerPage then 
        exit for 
    elseif c>MaxPerPage*(CurrentPage-1) then %> 
          <td><a href=><img src=<%=(UploadDir & theFile.Name)%> border=0 width=120 height=150></a></td> 
<% if FileCount mod 5 =0 then%> 
              </TR> 
              <tr>  
                <%end if%> 
        <%    FileCount=FileCount+1 
        TotleSize=TotleSize+theFile.Size 
    end if 
Next 
%>                </tr> 
      </table> 
      <% 
end sub 
%> 
    </td> 
  </tr> 
</table> 
<% 
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= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>" 
    strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个文件  " 
      if CurrentPage<2 then 
            strTemp=strTemp & "首页 上一页 " 
      else 
            strTemp=strTemp & "<a href=>            strTemp=strTemp & "<a href=>      end if 
      if n-currentpage<1 then 
            strTemp=strTemp & "下一页 尾页" 
      else 
            strTemp=strTemp & "<a href=>            strTemp=strTemp & "<a href=>      end if 
       strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 " 
    strTemp=strTemp & " <b>" & maxperpage & "</b>" & "个文件/页" 
    strTemp=strTemp & " 转到：<select name='page' size='1' onchange='javascript:submit()'>"    
    for i = 1 to n    
           strTemp=strTemp & "<option value='" & i & "'" 
        if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected " 
        strTemp=strTemp & ">第" & i & "页</option>"    
    next 
    strTemp=strTemp & "</select>" 
    strTemp=strTemp & "</td></tr></form></table>" 
    strTemp=strTemp & "<font color='#0083AE'> " 
    strTemp=strTemp & "Copyright 2004 CnEcg.com All Rights Reserved 版权所有 +++＿＿Wrance的图片系统目录直读版＿  1.0<br>" 
    strTemp=strTemp & "设计制作：Wrance Email:cnecg@yahoo.com.cn QQ:74028</font>" 
    response.write strTemp 
end sub 
%>
上一个：信息发布中的判断过期和有效期的东西
下一个：被动式统计网站在线人数
更多图片编程知识: