strFileContentType=Replace(strFileContentType,vbCRLF,vbNullString) '讀取上傳的文件名 lngFileNameStart=Instr(strHeaderData,"filename="&chr(34))+Len("filename="&chr(34)) lngFileNameEnd=Instr(lngFileNameStart,strHeaderData,chr(34)) strFileName=Mid(strHeaderData,lngFileNameStart,lngFileNameEnd...
www.dbjr.com.cn/article/126...htm 2025-5-30