如何把图象字段贮存在sql数据库里面.

fbfbfb 2003-12-17 12:12:53

如何在sql里面加入(实在不行可以借住asp程序)???
用asp如何显示???

最好是简单的方法

...全文

41 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

fbfbfb 2003-12-20

打赏
举报

"如何把图片上传到数据库中并显示出来？"
就是把本机的图片输入到数据库里面。
而且最好不用其他程序。
就用sql本身。

online 2003-12-19

打赏
举报

看看这个
如何把图片上传到数据库中并显示出来？

好了，看看我们的代码吧：
upload.htm
' 上传页面
<html>
<body>
<p align="center">精彩春风之图片上传</p>
<center>
　　 <form name="mainForm" enctype="multipart/form-data"
' 这个Form属性是得到上传的数据的关键
action="process.asp" method=post>
　　　　<input type=file name=mefile><br>
　　 <input type=submit name=ok value="上传">
　　 </form>
</center>
</body>
</html>

process.asp
' 处理浏览器中送来的数据
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)

set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};
DBQ=" & server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open

set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>

showimg.asp
' 显示图片
<%
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};
DBQ=" & server.MapPath("images.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id=" & trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
' 在输出到浏览器之前一定要指定Response.ContentType = "image/*",以便正常显示图片
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>

数据库结构如下：
Access：
序号字段名称类型描述
1 id 自动编号主键值
2 img OLE对象用来保存图片数据
　　　　　　　　
MS SQL Server：
序号字段名称类型描述
1 id int(Identity) 主键值
2 img image 用来保存图片数据

fbfbfb 2003-12-18

打赏
举报

有上万张图片呀，路径好象不合适。

“rs("Bin").appendchunk(imgdata)”

这里的imgdata是个什么呀

fbfbfb 2003-12-18

打赏
举报

难道非要编程才能在里面加入图象字段？
直接使用sql不可以吗？

fbfbfb 2003-12-18

打赏
举报

safileup组件如何得到？？？？

Jaron 2003-12-17

打赏
举报

写入数据库
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from tblBinFiles"
rs.open sql,conn,1,3
rs.addnew
rs("Bin").appendchunk(imgdata)
rs.update
rs.close
set rs=nothing
从数据库中读出：
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from tblBinFiles where FileID='"&request("FileID")&"'"
rs.open sql,conn,1,3
if not(rs.EOF and rs.BOF and isnull(rs("Bin"))) then
Response.ContentType = "image/bmp"
Response.BinaryWrite rs("Bin").getChunk(7500000)
else
Response.Write "无效的数据格式"
end if
rs.close
set rs=nothing

会织网的蚂蚁 2003-12-17

打赏
举报

你只存放一个图片地址就行了。

paz 2003-12-17

打赏
举报

推荐你在数据库里建立一个字段，用来存储图片的路径，调用的时候直接调用这个字段就行了。

xinxian1366 2003-12-17

打赏
举报

用safileup组件

Set upl = Server.CreateObject("SoftArtisans.FileUp")

'----------添加图片
Set rsPic = Server.CreateObject("ADODB.RecordSet")
With rsPic
Set .ActiveConnection=connRichway
.CursorType=1
.LockType=3
End With
strSQL = "select top 1 * from Attach order by ImgID desc"
rsPic.open strSQL

rsPic.AddNew()
rsPic.Fields("ImgType") = upl.Form("files").ContentType
upl.form("files").SaveAsBlob rsPic.Fields("bBody")
rsPic.Update()
rsPic.Close
Set rsPic = Nothing

读出来的时候是

strSQL="Select * from Attach Where ImgID=" & iImgID
Set rsRichway=Server.CreateObject("ADODB.RecordSet")
With rsRichway
Set .ActiveConnection=connRichway
.CursorType=1
.LockType=3
.Open strSQL
End With

'If rsRichway.RecordCount=0 Then
' Response.Write "该图片没有找到"
' Response.End
'End If

ImgType=rsRichway("ImgType")
bBody=rsRichway("bBody")

response.buffer=true
response.clear
Response.ContentType = ImgType
Response.BinaryWrite (bBody)

Response.End ()

shijian58 2003-12-17