Linux中国 Linux中国门户站!
设为主页 设为主页
收藏本站 收藏本站
 
当前位置 :首页 ->编程语言 ->ASP ->正文

ASP无组件上载,带进度条,多文件上载。。

来源:Linuxdby.com 作者:Webmaster 时间:2007-04-23 点击: [收藏] [投稿]
 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?

文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论
更多相关文章
Power by linux-cn.com 粤ICP备05006655号