最新国产好看的视频,伊人天堂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)論

临潭县| 长垣县| 大竹县| 嘉义县| 博乐市| 全椒县| 盐边县| 华容县| 济宁市| 呼和浩特市| 罗源县| 灵璧县| 西平县| 凌海市| 山西省| 元江| 班戈县| 马公市| 青阳县| 紫阳县| 普定县| 通辽市| 陕西省| 东台市| 宣汉县| 舟曲县| 西吉县| 得荣县| 彰化县| 易门县| 平和县| 大邑县| 自治县| 章丘市| 庆阳市| 北川| 老河口市| 法库县| 青阳县| 汪清县| 东城区|