无组件上传图片之文件采用方案--.doc

　　无组件上传图片之文件采用方案 首先，图片在页面中能查找选择。设计表单页面index.asp和上传选择页upload.asp，upload.asp在index.asp中以iframe包含。 其次，所选图片应能上传到某文件夹。建立一文件夹uploadimg 最后，传上去的图片应如何引用？很显然，采用UBB立即显示。upload.asp的指向对象upfile.asp具有写入UBB标签的功能。 图片上传采用稻香老农的无组件上传。所以upload.inc文件必不可少。 1，upload.inc（拷贝以下文本框的所有代码） lt;SCRIPTRUNAT=SERVERLANGUAGE=VBSCRIPTgt; dimupfile_5xSoft_Stream Classupload_5xSoft dimForm,File,Version PrivateSubClass_Initialize dimiStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile dimstrDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr Version= ifRequest.TotalByteslt;1thenExitSub setForm=CreateObject(Scripting.Dictionary) setFile=CreateObject(Scripting.Dictionary) setupfile_5xSoft_Stream=CreateObject(Adodb.Stream) upfile_5xSoft_Stream.mode=3 upfile_5xSoft_Stream.type=1 upfile_5xSoft_Stream.open upfile_5xSoft_Stream.p;Chr(10) iDivLen=inString(1,vbEnter)+1 strDiv=subString(1,iDivLen) iFormStart=iDivLen iFormEnd=inString(iformStart,strDiv)-1 Startlt;iFormEnd iStart=inString(iFormStart,name=) iEnd=inString(iStart+6,) mFormName=subString(iStart+6,iEnd-iStart-6) iFileNameStart=inString(iEnd+1,filename=) ifiFileNameStartgt;0andiFileNameStartlt;iFormEndthen iFileNameEnd=inString(iFileNameStart+10,) mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10) iStart=inString(iFileNameEnd+1,vbEntervbEnter) iEnd=inString(iStart+4,vbEnterstrDiv) ifiEndgt;iStartthen mFileSize=iEnd-iStart-4 else mFileSize=0 endif settheFile=nee=getFileName(mFileName) theFile.FilePath=getFilePath(mFileName) theFile.FileSize=mFileSize theFile.FileStart=iStart+4 theFile.FormName=FormName file.addmFormName,theFile else iStart=inString(iEnd+1,vbEntervbEnter) iEnd=inString(iStart+4,vbEnterstrDiv) ifiEndgt;iStartthen mFormValue=subString(iStart+4,iEnd-iStart-4) else mFormValue= endif form.AddmFormName,mFormValue endif iFormStart=iformEnd+iDivLen iFormEnd=inString(iformStart,strDiv)-1 nbsp 1234下一页 这篇文章来自..，。;i,c,stemp upfile_5xSoft_