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

2024-03-19 22:43:31

代码如下:

<%@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">

</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="<%=(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
%>

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

复制代码代码如下: <%@language=vbscript codepage=936 %> <% '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '++++++Wrance的图片系统目录直读版1.0+++++++++++++++++++++++ '++++++演示:http://www.cnecg.com/pic.asp++++++++++++++++++ '++++++此为免费程序,您可以任意修改,欢迎发表建
js实现图片切换（动画版）

学习了妙味课堂的图片切换(动画版) 这个小效果相对简单一点. 知识预备: [1]background-position-x background-position属性设置背景原图像(由 background-image 定义)的位置,意味着使用这个属性的前提是必须设置背景原图像background-image. background-position有两个属性值, background-position:x | y,用法上可以对其一个属性单独使用 background-position-x 和
python 利用百度API识别图片文字（多线程版）

#!/usr/bin/env python3 # -*- coding: utf-8 -*- """ Created on Tue Jun 12 09:37:38 2018 利用百度api实现图片文本识别 @author: XnCSD """ import glob from os import path import os from aip import AipOcr from PIL import Image from queue impor
Win10下免安装版MySQL8.0.16的安装和配置教程图解

1.MySQL8.0.16解压其中dada文件夹和my.ini配置文件是解压后手动加入的,如下图所示 2.新建配置文件my.ini放在D:\Free\mysql-8.0.16-winx64目录下 [mysql] # 设置mysql客户端默认字符集 default-character-set=utf8 [mysqld] #设置3306端口 port = 3306 # 设置mysql的安装目录 basedir=D:\Free\mysql-8.0.16-winx64 # 设置mysql数据库的数据的
Android调用系统图片裁剪限定尺寸及7.0照相问题的解决方法

本文实例为大家分享了Android调用系统图片裁剪限定尺寸及7.0照相问题的解决方法,供大家参考,具体内容如下内容:手机系统的裁剪介绍,7.0调用相机崩溃解决代码如下: <?xml version="1.0" encoding="utf-8"?> <LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:app="h
win10安装zip版MySQL8.0.19的教程详解

一. 下载后解压到想安装的目录下载地址: https://dev.mysql.com/downloads/mysql/ 二. 在安装目录中添加配置文件my.ini [mysqld] # 设置3306端口 port=3306 # 设置mysql的安装目录 basedir=D:\DevTool\MySQL-8.0.19 # 设置mysql数据库的数据的存放目录 datadir=D:\DevTool\MySQL-8.0.19\data # 允许最大连接数 max_connections=200 #
ASP.NET下上传图片到数据库，并且读出图片的代码(详细版)

首先在SQL Server中建立一个图片存储的数库表,ImageData Column为图象二进制数据储存字段,ImageContentType Column为图象文件类型记录字段,ImageDescription Column为储蓄图象文件说明字段,ImageSize Column为储存图象文件长度字段,结构如下: 复制代码代码如下: CREATE TABLE [dbo].[ImageStore] ( [ImageID] [int] IDENTITY (1, 1) NOT NULL , [
zShowBox 图片放大展示jquery版兼容性

zShowBox.js 复制代码代码如下: /* * zShowBox (图片放大展示) */ function zShowBox(domChunk) { //为每张图片链接加上 class="zshowbox" var zcounter = 0; $(domChunk + ' a').each(function () { var a_href = $(this)[0].href.toLowerCase(); var file_type = a_href.substring(a_hr
js循环输出图片，不足的要补0 原创

我想把001.gif~285.gif显示在网页上.JS如果实现? HTML 是这样写 <img src=001.gif> <img src=002.gif> ... <img src=010.gif> <img src=011.gif> ... <img src=285.gif> 解决方法: var i,istr,ii for(i=1;i"; document.write(imgstr); } function right(main
Linux家用版1.0使用体会

拿到这套联想LINUX,包装很实用,一本书大小的包装盒内整齐的装着四张光盘,这四张盘分别是系统安装盘.源代码盘.应用盘.文杰字处理软件盘.包装内还有一本中文的安装使用说明书.打开包装把系统安装盘放在光驱内,开始了首次试用. 安装前需要准备Linux分区 HappyLinux使用自己的文件系统(Linux ext2),它拥有自己的特别分区类型,这意味着你不能将HappyLinux安装到一个Dos或Windows 95分区上,所以您必须在您的硬盘上留下一些没有分区的空间来安装 HappyLinux,

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

相关推荐

随机推荐