无组件文件上传代码实例

无组件文件上传代码实例(4)     strHeaderData=bin2str(binHeaderData)
    
    '读取上传文件的Content-Type
    lngFileContentTypeStart=Instr(strHeaderData,"Content-Type:")+Len("Content-Type:")
    strFileContentType=Trim(Mid(strHeaderData,lngFileContentTypeStart))
    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-lngFileNameStart)
    strFileName=Trim(strFileName)
    strFileName=Replace(strFileName,vbCRLF,vbNullString)
    
    '读取上传文件数据
    DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4
    DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart
    
    If strFileName<>"" Then
                
        binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )
        
        '将上传的文件写入数据库
        set conn = Server.CreateObject("ADODB.Connection")
        conn.Open "DSN=abc"
        
        SQL="select * from User_File"