《asp实现上传功能的源码演示》由会员分享，可在线阅读，更多相关《asp实现上传功能的源码演示（5页珍藏版）》请在金锄头文库上搜索。
1、asp无组件上传图片的源码分析及下载要实现图片的上传功能其实非常简单，只需要四个文件与一个文件夹即可实现。第一个文件：Upload.asp这个文件的源代码如下：说明：这个文件将引用一个名为upload_Photo.asp的文件也就是下面要讲的第二个文件作为框架，同时这里传递一个PhotoUrlID参数给pload_Photo.asp这个文件的form1表单中的名为PhotoUrlID的隐藏域名，其值为1第二个文件：Upload_Photo.asp，这个文件的源代码如下：functioncheck()varstrFileName=document.form1.FileName.value;if(
2、strFileName=)alert(请选择要上传的文件);document.form1.FileName.focus();returnfalse;inputname=PhotoUrlIDtype=hiddenid=PhotoUrlIDvalue=说明：这个是作为第一个文件Upload.asp的框架文件，注意这里的FileName的文本框是用于接受上传成功之后图片的地址第三个文件：Upfile_Photo.asp，其源代码如下：0then如果出错selectcaseupload.errcase1response.write请先选择你要上传的文件！200k)case2response.write
3、你上传的文件总大小超出了最大限制(endselectresponse.endendifPhotoUrlID=Clng(trim(upload.form(PhotoUrlID)ifPhotoUrlID0thenSavePath=UploadFiles存放上传文件的目录elseSavePath=UploadFiles存放上传文件的目录endififright(SavePath,1)/thenSavePath=SavePath&/在目录后加(/)foreachformNameinupload.file列出所有上传了的文件setofile=upload.file(formName)生成一个文件对象oF
4、ileSize=ofile.filesizeifoFileSize(MaxFileSize*1024)thenmsg=文件大小超过了限制，最大只能上传&CStr(MaxFileSize)&K的文件！FoundErr=trueendifcase1ifoFileSize(10000*1024)thenmsg=文件大小超过了限制，最大只能上传10M的文件！FoundErr=trueendifendselectendiffileExt=lcase(ofile.FileExt)arrUpFileType=split(gif|jpg|bmp|png|swf|doc|rar|xls,|)如需添加其它类型的文
5、档请在这里添加文档后缀名fori=0toubound(arrUpFileType)iffileEXT=trim(arrUpFileType(i)thenEnableUpload=trueexitforendifnextiffileEXT=asporfileEXT=asaorfileEXT=aspxthenEnableUpload=falseendififEnableUpload=falsethenmsg=这种文件类型不允许上传！nn只允许上传这几种文件类型：&gif|jpg|bmp|png|swf|doc|rar|xlsFoundErr=trueendifstrJS=&vbcrlfifFoun
6、dErrtruethenrandomizeranNum=int(900*rnd)+100filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&.&fileExtofile.SaveToFileServer.mappath(FileName)保存文件response.write文件上传成功！文件大小为：&cstr(round(oFileSize/1024)&KselectcasePhotoUrlIDcase0strJS=strJS&parent.document.myfor
7、m.PhotoSize1.value=&cstr(round(oFileSize/1024)&;&vbcrlfcase1strJS=strJS&parent.document.myform.DefaultPicUrl.value=&fileName&;&vbcrlfendselectelsestrJS=strJS&alert(&msg&);&vbcrlfstrJS=strJS&history.go(-1);&vbcrlfendifstrJS=strJS&vbcrlfresponse.writestrJSsetfile=nothingnextsetupload=nothingendsub%第四个
8、文件upfile_class.asp,源代码如下%DimoUpFileStreamI文件上传类ClassUpFile_ClassDimForm,File,Version,ErrPrivateSubClass_InitializeVersion=无惧上传类VersionV1.2Err=-1EndSubPrivateSubClass_Terminate清除变量及对像IfErr0ThenForm.RemoveAllSetForm=NothingFile.RemoveAllSetFile=NothingoUpFileStream.CloseSetoUpFileStream=NothingEndIfEn
9、dSubPublicSubGetData(MaxSize)定义变量DimRequestBinData,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfoDimiFileSize,sFilePath,sFileType,sFormValue,sFileNameDimiFindStart,iFindEndDimiFormStart,iFormEnd,sFormName代码开始IfRequest.TotalBytes0Then如果限制大小IfRequest.TotalBytesMaxSizeThenErr=2如果上传的数据超出限制ExitSubEndIfEndIfSetForm=Server.CreateObject(Scripting.Dictionary)Form.CompareMode=1SetFile=Server.CreateObject(Scripting.Dictionary)File.Com
