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

設計了一個產(chǎn)品網(wǎng)頁，后臺為ACCESS ，字段名為ID， MODEL，PHOTO， PRICE 想請問高手，如何在ACCESS中 存入 圖片 格式 文件 ，字段類型是什么 另外如何在網(wǎng)頁中顯示數(shù)據(jù)庫中的 圖片 文件 !--#include file="inc/domin.asp"-- !--#include file="conn.asp"--

設計了一個產(chǎn)品網(wǎng)頁，后臺為ACCESS
，字段名為ID， MODEL，PHOTO， PRICE
想請問高手，如何在ACCESS中存入圖片格式文件，字段類型是什么
另外如何在網(wǎng)頁中顯示數(shù)據(jù)庫中的圖片文件

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

<% set rs=server.createobject("adodb.recordset") sql="select * from photo where author='"&username&"'" rs.open sql,conn,1,1 %> 現(xiàn)在位置： 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")
%>

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com