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

圖像圖表

 更新時(shí)間:2006年11月16日 00:00:00   作者:  

如何把圖片上傳到數(shù)據(jù)庫中并顯示出來?

upload.htm

' 上傳頁面.

<html>

<body>

<p align="center">千花飛舞之圖片上傳</p>
<center>
   <form name="mainForm" enctype="multipart/form-data"

' 這個(gè)Form屬性是得到上傳的數(shù)據(jù)的關(guān)鍵.
action="process.asp" method=post>
    <input type=file name=mefile><br>
   <input type=submit name=ok value="上傳">
   </form>
</center>
</body></html>

process.asp

' 處理瀏覽器中送來的數(shù)據(jù).

<%
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
%>

[1]

相關(guān)文章

最新評(píng)論

高雄县| 承德市| 浠水县| 太保市| 富顺县| 崇左市| 涿鹿县| 营口市| 墨竹工卡县| 林甸县| 恩平市| 绥宁县| 灵寿县| 泾源县| 酒泉市| 二连浩特市| 凤台县| 洪江市| 平顺县| 金溪县| 平定县| 原平市| 花垣县| 甘洛县| 水城县| 渑池县| 南陵县| 武宣县| 阆中市| 忻城县| 连江县| 同仁县| 定边县| 兴国县| 四川省| 吉林市| 辽源市| 兴业县| 承德县| 通山县| 壤塘县|