ASP网站制作之ASP怎样盘算文件下载必要的工夫
由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。下载ASP怎样盘算文件下载必要的工夫<%
FunctionDownloadTime(intFileSize,strModemType)
DimTimeInSeconds,ModemSpeed,strDownloadTime,AppendString
DimintYears,intWeeks,intDays
DimintHours,intMinutes,intSeconds
intYears=0
intWeeks=0
intDays=0
intHours=0
intMinutes=0
intSeconds=0
strDownloadTime=""
SelectCasestrModemType
Case"Cable"
ModemSpeed=400000
Case"56kbps"
ModemSpeed=7000
Case"33.6kbps"
ModemSpeed=4200
Case"28.8kbps"
ModemSpeed=3600
EndSelect
TimeInSeconds=int(intFileSize/ModemSpeed)
yearmathsadded1/4ofaday.1exactorbitofthesubis365.25days.
If(Int(TimeInSeconds/31471200)0)ThenintYears=Int(TimeInSeconds/31449600)
If((Int(TimeInSeconds/604800)Mod52)0)ThenintWeeks=Int(TimeInSeconds/604800)Mod52
If((Int(TimeInSeconds/86400)Mod7)0)ThenintDays=Int(TimeInSeconds/86400)Mod7
IfTimeInSeconds>=3600ThenintHours=Int(TimeInSeconds/3600)Mod24
IfTimeInSeconds>=60ThenintMinutes=Int(TimeInSeconds/60)Mod60
IfTimeInSeconds>=0ThenintSeconds=Int(TimeInSeconds)Mod60
IfintYears0Then
IfintYears=1ThenAppendString=""ElseAppendString="s"
strDownloadTime=strDownloadTime&intYears&"year"&AppendString&","
EndIf
IfintWeeks0Then
IfintWeeks=1ThenAppendString=""ElseAppendString="s"
strDownloadTime=strDownloadTime&intWeeks&"week"&AppendString&","
EndIf
IfintDays0Then
IfintDays=1ThenAppendString=""ElseAppendString="s"
strDownloadTime=strDownloadTime&intDays&"day"&AppendString&","
EndIf
IfintHours0Then
IfintHours=1ThenAppendString=""ElseAppendString="s"
strDownloadTime=strDownloadTime&intHours&"hour"&AppendString&","
EndIf
IfintMinutes0Then
IfintMinutes=1ThenAppendString=""ElseAppendString="s"
strDownloadTime=strDownloadTime&intMinutes&"minute"&AppendString
EndIf
If((intYears=0)And(intWeeks=0)And(intDays=0)And(intHours=0))Then
IfintSeconds=1ThenAppendString=""ElseAppendString="s"
IfintMinutes>0Then
strDownloadTime=strDownloadTime&","&intSeconds&"second"&AppendString
Else
strDownloadTime=strDownloadTime&intSeconds&"second"&AppendString
EndIf
EndIf
DownloadTime=strDownloadTime
EndFunction
%>
<html>
<body>
Itisgoingtotakeabout
<%=DownloadTime(123456,Cable)%>todownloadthisfile.
</body>
</html>
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 掌握asp的特性而且一定要知道为什么。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。
页:
[1]