ASP无组件上载,带进度条,多文件上载。。
= ""
End If End Function End Class ![]() Class FileInfo Dim FormName,FileName,FilePath,FileSize,FileType,FileStart Private Sub Class_Initialize FileName = "" FilePath = "" FileSize = 0 FileStart= 0 FormName = "" FileType = "" End Sub Public Function SaveAs(FullPath) Dim dr,ErrorChar,i SaveAs=True If trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" Then 上一篇:支持多风格变换的ASP分页类 下一篇:安装JDK 就可同时运行PHP和Java? 更多相关文章
|
推荐文章
精彩文章
|