ASP无组件上载,带进度条,多文件上载。。
Exit Function
Set dr=CreateObject("Adodb.Stream") dr.Mode=3 dr.Type=1 dr.Open SundyUpload_SourceData.position=FileStart SundyUpload_SourceData.copyto dr,FileSize dr.SaveToFile FullPath,2 dr.Close Set dr=Nothing SaveAs=False End Function End Class![]() Class Progress Dim objDom,xmlPath Dim startTime Private Sub Class_Initialize ![]() End Sub Public Sub ProgressInit(xmlPathTmp) Dim objRoot,objChild Dim objPI![]() xmlPath = xmlPathTmp Set objDom = Server.CreateObject(上一篇:支持多风格变换的ASP分页类 下一篇:安装JDK 就可同时运行PHP和Java? 更多相关文章
|
推荐文章
精彩文章
|