IPosBegin = InstrB(iValuePos, strBinData, strBinCRLF) 'append to files collection if not empty: StrFileData = MidB(strBinData, iPosBegin, iPosEnd-iPosBegin) IPosEnd = InstrB(iPosBegin, strBinData, strBoundaryData)-2 StrFileType = BinaryToAscii(MidB(strBinData, iPosBegin, iPosEnd-iPosBegin))
IPosBegin = InstrB(iPosEnd, strBinData, AsciiToBinary("Content-Type:")) IPosEnd = InstrB(iPosEnd, strBinData, strBoundaryData) IPosBegin = InstrB(iCurPosition, strBinData, AsciiToBinary("filename=")) StrElementName = BinaryToAscii(MidB(strBinData, iPosBegin, iPosEnd-iPosBegin)) IPosEnd = InstrB(iPosBegin, strBinData, strBinQuote) IPosBegin = InstrB(iPosBegin, strBinData, AsciiToBinary("name=")) IPosBegin = InstrB(iCurPosition, strBinData, AsciiToBinary("Content-Disposition")) 'read binary data into private collection:ĭo until (iCurPosition>=iBoundaryEndPos) Or (iCurPosition=0) IBoundaryEndPos = InstrB(strBinData, strBoundaryEnd) StrBoundaryEnd = strBoundaryData & AsciiToBinary("-") ICurPosition = InstrB(1, strBinData, strBoundaryData) StrBoundaryData = MidB(strBinData, iPosBegin, iPosEnd-iPosBegin) IPosEnd = InstrB(iPosBegin, strBinData, strBinCRLF) Private Sub BuildUpload(ByVal strBinData)ĭim strBoundaryEnd, iCurPosition, iBoundaryEndPosĭim strElementName, strFileName, objFileDataĭim strFileType, strFileData, strElementValue Set m_Files = Server.CreateObject("Scripting.Dictionary") Set m_Request = Server.CreateObject("Scripting.Dictionary") StrBinData = Request.BinaryRead(iBytesCount) (Failing to do so might result in "Operation not Allowed" error on the BinaryRead line.) ") Note: if you want to allow uploading images larger than 200kb, take a look in the answer to Request.BinaryRead(Request.TotalBytes) throws error for large files. Save this as-is, preferably as a new file, with.
#Aspupload imagetype plus
Here is a single Class which handles file upload plus image detection.
0 kommentar(er)
