最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

ASP上傳圖片功能的又一實現(xiàn)(OLE對象)

 更新時間:2007年01月03日 00:00:00   作者:  
上次說到的上傳圖片是采用稻香老農(nóng)開發(fā)的無組件上傳。其上傳過程是將圖片先保存到指定文件夾,與此同時將該路徑保存至數(shù)據(jù)庫字段的。顯示圖片則是根據(jù)數(shù)據(jù)庫表中的路徑字段對應顯示的。當然有關(guān)圖片的管理,比如刪除:只刪除了路徑,實際的圖片需要根據(jù)該路徑通過FSO進行刪除……

那有沒有這樣一種情況:將圖片直接作為一個字段的值保存。對圖片的操作就象是對數(shù)據(jù)字段的操作一樣熟練。答案是肯定的,只是將該字段的類型設(shè)為OLE對象

知識點:OLE 對象字段用來存儲諸如 Microsoft Word 或 Microsoft EXCEL 文檔、圖片、聲音的數(shù)據(jù)以及在別的程序中創(chuàng)建的其他類型的二進制數(shù)據(jù)。OLE 對象可以鏈接或嵌入到 Microsoft Access 表的字段中。

一、設(shè)計數(shù)據(jù)庫testimg.mdb

為方便調(diào)試,設(shè)計表imgurl,其中兩個字段:id(自動編號、關(guān)鍵字)、img(OLE 對象)

二、連接數(shù)據(jù)庫文件conn.asp



<%
db_path="testimg.mdb"
set conn=server.CreateObject("ADODB.connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath(db_path)
conn.open connstr
%>



三、提供上傳圖片的表單頁面upload.html



<form action="upload.asp" method="post" enctype="multipart/form-data">
  <input type="file" name="imgurl">
  <input type="submit" name=ok value="ok">
</form>



四、接受數(shù)據(jù)并添加記錄頁upload.asp



<!--#include file="conn.asp"-->
<%
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 rs=server.createobject("ADODB.recordset")
rs.open "SELECT * FROM imgurl",conn,3,3
rs.addnew
rs("img").AppendChunk myData
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect "index.asp"
%>



五、提取數(shù)據(jù)庫表中圖片字段內(nèi)容以做顯示圖片頁showimg.asp



<!--#include file="conn.asp"-->
<%
set rs=server.createobject("ADODB.recordset")
sql="select * from imgurl where id="&trim(request("id"))
rs.open sql,conn,1,1
Response.ContentType="image/*"
Response.BinaryWrite rs("img").getChunk(8000000)
rs.close
set rs=nothing
set conn=nothing
%>



六、顯示圖片的index.asp



<!--#include file="conn.asp"-->
<%
strsql="select * from imgurl"
set rs=server.createobject("ADODB.recordset")
rs.open strsql,conn,1,1
do until rs.eof
whatid=rs("id")
%>
<img src="showimg.asp?id=<%=whatid%>">

<%
rs.movenext
loop%>

相關(guān)文章

最新評論

石门县| 惠水县| 郴州市| 赤水市| 香河县| 南昌县| 永新县| 绥棱县| 临潭县| 永年县| 丹寨县| 长岛县| 西峡县| 西华县| 唐海县| 琼海市| 临江市| 望谟县| 盐城市| 石棉县| 永新县| 宁强县| 忻城县| 濮阳市| 同江市| 突泉县| 湄潭县| 天峨县| 天气| 沙湾县| 新津县| 延寿县| 威宁| 横峰县| 民勤县| 大邑县| 周至县| 通辽市| 绍兴市| 信丰县| 定安县|