用ASP实现多图片上传到指定目录并存储数据库

核心提示： vbEnter=Chr(13)&Chr(10) iDivLen=inString(1,vbEnter)+1 strDiv=subString(1,iDivLen) iFormStart=iDivLen iFormEnd=inString(iformStart,strDiv)-1 while iFormStart &

　　　　
　　　　vbEnter=Chr(13)&Chr(10)
　　　　iDivLen=inString(1,vbEnter)+1
　　　　strDiv=subString(1,iDivLen)
　　　　iFormStart=iDivLen
　　　　iFormEnd=inString(iformStart,strDiv)-1
　　　　while iFormStart < iFormEnd
　　　　　iStart=inString(iFormStart,"name=""")
　　　　　iEnd=inString(iStart+6,"""")
　　　　　mFormName=subString(iStart+6,iEnd-iStart-6)
　　　　　iFileNameStart=inString(iEnd+1,"filename=""")
　　　　　if iFileNameStart>0 and iFileNameStart<iFormEnd then
　　　　　 iFileNameEnd=inString(iFileNameStart+10,"""")
　　　　　 mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10)
　　　　　 iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)
　　　　　 iEnd=inString(iStart+4,vbEnter&strDiv)
　　　　　 if iEnd>iStart then
　　　　　　mFileSize=iEnd-iStart-4
　　　　　 else
　　　　　　mFileSize=0
　　　　　 end if
　　　　　 set theFile=new FileInfo
　　　　　 theFile.FileName=getFileName(mFileName)
　　　　　 theFile.FilePath=getFilePath(mFileName)
　　　　　 theFile.FileSize=mFileSize
　　　　　 theFile.FileStart=iStart+4
　　　　　 theFile.FormName=FormName
　　　　　 file.add mFormName,theFile
　　　　　else
　　　　　 iStart=inString(iEnd+1,vbEnter&vbEnter)
　　　　　 iEnd=inString(iStart+4,vbEnter&strDiv)
　　　　
　　　　　 if iEnd>iStart then
　　　　　　mFormValue=subString(iStart+4,iEnd-iStart-4)