台灣最大程式設計社群網站
線上人數
640
 
會員總數:245619
討論主題:189317
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 從資料庫把圖捉出來
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
從資料庫把圖捉出來
價值 : 0 QP  點閱數:1035 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
以下資訊, 好像是在小舖上看到, 擷取下來的, 但忘了當初是誰Post的, 不好意思, 借花獻佛

=======================================
是直接使用ADODB.Stream的方式來處理資料庫的BLOB
<%
'讀出
Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open

strStream.Write RS.Fields("**YourImageField**").Value
Response.ContentType = "image/gif"
Response.BinaryWrite objStream.Read
%>

<%'寫入
Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open
strstream.loadfromFile "***YourImageFile***"

RS.Fields("**YourImageField**").Value = strStream.Read
%>
================================================================
2 回應者: LOTS
謝謝!!
我在別的地方也找到方法了我也把方法提供出來
show.asp
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<FORM name="form1" enctype="multipart/form-data">
<%
Set rs = Server.CreateObject("ADODB.Connection")
rs.Open("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Initial Catalog=;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096")

set ros = createobject("ADODB.Recordset")
lwk_sql = ""
lwk_sql = "SELECT ID FROM PRODUCT"
ros.open lwk_sql , rs , 1 , 3

Do Until ros.EOF


%>
<IMG SRC="test8.asp?id=<%=ros("id")%>" width="200" height="200">
<%
ros.MoveNext
Loop
ros.Close

%>
</form>
</BODY>
</HTML>
這方式可以把你的資料庫的圖依條件show出來

test8.asp
<%
Set rs = Server.CreateObject("ADODB.Connection")
rs.Open("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=;Initial Catalog=;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096")
set rec=server.createobject("ADODB.recordset")
strsql="select pic from product where id='" & Trim(Request("id")) & "'"

rec.open strsql,rs,1,1
Response.ContentType = "pic/*"
Response.BinaryWrite rec("pic").getChunk(7500000)
rec.Close
set ret = nothing
set rs=nothing
%>
上述的方法也可以把圖show出來...
而SQLOLEDB 部份有些自己地方要改
ID=xx
Source=xx
Catalog=xx
如有更好的方法,也歡迎大家提供
謝謝

====================================================================
回應者: nbhero

'showimg.asp的内容
<%
set connGraph=server.CreateObject("ADODB.connection")
Provider="PROVIDER=SQLOLEDB;UID=sa;PWD=1130;DATABASE=SD"

connGraph.open Provider
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.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>

'顯示頁面内容
<%
set connGraph=server.CreateObject("ADODB.connection")
Provider="PROVIDER=SQLOLEDB;UID=sa;PWD=1130;DATABASE=SD"

connGraph.open Provider
set rec=server.createobject("ADODB.recordset")
strsql="select * from images"
rec.open strsql,connGraph,1,1
do until rec.eof
%>
<IMG SRC="showing.asp?id=<%=rec("id")%>" width="200" height="200">
<%
rec.movenext
loop
rec.close
set rec=nothing
set connGraph=nothing
%>


本篇文章發表於2002-04-19 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.