ASP网页设计带进度条的ASP无组件断点续传下载

ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。无组件|下载

1. <%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
3. <%OptionExplicit%><%
5. ==================================
7. 带进度条的ASP无组件断点续传下载
9. ==================================
11. 简介：
13. 1)使用xmlhttp体例
15. 2)无组件
17. 3)异步体例猎取，节俭服务器资本
19. 4)服务器到服务器的文件传送。(固然，你本人电脑上的IIS也是http服务器)
21. 5)撑持断点续传
23. 6)分段下载
25. 7)利用缓冲区，提拔下载速率
27. 8)撑持年夜文件下载(速率我就不说了，你能够测，用现实措辞)
29. 9)带进度条：下载百分比、下载量、立即下载速率、均匀下载速率
33. 用法：
35. 设置好上面的三个变量，RemoteFileUrl、LocalFileUrl、RefererUrl
39. 半夜狂龙(Madpolice)
41. madpolice_dong@163.com
43. 2005.12.25
45. ===============================%>
46. <%------------为设置部分------
48. <%Server.Scripttimeout=24*60*60剧本超时设置，这里设为24小时%>
50. <%
52. DimRemoteFileUrl远程文件路径
54. DimLocalFileUrl当地文件路径,绝对路径，能够包括/及..
55. RemoteFileUrl="http://202.102.14.137/win98.zip"
57. LocalFileUrl="win98.zip"
60. DimRefererUrl
62. 该属性设置文件下载的援用页，
64. 某些网站只同意经由过程他们网站内的毗连下载文件，
66. 这些网站的服务器判别用户是不是是在他们网站内点击的文件链接就是靠这个属性。
68. RefererUrl="http://www.skycn.com/crack_skycn.html"若远程服务器未限定，可留空
69. DimBlockSize分段下载的块巨细
71. DimBlockTimeout下载块的超不时间(秒)
72. BlockSize=128*1024128K，按1M带宽盘算的每秒下载量
73. （可依据本人的带宽设置，带宽除以8），倡议不要设的太小
75. BlockTimeout=64应该依据块的巨细来设置。这里设为64秒。
76. 假如128K的数据64秒还下载不完(按每秒2K守旧预算)，则超时。
77. DimPercentTableWidth进度条总宽度
78. PercentTableWidth=560
80. %>
82. <%--------------------以上为设置部分---------------%>
83. <%
85. ***********************************
87. ！！！以下内容不必修正！！！
89. ***********************************
91. %>
93. <%
95. DimLocalFileFullPhysicalPath当地文件在硬盘上的相对路径
96. LocalFileFullPhysicalPath=Server.Mappath(LocalFileUrl)
98. %>
99. <%
101. Dimhttp,ados
102. OnErrorResumeNext
104. Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP.7.0")
106. IfErrThen
108. Err.Clear
109. Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP.6.0")
111. IfErrThen
113. Err.Clear
114. Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP.5.0")
116. IfErrThen
118. Err.Clear
119. Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
121. IfErrThen
123. Err.Clear
124. Sethttp=Server.CreateObject("Msxml2.ServerXMLHTTP")
126. IfErrThen
128. Err.Clear
130. Response.Write"服务器不撑持Msxml，本程序没法运转！"
132. Response.End
134. EndIf
136. EndIf
138. EndIf
140. EndIf
142. EndIf
144. OnErrorGoto0
145. Setados=Server.CreateObject("[u]Adodb.Stream[/u]")
147. %>
148. <%
150. DimRangeStart分段下载的入手下手地位
152. Dimfso
153. Setfso=Server.CreateObject("Scripting.FileSystemObject")
155. Iffso.FileExists(LocalFileFullPhysicalPath)
156. Then判别要下载的文件是不是已存在
158. RangeStart=fso.GetFile(LocalFileFullPhysicalPath).Size若存在，以以后文件巨细作为入手下手地位
160. Else
162. RangeStart=0若不存在，统统从零入手下手
164. fso.CreateTextFile(LocalFileFullPhysicalPath).Close新建文件
166. EndIf
168. Setfso=Nothing
170. %>
171. <%
173. DimFileDownStart本次下载的入手下手地位
175. DimFileDownEnd本次下载的停止地位
177. DimFileDownBytes本次下载的字节数
179. DimDownStartTime入手下手下载工夫
181. DimDownEndTime完成下载工夫
183. DimDownAvgSpeed均匀下载速率
184. DimBlockStartTime块入手下手下载工夫
186. DimBlockEndTime块完成下载工夫
188. DimBlockAvgSpeed块均匀下载速率
189. DimpercentWidth进度条的宽度
191. DimDownPercent已下载的百分比
192. FileDownStart=RangeStart
194. %>
195. <%
197. DimadosCache数据缓冲区
199. DimadosCacheSize缓冲区巨细
200. SetadosCache=Server.CreateObject("[u]Adodb.Stream[/u]")
202. adosCache.Type=1数据流范例设为字节
204. adosCache.Mode=3数据流会见形式设为读写
206. adosCache.Open
208. adosCacheSize=4*1024*1024设为4M，
209. 猎取的数据先放到(内存)缓冲区中，当缓冲区满的时分数据写进磁盘
210. 若在本人的电脑上运转本程序，当下载百兆以下级其余年夜文件的时分，可设置年夜的缓冲区
212. 固然，也不要设的太年夜，以免产生(按下扫瞄器上的中断按钮或断电等)
213. 不测情形招致缓冲区中的数据没有存盘，那缓冲区中的数据就白下载了
215. %>
216. <%
218. 先显现html头部
220. Response.Clear
222. CallHtmlHead()
224. Response.Flush
226. %>
227. <%
229. DimResponseRange服务器前往的http头中的"Content-Range"
231. DimCurrentLastBytes以后下载的停止地位(即ResponseRange中的下限)
233. DimTotalBytes文件总字节数
235. Dimtemp
236. 分段下载
238. DownStartTime=Now()
239. Do
241. BlockStartTime=Timer()
242. http.open"GET",RemoteFileUrl,true,"",""用异步体例挪用serverxmlhttp
243. 机关http头
245. http.setRequestHeader"Referer",RefererUrl
247. http.setRequestHeader"Accept","*/*"
249. http.setRequestHeader"User-Agent","Baiduspider+(
250. +http://www.baidu.com/search/spider.htm)"假装成Baidu
252. http.setRequestHeader"User-Agent","Googlebot/2.1(
253. +http://www.google.com/bot.html)"假装成Google
255. http.setRequestHeader"Range","bytes=
256. "&RangeStart&"-"&Cstr(RangeStart+BlockSize-1)分段关头
258. http.setRequestHeader"Content-Type","[u]application[/u]/octet-stream"
260. http.setRequestHeader"Pragma","no-cache"
262. http.setRequestHeader"Cache-Control","no-cache"
263. http.send发送
264. 轮回守候数据吸收
266. While(http.readyState4)
268. 判别是不是块超时
270. temp=Timer()-BlockStartTime
272. If(temp>BlockTimeout)Then
274. http.abort
276. Response.Write"<script>document.getElementById(""status"").[u]innerHTML[/u]=""<strong>
277. 毛病：数据下载超时，倡议重试。
278. </strong>"";</script>"&vbNewLine&"</body></html>"
280. CallErrHandler()
282. CallCloseObject()
284. Response.End
286. EndIf
287. http.waitForResponse1000守候1000毫秒
289. Wend
290. 检测形态
292. Ifhttp.status=416Then服务器不克不及满意客户在哀求中指定的Range头。应该是已下载终了。
294. FileDownEnd=FileDownStart设置一下FileDownEnd，以免前面的FileDownBytes盘算堕落
296. CallCloseObject()
298. ExitDo
300. EndIf
301. 检测形态
303. Ifhttp.status>299Thenhttp堕落
305. Response.Write"<script>document.getElementById(""status"").[u]innerHTML[/u]=""<strong>http
306. 毛病："&http.status&""&http.statusText&"</strong>"";
307. </script>"&vbNewLine&"</body></html>"
309. CallErrHandler()
311. CallCloseObject()
313. Response.End
315. EndIf
316. 检测形态
318. Ifhttp.status206Then服务器不撑持断点续传
320. Response.Write"<script>document.getElementById(""status"").[u]innerHTML[/u]=""<strong>
321. 毛病：服务器不撑持断点续传！</strong>"";</script>"&vbNewLine&"</body></html>"
323. CallErrHandler()
325. CallCloseObject()
327. Response.End
329. EndIf
330. 检测缓冲区是不是已满
332. IfadosCache.Size>=adosCacheSizeThen
334. 翻开磁盘上的文件
336. ados.Type=1数据流范例设为字节
338. ados.Mode=3数据流会见形式设为读写
340. ados.Open
342. ados.LoadFromFileLocalFileFullPhysicalPath翻开文件
344. ados.Position=ados.Size设置文件指针初始地位
345. 将缓冲区数据写进磁盘文件
347. adosCache.Position=0
349. ados.WriteadosCache.Read
351. ados.SaveToFileLocalFileFullPhysicalPath,2掩盖保留
353. ados.Close
354. 缓冲区复位
356. adosCache.Position=0
358. adosCache.SetEOS
360. EndIf
362. 保留块数据到缓冲区中
364. adosCache.Writehttp.responseBody写进数据
365. 判别是不是全体(块)下载终了
367. ResponseRange=http.getResponseHeader("Content-Range")取得http头中的"Content-Range"
369. IfResponseRange=""Then没有它就不晓得下载完了没有
371. Response.Write"<script>document.getElementById(""status"").[u]innerHTML[/u]=""<strong>
372. 毛病：文件长度未知！</strong>"";</script>"&vbNewLine&"</body></html>"
374. CallCloseObject()
376. Response.End
378. EndIf
380. temp=Mid(ResponseRange,Instr(ResponseRange,"-")+1)Content-Range是相似123-456/789的模样
382. CurrentLastBytes=Clng(Left(temp,Instr(temp,"/")-1))123是入手下手地位，456是停止地位
384. TotalBytes=Clng(Mid(temp,Instr(temp,"/")+1))789是文件总字节数
386. IfTotalBytes-CurrentLastBytes=1Then
388. FileDownEnd=TotalBytes
389. 将缓冲区数据写进磁盘文件
391. ados.Type=1数据流范例设为字节
393. ados.Mode=3数据流会见形式设为读写
395. ados.Open
397. ados.LoadFromFileLocalFileFullPhysicalPath翻开文件
399. ados.Position=ados.Size设置文件指针初始地位
401. adosCache.Position=0
403. ados.WriteadosCache.Read
405. ados.SaveToFileLocalFileFullPhysicalPath,2掩盖保留
407. ados.Close
408. Response.Write"<script>document.getElementById
409. (""downsize"").[u]innerHTML[/u]="""&TotalBytes&""";
410. </script>"&vbNewLine
412. Response.Flush
414. CallCloseObject()
416. ExitDo停止地位比总巨细少1就暗示传输完成了
418. EndIf
420. 调剂块入手下手地位，筹办下载下一个块
422. RangeStart=RangeStart+BlockSize
423. 盘算块下载速率、进度条宽度、已下载的百分比
425. BlockEndTime=Timer()
427. temp=(BlockEndTime-BlockStartTime)
429. Iftemp>0Then
431. BlockAvgSpeed=Int(BlockSize/1024/temp)
433. Else
435. BlockAvgSpeed=""
437. EndIf
439. percentWidth=Int(PercentTableWidth*RangeStart/TotalBytes)
441. DownPercent=Int(100*RangeStart/TotalBytes)
442. 更新进度条
444. Response.Write"<script>document.getElementById
445. (""downpercent"").[u]innerHTML[/u]="""&DownPercent&"%"";
446. document.getElementById(""downsize"").[u]innerHTML[/u]="""&RangeStart&""";
447. document.getElementById(""totalbytes"").[u]innerHTML[/u]="""&TotalBytes&""";
448. document.getElementById(""blockavgspeed"").[u]innerHTML[/u]="""&BlockAvgSpeed&""";
449. document.getElementById(""percentdone"").style.width="""&percentWidth&""";
450. </script>"&vbNewLine
452. Response.Flush
454. LoopWhileResponse.IsClientConnected
455. IfNotResponse.IsClientConnectedThen
457. Response.End
459. EndIf
460. DownEndTime=Now()
462. FileDownBytes=FileDownEnd-FileDownStart
464. temp=DateDiff("s",DownStartTime,DownEndTime)
466. If(FileDownBytes0)And(temp0)Then
468. DownAvgSpeed=Int((FileDownBytes/1024)/temp)
470. Else
472. DownAvgSpeed=""
474. EndIf
475. 全体下载终了后更新进度条
477. Response.Write"
478. <script>document.getElementById(""downpercent"").[u]innerHTML[/u]=""100%"";
479. document.getElementById(""percentdone"").style.width="""&PercentTableWidth&""";
480. document.getElementById(""percent"").style.display=""none"";
481. document.getElementById(""status"").[u]innerHTML[/u]=""<strong>下载终了！
482. 用时："&S2T(DateDiff("s",DownStartTime,DownEndTime))&"，
483. 均匀下载速率："&DownAvgSpeed&"K/秒</strong>"";</script>"&vbNewLine
485. %>
486. </body>
488. </html>
489. <%
491. SubCloseObject()
493. Setados=Nothing
495. Sethttp=Nothing
497. adosCache.Close
499. SetadosCache=Nothing
501. EndSub
503. %>
504. <%
506. http非常加入处置代码
508. SubErrHandler()
510. Dimfso
511. Setfso=Server.CreateObject("Scripting.FileSystemObject")
513. Iffso.FileExists(LocalFileFullPhysicalPath)Then判别要下载的文件是不是已存在
515. Iffso.GetFile(LocalFileFullPhysicalPath).Size=0Then若文件巨细为0
517. fso.DeleteFileLocalFileFullPhysicalPath删除文件
519. EndIf
521. EndIf
523. Setfso=Nothing
525. EndSub
527. %>
528. <%SubHtmlHead()%>
530. <html>
532. <head>
534. <metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
536. <title>带进度条的ASP无组件断点续传下载----半夜狂龙(Madpolice)--2005.12.25</title>
538. </head>
540. <body>
542. <divid="status">正鄙人载<spanstyle="color:blue">
543. <%=RemoteFileUrl%></span>,请稍候...</div>
545. <div></div>
547. <divid="progress">已完成：<spanid="downpercent"style="color:green">
548. </span><spanid="downsize"style="color:red"><%=RangeStart%>
549. </span>/<spanid="totalbytes"style="color:blue">
550. </span>字节(<spanid="blockavgspeed"></span>K/秒)</div>
552. <div></div>
554. <divid="percent"align="center"style="display:">
556. <tablestyle="border-collapse:collapse;"border="1"bordercolor="#666666"
557. cellpadding="0"cellspacing="0"
558. width="<%=PercentTableWidth%>"
559. align="center"bgcolor="#eeeeee">
561. <trheight="20">
563. <td>
565. <tableborder="0"width=""cellspacing="1"bgcolor="#0033FF"id="percentdone">
567. <tr>
569. <td><td>
571. </tr>
573. </table>
575. </td>
577. </tr>
579. </table>
581. </div>
583. <%EndSub%>
584. <%
586. ------------------------------
588. 将秒数转换为"x小时y分钟z秒"情势
590. ------------------------------
592. FunctionS2T(ByVals)
594. Dimx,y,z,t
596. Ifs<1Then
598. S2T=(s*1000)&"毫秒"
600. Else
602. s=Int(s)
604. x=Int(s/3600)
606. t=s-3600*x
608. y=Int(t/60)
610. z=t-60*y
612. Ifx>0Then
614. S2T=x&"小时"&y&"分"&z&"秒"
616. Else
618. Ify>0Then
620. S2T=y&"分"&z&"秒"
622. Else
624. S2T=z&"秒"
626. EndIf
628. EndIf
630. EndIf
632. EndFunction
634. -----------------------
636. %>

复制代码

ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

不能只是将它停留在纸上谈兵的程度上。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。