ASP无组件上载,带进度条,多文件上载。。
totaltime")
objChild.Text = "00:00:00" objRoot.appendChild objChild Set objChild = objDom.createElement("lefttime") objChild.Text = "00:00:00" objRoot.appendChild objChild Set objPI = objDom.createProcessingInstruction("xml","version='1.0' encoding='utf-8'") objDom.insertBefore objPI, objDom.childNodes(0) objDom.Save xmlPath Set objPI = Nothing Set objChild = Nothing Set objRoot = Nothing Set objDom = Nothing End Sub Sub UpdateProgress(tBytes,rBytes) Dim eTime,currentTime,speed,totalTime,leftTime,percent If rBytes =上一篇:支持多风格变换的ASP分页类 下一篇:安装JDK 就可同时运行PHP和Java? 更多相关文章
|
推荐文章
精彩文章
|