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 "<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>" & TotleSize1024 & "</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>" & TotleSize1024 & "</b> K</div>"
           else
            currentPage=1
            showContent
            showpage2 strFileName,totalput,MaxPerPage
            response.write "<br><div align="center">本页共显示 <b>" & FileCount-1 & "</b> 个文件，占用 <b>" & TotleSize1024 & "</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="<%=（UploadDir & theFile.Name）%>" target="_blank">
<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="" & sfilename & "page=1">首页</a> "
            strTemp=strTemp & "<a href="" & sfilename & "page=" & （CurrentPage-1） & "">上一页</a> "
      end if

      if n-currentpage<1 then
            strTemp=strTemp & "下一页尾页"
      else
            strTemp=strTemp & "<a href="" & sfilename & "page=" & （CurrentPage+1） & "">下一页</a> "
            strTemp=strTemp & "<a href="" & sfilename & "page=" & n & "">尾页</a>"
      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
%>