在ASP+ACCESS中存入图片格式文件

设计了一个产品网页，后台为ACCESS ，字段名为ID， MODEL，PHOTO， PRICE 想请问高手，如何在ACCESS中 存入 图片 格式 文件 ，字段类型是什么 另外如何在网页中显示数据库中的 图片 文件 !--#include file="inc/domin.asp"-- !--#include file="conn.asp"--

设计了一个产品网页，后台为ACCESS
，字段名为ID， MODEL，PHOTO， PRICE
想请问高手，如何在ACCESS中存入图片格式文件，字段类型是什么
另外如何在网页中显示数据库中的图片文件

欢迎你：<% =username %> 管理中心

<% set rs=server.createobject("adodb.recordset") sql="select * from photo where author='"&username&"'" rs.open sql,conn,1,1 %> 现在位置： 98243班 - 管理中心 - 添加新闻 <% =username %>：你一共上传了 <% =rs.recordcount %> 张照片 管理以前上传的照片

fupload.inc




addphoto.asp



<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim Fields
UploadSizeLimit=100000
Set Fields = GetUpload()
dim Field
For Each Field In Fields.Items
select case Field.name
case "thetext" sss=BinaryToString(Field.value)
case "type" fff=BinaryToString(Field.value)
case "submit" submit=BinaryToString(Field.value)
case "pic"
filename=field.FileName
fileContentType=field.ContentType
filevalue=field.value
end select
next
'---------------
if filename<>"" and fileContentType<>"image/gif" and

fileContentType<>"image/pjpeg" then
%>




上传的照片应该为GIF或JPG文件！




<%
else
'------------
'开始输入
'-----------
response.write sss
response.write"
"
response.write fff
set rs=server.createobject("ADODB.recordset")
sql = "select * from tb where theid is null"
rs.Open sql,conn,3,3
rs.addnew
rs("author")=username
rs("thetext")=sss
rs("types")=fff
rs("hits")=1
rs("posttime")=now()
rs("photo").appendchunk filevalue

rs.update
rs.close
%>




size=3>成功输入个人基本档案！



<%
end if
end if
%>


showpic.asp

<%
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM tb where theid="&id
rs.Open sql,conn,1,3
response.contenttype="image/gif"
Response.BinaryWrite rs("photo")
%>