![]() 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 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |