马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。下载<%
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>
</p>对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了, |