如何用ASP计算下载一个文件需要多长时间？

2006-04-22 06:08:19 90 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ubuntu安装hodoop详细步骤进入到Ubuntu系统中打开桌面，点击鼠标右键打开终端，在终端中输入如下命令这样就可以创建一名为hadoop的新用户。给用户输设置密码输入,输入如下命令，设置密码，按提示输入两次然后为hadoop用户增加管理员全新，这样就可以方便部署完成之后输入重启命令，重启一下Ubuntu系统，然后登录到我们创建的hadoop用户上面reboot。阅读详情

如题
在线等待

...全文

线上专利申请（超详细）| 签名确认在【法人登录】页面点击【证书登录】按钮，弹出证书登录提示框，点击【确认】按钮，进入到输入证书密码页面，点击【取消】按钮，取消本次操作。企业在提交申请时，需要增加签名，如使用企业账户点击提交，会弹出“法人、代理机构不能签名，请使用经办人签名”，这个时候就需要换个账号了。在需要签名时，将专利官网的登录方式点击法人登录，选择扫码登录，使用移动端经办人账户的扫一扫功能扫描登录。登录完成后，再点击签名，使用移动端扫一扫功能，扫描签名，输入证书号，确认签名，并提交。最后，祝大家的申请都成功！阅读详情

see7di

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

see7di 2006-04-22

打赏
举报

谢谢，楼上的朋友

deninghe 2006-04-22

打赏
举报

Mark

www_7di_net 2006-04-22

打赏
举报

<%
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)
'year maths added 1/4 of a day. 1 exact orbit of the sub is 365.25 days.
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
If intYears = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intYears & " year" & AppendString & ", "
End If
If intWeeks <> 0 Then
If intWeeks = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intWeeks & " week" & AppendString & ", "
End If
If intDays <> 0 Then
If intDays = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intDays & " day" & AppendString & ", "
End If
If intHours <> 0 Then
If intHours = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intHours & " hour" & AppendString & ", "
End If
If intMinutes <> 0 Then
If intMinutes = 1 Then AppendString = "" Else AppendString = "s"
strDownloadTime = strDownloadTime & intMinutes & " minute" & AppendString
End If
If ((intYears = 0) And (intWeeks = 0) And (intDays = 0) And (intHours = 0)) Then
If intSeconds = 1 Then AppendString = "" Else AppendString = "s"
If intMinutes > 0 Then
strDownloadTime = strDownloadTime & ", " & intSeconds & " second" & AppendString
Else
strDownloadTime = strDownloadTime & intSeconds & " second" & AppendString
End If
End If
DownloadTime = strDownloadTime
End Function
%>
<html>
<body>
It is going to take about
<%=DownloadTime(123456,Cable)%> to download this file.
</body>
</html>

如何用ASP计算下载一个文件需要多长时间？

相关推荐