圖片的入庫(kù)與讀取的方法
更新時(shí)間：2007年01月02日 00:00:00 作者：
圖片入庫(kù)
讀取圖片
復(fù)制代碼 代碼如下:
<!--#include virtual="/_inc/conn.inc"-->
<%
'取得客戶端送出的數(shù)據(jù)字節(jié)大小
frmsize=Request.TotalBytes
'以二進(jìn)制方式讀取數(shù)據(jù)
frmData=Request.BinaryRead(frmsize)
'去掉實(shí)際數(shù)據(jù)前、后的邊界字符串行
bnCrLf=ChrB(13)&ChrB(10)
divider=leftB(frmdata,CLng(InstrB(frmdata,bnCrLf))-1)
dataStart=InstrB(frmData,bnCrLf&bncrlf)+4
dataEnd=InstrB(datastart+1,frmData,divider)-dataStart
'讀出圖象數(shù)據(jù)
myData=Midb(frmdata,dataStart,dataEnd)
'將圖象數(shù)據(jù)存入數(shù)據(jù)庫(kù)
strSQL="Select * FROM tblImages"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open strSQL,conn,1,3
rs.addnew
rs("picData").AppendChunk myData
rs.Update
counts=rs.recordCount+1
rs.close
conn.close
%>
<%
'取得客戶端送出的數(shù)據(jù)字節(jié)大小
frmsize=Request.TotalBytes
'以二進(jìn)制方式讀取數(shù)據(jù)
frmData=Request.BinaryRead(frmsize)
'去掉實(shí)際數(shù)據(jù)前、后的邊界字符串行
bnCrLf=ChrB(13)&ChrB(10)
divider=leftB(frmdata,CLng(InstrB(frmdata,bnCrLf))-1)
dataStart=InstrB(frmData,bnCrLf&bncrlf)+4
dataEnd=InstrB(datastart+1,frmData,divider)-dataStart
'讀出圖象數(shù)據(jù)
myData=Midb(frmdata,dataStart,dataEnd)
'將圖象數(shù)據(jù)存入數(shù)據(jù)庫(kù)
strSQL="Select * FROM tblImages"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open strSQL,conn,1,3
rs.addnew
rs("picData").AppendChunk myData
rs.Update
counts=rs.recordCount+1
rs.close
conn.close
%>
讀取圖片
復(fù)制代碼 代碼如下:
<!--#include virtual="/_inc/conn.inc"-->
<%
sID=Request.QueryString("id")
strSQL="Select picData FROM tblImages Where id=" & sID
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL,conn,1,1
Response.ContentType="image/*"
dataSize=rs(0).actualSize
Response.BinaryWrite rs(0).getChunk(dataSize)
rs.Close
conn.Close
%>
<%
sID=Request.QueryString("id")
strSQL="Select picData FROM tblImages Where id=" & sID
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL,conn,1,1
Response.ContentType="image/*"
dataSize=rs(0).actualSize
Response.BinaryWrite rs(0).getChunk(dataSize)
rs.Close
conn.Close
%>
相關(guān)文章
AJAX簡(jiǎn)單應(yīng)用實(shí)例-彈出層
AJAX的簡(jiǎn)單應(yīng)用,包括js彈出DIV層、層拖動(dòng)、ajax后臺(tái)讀取數(shù)據(jù)！注意getinfo.asp文件是以u(píng)tf-8格式保存的，在getinfo.asp里面可以寫(xiě)讀數(shù)據(jù)庫(kù)代碼！2008-08-08
判斷dll文件是否已經(jīng)注冊(cè)的ASP函數(shù)代碼
有時(shí)候需要判斷服務(wù)器是否按照了dll文件，那么就可以參考下面的代碼進(jìn)行判斷。2011-09-09
asp最簡(jiǎn)單最實(shí)用的計(jì)數(shù)器
asp最簡(jiǎn)單最實(shí)用的計(jì)數(shù)器...2007-09-09
asp連接mysql數(shù)據(jù)庫(kù)詳細(xì)實(shí)現(xiàn)代碼
文章詳細(xì)的介紹在asp中如何來(lái)連接mysql數(shù)據(jù)庫(kù)并查出數(shù)據(jù)并輸出，同時(shí)也介紹了連接mysql核心代碼及中文亂碼解決辦法2012-04-04
可以查詢google排名的asp源碼...2007-02-02
asp正則替換鏈接實(shí)現(xiàn)偽靜態(tài)效果
有時(shí)候我們需要將頁(yè)面中的動(dòng)態(tài)頁(yè)面替換為我們偽靜態(tài)的格式，一般是頁(yè)面內(nèi)容中批量替換2013-08-08
Asp實(shí)現(xiàn)假靜態(tài)...2007-02-02
jb51內(nèi)容分頁(yè)函數(shù)...2006-08-08
ASP常用的幾個(gè)功能模塊...2006-09-09
推薦的用Asp實(shí)現(xiàn)屏蔽IP地址訪問(wèn)的代碼
推薦的用Asp實(shí)現(xiàn)屏蔽IP地址訪問(wèn)的代碼...2007-08-08