ASP无组件上载,带进度条,多文件上载。。
10)
sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,Crlf)-1) iStart = LenB (sStart) iFormStart=iFormStart+iStart+1 While (iFormStart + 10) < iFormEnd iInfoEnd = InStrB(iFormStart,RequestData,Crlf & Crlf)+3 tStream.Type = 1 tStream.Mode =3 tStream.Open SundyUpload_SourceData.Position = iFormStart SundyUpload_SourceData.CopyTo tStream,iInfoEnd-iFormStart tStream.Position = 0 tStream.Type = 2 tStream.Charset =CharsetEncoding sInfo = tStream.ReadText tStream.Close '取得表单项目名称 iFormStart = InStrB(iInfoEnd,RequestData,sStart) 上一篇:支持多风格变换的ASP分页类 下一篇:安装JDK 就可同时运行PHP和Java? 更多相关文章
|
推荐文章
精彩文章
|