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

日期：2020-05-13 栏目：程序人生浏览：次

}
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

转载注明出处：http://www.heiqu.com/2977.html

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

相关推荐