无组件ASP文件上传源代码

无组件ASP文件上传源代码
无组件ASP文件上传源代码记得在建立一个文件夹"updata"saveannounce_upload.asp上传页------------------------------------body{font-size:9pt;}input{font-size:9pt;}文件上传文件------------------------------------saveannouce_upfile.asp保存文件到服务器------------------------------------文件上传500*1000then'设置上传文件大小为500Kresponse.write"文件大小超过了限制500K　[重新上传]"response.endendififfile.FileSize＞0then''如果FileSize＞0说明有文件数据file.SaveAsServer.mappath("updata\"&file.FileName)''保存文件endifsetfile=nothingnextsetupload=nothingresponse.write"文件上传成功[继续上传]"%＞------------------------------------upload.inc建立upload对象------------------------------------dimupfile_5xSoft_StreamClassupload_5xSoftdimForm,File,VersionPrivateSubClass_InitializedimiStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFiledimstrDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStrVersion=""ifRequest.TotalBytes＜1thenExit 本软件ID:3913646