请教关于数据库存取图像的代码？

[ldxm8848]

大家好：
以下是ASP中用 LyfUpload 上传组件从数据库中存取图片的一段调用过程程序代码：
<%
Function setForDisplay(field,contentType)
contentType=LCase(trim(contentType))
nFieldSize=field.ActualSize
bytes=field.GetChunk(nFieldSize)
Session("Bytes")=bytes
Session("Type")=contentType
End Function
%>
----
根据以上代码，我想问各位高手几个问题：
①field.ActualSize 是什么意思？
②field 是一个什么对象，是不是数据表的字段对象？
③ActualSize 是什么属性或方法，有什么作用？
④另外 field 还有其它属性或方法吗？分别有什么作用？
⑤还有 field.GetChunk 又是什么意思？有什么作用？
---
在线待复！
谢谢！

[jspadmin]

字段的大小，field不是数据库的字段对象，是这个组件里的对象，具体有什么属性或方法，请你参考代码本身的说明或注释。GetChunk是读取2进制字段的方法，一般读取图片什么的都是用这个
-----------------------------------------------------------------------------
欢迎光临我的小站http://www.pifoo.com 有什么问题可以给我留言http://www.pifoo.com/guestbook/ 我的QQ:33323489

[jspadmin]

目前有很多无组件上传类，我大概看了一下，大多写的相当复杂，有的居然还只能传文本
最关键的是没有10行代码以下的 ：）
我花了一个晚上时间研究了一下ADODB.Stream，并且用了6行代码实现了无组件上传：
<%
fname=Request.QueryString("upfile")
Set obj = Server.CreateObject("ADODB.Stream")
obj.Type = 1 ' adTypeBinary
obj.Open
obj.LoadFromFile fname
obj.SaveToFile Server.mappath(".")&"\"&"pifoocom.gif",2
%>

使用方法：
把上面的代码写成upload.asp
在浏览器里面输入：
http://172.16.13.62/aspstudy/upload/myup/upload.asp?upfile=D:\Inetpub\wwwroot\aspstudy\netos\images\asp.gif
XXX为你的主机地址
执行完后你会看到你的目录下面多了一个pifoocom.gif !!!


根据原理我们可以扩展以下代码：
upload.asp文件
<%
Function GetFileName(ByVal fpath)
If fpath<>"" Then
GetFileName=mid(fpath,InStrRev(fpath, "\")+1)
Else
GetFileName=""
End If
End function

fpath = Request.Form("upfile")
username=request.form("username")
Set mystream = Server.CreateObject("ADODB.Stream")
mystream.Type = 1 ' adTypeBinary
mystream.Open
mystream.LoadFromFile fpath
mystream.SaveToFile (Server.MapPath("upfiles") & "\" & GetFileName(fpath)),2
mystream.Close
response.write username & ",你好,你的文件:<BR>"
response.write fpath & "已经上传成功！"
%>

upload.htm文件
<FORM METHOD=POST ACTION="upload.asp">
请输入姓名：<INPUT TYPE="text" NAME="username"><BR>
请选择文件：<input type="file" name="upfile"><BR>
<INPUT TYPE="submit" value="上传">  <INPUT TYPE="reset" value="取消">
</FORM>