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
投稿猜你喜欢
内容摘要合理使用渐变留白网格布局提高字体应用明确而有效的导航设计漂亮、有用的页脚介绍优秀设计和卓越设计之间的区别是比较小的。一般人可能无法解- 有一次去超市换货，本能的找到服务中心，服务中心说这个业务在超市旁边一个房间里，由于忘记带小票，那个小房间的人让我去另外一个小房间调电脑里的记
- Linux下MySQL整个数据库的备份与还原[root]# /usr/bin/mysqldump -h127.0.0.1 -uusernam
- 将近两个多月没有敲linux命令，手指头不听话了。该再次温习卖油翁的故事了。曾为oracle如何启动多个实例运行纠结过，不服输心理。当时在一
- 代码如下:Class Vector Private vector_datas() Private&n
- 讨论Web开发技术的历史，当然要先说说Web的起源。众所周知，Web这个Internet上最热门的应用架构是由Tim Berners-Lee
- 如何随机显示图片计数器？一切就绪，看看我们的代码：count.asp＜ html ＞＜ head ＞
- VBSCRIPT中的日期，时间，星期函数很丰富，给我们使用带来了很大的方便，我个人使用最多的就是用now（）来获取服务器的当前日期和时间。但
- 问题作为一个负责几个服务器的数据库管理员，我接到许多电话是关于磁盘空间的。我所做的第一件事是找到可以缩小的数据文件来释放一些磁盘上的空间。我
- 我们经常使用动态创建 JavaScript 的方式来实现 JavaScript 文件的无阻塞（Non-blocking）、并行下载（Para
- 网上的SQL优化的文章实在是很多，说实在的，我也曾经到处找这样的文章，什么不要使用IN了，什么OR了，什么AND了，很多很多，还有很多人拿出
- 我页面上有控制了只能输入数字的控件，禁止了输入法切换的，但是搜狗的云输入却控制不了，有没有办法在页面里面禁止它运行啊？发现这玩意儿真的很讨厌
- 尽管 JavaScript 历史上使用冗长而令人生厌的代码块来标的特定浏览器的时期已经结束了，但是偶尔使用一些简单的代码块和对象检测来确保一
- 我用 ip=Request.ServerVariables
- 使用jmail组件发送邮件：Function JMail(Send_From,Send_To,Send_Subject,Send_
- 看看下面的w3 upload组件例子，很简单： upload.asp<html> <head>
- 最近，我在做网页的时候，经理老是反应网页中一些栏目中没有背景图片。我说：背景图片有的，你刷新看看。但是他说：我可以刷新看看，但是你不能老是让
- CSSer与其他IT职位一样，在找工作的时候，都会面临着面试官提出的问题，或者给出的试卷。一、超链接点击过后hover样式就不出现的问题？被
- 1. 用户必须在几秒钟知道网站是做什么的。注意力是因特网上最有价值的货币。 如果访问者无法在几秒钟之内得知你的网站的方向，他很有可能转而访问
- MaxDB是MySQL AB公司通过SAP认证的数据库。MaxDB数据库服务器补充了MySQL AB产品系列。某些MaxDB特性在MySQL
