纯ASP上传图像文件到数据库的最佳例子

　　　　Dim UploadControl
　　　　Set UploadControl = CreateObject("Scripting.Dictionary")
　　　　''Get an object name
　　　　Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
　　　　Pos = InstrB(Pos,RequestBin,getByteString("name="))
　　　　PosBeg = Pos+6
　　　　PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
　　　　Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
　　　　PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
　　　　PosBound = InstrB(PosEnd,RequestBin,boundary)
　　　　''Test if object is of file type
　　　　If　PosFile<>0 AND (PosFile<PosBound) Then
　　　　　　''Get Filename, content-type and content of file
　　　　　　PosBeg = PosFile + 10
　　　　　　PosEnd =　InstrB(PosBeg,RequestBin,getByteString(chr(34)))
　　　　　　FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
　　　　　　''Add filename to dictionary object
　　　　　　UploadControl.Add "FileName", FileName
　　　　　　Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
　　　　　　PosBeg = Pos+14
　　　　　　PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
　　　　　　''Add content-type to dictionary object
　　　　　　ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
　　　　　　UploadControl.Add "ContentType",ContentType
　　　　　　''Get content of object
　　　　　　PosBeg = PosEnd+4
　　　　　　PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
　　　　　　Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
　　　　　　Else
　　　　　　''Get content of object
　　　　　　Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
　　　　　　PosBeg = Pos+4
　　　　　　PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
　　　　　　Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
　　　　End If
　　　　''Add content to dictionary object
　　UploadControl.Add "Value" , Value　　
　　　　''Add dictionary object to main dictionary
　　UploadRequest.Add name, UploadControl　　
　　　　''Loop to next object
　　　　BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
　　Loop

End Sub

''String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
　　 char = Mid(StringStr,i,1)
　　getByteString = getByteString & chrB(AscB(char))
Next
End Function

''Byte string to string conversion
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
　　getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
%>

test.mdb(dsn 名称：upload)
----------------------------------------
表pic:
id:自动加
filename:文本
type:文本
what:ole

-----------------------------------------
存成单个文件，放在一个目录下，打开（必须用http://）getfile.htm
上传一个.gif或.jpg就可以显示了。
对于大文件在显示程序(showpic.asp)中可能会用到循环和getchunk方法。自己去做。记住，由于ASP目前暂时不支持二进行制读写，只能存二进制到