vithink小文件自动实现文件浏览下载

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>

<body>

　<script src=http://www.mithink.com/js/top.js></script>

<table id="table16" cellSpacing="0" cellPadding="0" width="765" border="0">

<tr>

<td vAlign="bottom" align="middle" colSpan="2">

<table id="table21" cellSpacing="0" cellPadding="0" width="765" align="center" border="0">

<tr>

<td ><%

Set FSO = CreateObject("Scripting.FileSystemObject")

hu = Replace(Server.MapPath("index.asp"),"index.asp","") '本系统所在目录

Set TestFolder = FSO.GetFolder(hu)

GenerateTestInformation = GenerateAllFolderInformation(TestFolder)

Function GenerateAllFolderInformation(Folder)

Dim S, SubFolders, SubFolder, Files, File, i

tmpStr = ""

Set SubFolders = Folder.SubFolders

If SubFolders.Count <> 0 Then

i = 1

For Each SubFolder In SubFolders

i = i + 1

tmpStr = tmpStr & GenerateFolderInformation(SubFolder,i)

Next

End If

Response.Write tmpStr & "</table><br>"

tmpStr = ""

Set Files = Folder.Files

tmpStr = tmpStr & "<table border=0 width=100% cellspacing=1 cellpadding=4 align='left' style='word-break: break-all'>"

tmpStr = tmpStr & ""

If Not (Folder.IsRootFolder) Then

tmpStr = tmpStr & ""

End If

tmpStr = tmpStr & ""

tmpStr = tmpStr & ""

If Files.Count <> 0 Then

i = 1

For Each File In Files

i = i + 1

tmpStr = tmpStr & GenerateFileInformation(File,i)

Next

End If

Response.Write tmpStr & "</table>"

End Function

Function UrlEnCode(Path)

