无组件文件上传代码实例

无组件文件上传代码实例(5)         set rs=server.CreateObject("ADODB.Recordset")
        rs.Open sql,conn,3,3
        rs.addnew
        rs("UserID")=UserID
        rs("FileContentType")=strFileContentType
        rs("FileContent").AppendChunk binFieldValue
        rs.update
        rs.close
        set rs=Nothing
        conn.Close
        set conn=Nothing
        
    End if
    
    binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))
    
loop
%>

4。下载用户上传的文件
<%
Response.Buffer      = true
Response.Clear

UserID=request("UserID")

Set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "DSN=UploadFile"
rs.open "select * from User_File where UserID='"&UserID&"'",conn,3,3
Response.ContentType = rs("FileContentType")

lngOffset=0
conChunkSize=1024
lngPictSize=rs("FileContent").ActualSize
Do While lngOffset < lngPictSize
  varChunk = rs("FileContent").GetChunk(conChunkSize)
  Response.BinaryWrite varChunk
  lngOffset = lngOffset + conChunkSize
  If lngOffset > lngPictSize Then Exit Do
Loop