asp如何计算下载一个文件需要多长时间？
来源：asp之家 发布时间：2009-11-25 20:17:00
我们用下了asp代码简单统计了下载一个文件需要的时间：
<％
Function DownloadTime(intFileSize, strModemType)
Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendString
Dim intYears, intWeeks, intDays
Dim intHours, intMinutes, intSeconds
intYears = 0
intWeeks = 0
intDays = 0
intHours = 0
intMinutes = 0
intSeconds = 0
strDownloadTime = ""
Select Case strModemType
Case "Cable"
ModemSpeed = 400000
Case "56kbps"
ModemSpeed = 7000
Case "33.6kbps"
ModemSpeed = 4200
Case "28.8kbps"
ModemSpeed = 3600
End Select
TimeInSeconds = int(intFileSize / ModemSpeed)
' 准确地说,1年＝365.25天
If (Int(TimeInSeconds / 31471200) <> 0) Then intYears = Int(TimeInSeconds / 31449600)
If ((Int(TimeInSeconds / 604800) Mod 52) <> 0) Then intWeeks = Int(TimeInSeconds / 604800) Mod 52
If ((Int(TimeInSeconds / 86400) Mod 7) <> 0) Then intDays = Int(TimeInSeconds / 86400) Mod 7
If TimeInSeconds >= 3600 Then intHours = Int(TimeInSeconds / 3600) Mod 24
If TimeInSeconds >= 60 Then intMinutes = Int(TimeInSeconds / 60) Mod 60
If TimeInSeconds >= 0 Then intSeconds = Int(TimeInSeconds) Mod 60
If intYears <> 0 Then
strDownloadTime = strDownloadTime & intYears & "年" & AppendString & ", "
End If
If intWeeks <> 0 Then
strDownloadTime = strDownloadTime & intWeeks & "周" & AppendString & ", "
End If
If intDays <> 0 Then
strDownloadTime = strDownloadTime & intDays & "日" & AppendString & ", "
End If
If intHours <> 0 Then
strDownloadTime = strDownloadTime & intHours & "小时" & AppendString & ", "
End If
If intMinutes <> 0 Then
strDownloadTime = strDownloadTime & intMinutes & "分" & AppendString
End If
If ((intYears = 0) And (intWeeks = 0) And (intDays = 0) And (intHours = 0)) Then
If intMinutes > 0 Then
strDownloadTime = strDownloadTime & ", " & intSeconds & "秒" & AppendString
Else
strDownloadTime = strDownloadTime & intSeconds & "秒" & AppendString
End If
End If
DownloadTime = strDownloadTime
End Function
％>
<html>
<body>
asp之家提示:您下载这个文件一共花费了<％=DownloadTime(123456,Cable)％>.
</body>
</html>
0
投稿猜你喜欢
- 目录一 列表二 集合三 字典总结一 列表# 列表:包含0个或多个对象引用的有序队列，用中括号[]表示# 增加 a = [] a.append
- 引擎简介Innodb引擎Innodb引擎提供了对数据库ACID事务的支持，并且实现了SQL标准的四种隔离级别。该引擎还提供了行级锁和外键约束
- 字符串转十六进制StrToHex Function<％ Response.Write StrToHex("Nice
- 在网络上看到的数字人整合动网论坛的方法都非常不全,站长们都是抄人家的,也不说明可不可用,提供下载的文件也不能下载.现在我提供一些信息。一、整
这是官方截图，mysql5.7安装后，会有一个默认密码，保存在mysql.log里面，找的他，并更改官方文档地址https://dev.my- 本文实例讲述了javascript设计模式 – 简单工厂模式。分享给大家供大家参考，具体如下：介绍：简单工厂模式是最常用的一类创建型设计模式
- 最近我在用梯度下降算法绘制神经网络的数据时，遇到了一些算法性能的问题。梯度下降算法的代码如下（伪代码）：def gradient_desce
- 在开始本文之前，首先要保证你的mysql的密码是对的不然就要想起他的办法了。下面话不多说了，下面来一起看看吧。一、首先进入cmd 切入MyS
- PHP异步调用实现方式 浏览器和服务器之间只一种面向无连接的HTTP协议进行通讯的，面向无连接的程序的特点是客户端请求服务端，服务端根据请求
- <!DOCTYPE html PUBLIC "-//W3C//DTD X
- 目录1|1可迭代对象1|2判断是否可以迭代1|3什么是迭代器1|4iter()函数1|5总结：2|0生成器2|1什么是生成器1|2函数中使用
- 本文实例讲述了Python实现的圆形绘制。分享给大家供大家参考，具体如下：# -*- coding:utf-8 -*-#! python3i
- 关于 Go 中 Map 类型和 Slice 类型的传递Map 类型先看例子 m1:func main() { m := make
- 这几天忙个合作，开发iPhone版校友录。用了很久的iPhone，为它量身定制一套页面还是头一次，好在限制不是很多，会写html基本呈现就不
- 题目描述原题链接 :463. 岛屿的周长 - 力扣（LeetCode）给定一个 row x col 的二维网格地图 grid ，其中：gri
- Python request获取网页中文乱码问题r = requests.get(“http://www.baidu.com“)
- 最近论坛里总有人问幻灯片怎么从数据库里取数据，花了几分钟简单的写了下。用到的人可以自己在细化<％dim rs,sqlset&
- 最近做项目正好需要坐标的转换各地图API坐标系统比较与转换;WGS84坐标系：即地球坐标系，国际上通用的坐标系。设备一般包含GPS芯片或者北
- Python是一种非常流行的脚本语言，而且功能非常强大，几乎可以做任何事情，比如爬虫、网络工具、科学计算、树莓派、Web开发、游戏等各方面都
- 昨晚收到客服MM电话，一用户反馈数据库响应非常慢，手机收到load异常报警，登上主机后发现大量sql执行非常慢，有的执行时间超过了10s优化