UrlEnCode = Replace(Server.URLEncode(Path),"\","/")

End Function

Function CloseFSO

FSO.Close

Set FSO = Nothing

End Function

Function GenerateFileInformation(File,i)

Dim S, RowColor

RowColor = ""

If i Mod 2 = 0 Then RowColor = "bgcolor=#9999dd"

If i Mod 2 <> 0 Then RowColor = "bgcolor=#aaaaee"

S = "<tr><td "&RowColor&" > " & File.Name & "</td>"

S = S & "<td "&RowColor&">" & FormatNumber(File.Size/1024 ,0) & " KB</td>"

S = S & "<td align=center "&RowColor&">"

S = S & "<a href='" & File.Name & "' > ↓</a></td></tr>"

GenerateFileInformation = S

End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' 函数名称：GenerateFolderInformation()

' 功能说明：描述文件夹的当前状态

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function GenerateFolderInformation(Folder,i)

Dim S, RowColor

RowColor = ""

If i Mod 2 = 0 Then RowColor = "bgcolor=#dddddd"

S = ""

GenerateFolderInformation = S

End Function

%>

</td>

</tr>

</table>

</td>

</tr>

</table>

<script src=http://www.mithink.com/js/bottom1.js></script>

</body>

</html>

赞 (0)

相关推荐

  • vithink小文件自动实现文件浏览下载

    <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body> <script src=http://www.mithink.com/js/top.js></script> <table id="table16" cellSpa

  • 服务器之间文件备份方案、如何把服务器文件自动备份到另外一台服务器?

    很多单位都有文件服务器备份的需求,并且常常是把一个服务器的文件自动备份到另外一台文件服务器 .如何实现呢? 一.Windows文件服务器自动备份的方法 Windows文件服务器自动备份的最简单方法是安装专门的服务器文件自动备份软件,目前国内有一些专门用于备份服务器文件的软件.例如有一款"大势至服务器文件自动备份系统"(下载地址:http://www.grabsun.com/filebackup.html),只需要在服务器上安装之后,就可以对服务器的文件进行增量备份和全量备份,也就是可以

  • safari下载文件自动加了html后缀问题

    如何下载文件? 方法一.直接通过nginx下载静态文件 如果文件是保存在服务器上面的,可以直接用nginx下载文件 比如说可以供用户下载pdf文件,那么我的nginx配置可以是这样子的: location ~ /document/(.*)\.pdf$ { root /home/nemo/myfile; try_files /$uri 404; } 按照上面的配置,当我请求 http://fbd.intelleeegooo.cc/document/test.pdf 的时候,我服务器上的位于 /ho

  • Python实现的远程文件自动打包并下载功能示例

    本文实例讲述了Python实现的远程文件自动打包并下载功能.分享给大家供大家参考,具体如下: 一 点睛 在Linux系统集群运营当中,时常需要批量远程执行Linux命令,并且双向同步文件的操作. 本示例通过使用spawn()方法执行ssh.scp 命令的思路来实现. 二 代码 import pexpect import sys ip="192.168.0.104" user="root" passwd="123456" target_file=&

  • 动感网页相册 python编写简单文件夹内图片浏览工具

    动感网页相册 python编写简单文件夹内图片浏览工具

    不知道大家有没有这样的体验,windows电脑上查看一张gif图,默认就把IE给打开了,还弹出个什么询问项,好麻烦的感觉.所以为了解决自己的这个问题,写了个简单的文件夹内图片浏览工具. 效果图 以E盘某一文件夹为例 效果图 实现思路 业务代码 # coding:utf-8 import sys reload(sys) sys.setdefaultencoding('utf8') # __author__ = '郭 璞' # __date__ = '2016/8/5' # __Desc__ = 自

  • 微信小程序 自动登陆PHP源码实例（源码下载）

    微信小程序 自动登陆PHP源码实例 app.js 初始化APP自动登陆 您也可以在任何地方进行用户登陆验证 用法:首先在js文件中定义 var app = getApp(); app.getUserDataToken(); App({ onLaunch: function () { /*初始化APP自动登陆 * 您也可以在任何地方进行用户登陆验证 *用法:首先在js文件中定义 var app = getApp(); app.getUserDataToken(); */ this.getUserD

  • SpringMVC实现文件的上传和下载实例代码

    SpringMVC实现文件的上传和下载实例代码

    前些天一位江苏经贸的学弟跟我留言问了我这样一个问题:"用什么技术来实现一般网页上文件的上传和下载?是框架还是Java中的IO流".我回复他说:"使用SpringMVC框架可以做到这一点,因为SpringMVC为文件的上传提供了直接的支持,但需要依赖Apache提供Commons FileUpload组件jar包."鉴于这个问题,我上网也百度了一下,网上很多都是介绍的使用IO流来实现文件的上传和下载,也有说到框架的,但介绍的并不是很完整,今天小钱将和大家介绍使用Spr

  • JavaWeb 文件的上传和下载功能简单实现代码

    一.文件的上传和下载 1.文件上传的原理分析 1.文件上传的必要前提: a.提供form表单,method必须是post           b.form表单的enctype必须是multipart/form-data           c.提供input type="file"类的上传输入域 2.enctype属性 作用:告知服务器请求正文的MIME类型(请求消息头:Content-Type作用是一致的)      可选值: application/x-www-form-urlen

  • SpringMVC+Ajax实现文件批量上传和下载功能实例代码

    今天做了文件的上传下载,小小总结一下,基本的web项目建立及SpringMVC框架搭建此处不详细写出来了. 上传form: <form id="uploadfiles" enctype="multipart/form-data"> <input type="file" multiple="multiple" id="file_upload" name="file_upload&q

  • 微信小程序实现音频文件播放进度的实例代码

    问题描述 在微信小程序中经常会用到控制文件播放的滑块,通过滑块可控制音频播放进度,下面即用代码实现. 解决方案 首先用.wxml与 .wmss 代码实现进度条的效果,再通过 .js 文件控制进度条的进度和进度条的时间显示. .wxml中(播放进度结构的代码): <view class="content-play-progress"> <text>{{play.currentTime}}</text> <view> <slider a

随机推荐