ASP无组件上载,带进度条,多文件上载。。
0 Then
startTime = Timer Set objDom = Server.CreateObject("Microsoft.XMLDOM") objDom.load(xmlPath) objDom.selectsinglenode("//totalbytes").text=tBytes objDom.save(xmlPath) Else speed = 0.0001 currentTime = Timer eTime = currentTime - startTime If eTime>0 Then speed = rBytes / eTime totalTime = tBytes / speed leftTime = (tBytes - rBytes) / speed percent = Round(rBytes *100 / tBytes) 'objDom.selectsinglenode("//uploadbytes").text = rBytes 上一篇:支持多风格变换的ASP分页类 下一篇:安装JDK 就可同时运行PHP和Java? 更多相关文章
|
推荐文章
精彩文章
|