ASP无组件上载,带进度条,多文件上载。。
FileInfo
Else Set File=objFile(strFile) End If End Function Public Sub UploadInit(progressXmlPath,charset) Dim RequestData,sStart,Crlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName Dim iFindStart,iFindEnd Dim iFormStart,iFormEnd,sFormName Version="Upload Width Progress Bar Version 1.0" Set objForm=Server.CreateObject("Scripting.Dictionary") Set objFile=Server.CreateObject("Scripting.Dictionary") If Request.TotalBytes<1 Then Exit Sub Set tStream = Server.CreateObject("adodb.stream") Set SundyUpload_SourceData = Server.CreateObject("adodb.stream") SundyUpload_SourceData.Type 上一篇:支持多风格变换的ASP分页类 下一篇:安装JDK 就可同时运行PHP和Java? 更多相关文章
|
推荐文章
精彩文章
|