♣

………………ASP中取数据库图像的问题…………………

所属目录：Java | 类型：技术问答 | 时间：2007-05-21

问题：

再问一次这个问题，在sql-server2000中我用image类型的字段存的图片数据。
但是不知道怎么显示出来。
以前发过这个帖子，但是我试过都不行。由于我只是用做一个浏览作用。主程序是用delphi开发的，不太想用文件路径的方法取。
希望大家不吝赐教。多谢大家了。

· 网友精彩回答：

发表者：zhangzongshan207

把你的邮箱给我,我晚上发给你,现在忙的很,没有时间给你了,或者qq 加我也可以,29404379,晚上联系

发表者：wangwm

路过，帮忙，解分，嘿嘿

发表者：raphaelpengpeng

以下是asp图文混合上传的实例：
数据库驱动自己改一下
<% @ language=vbscript %>
upload.asp:
<html>
<head>
<meta name="vi60_defaultclientscript" content="vbscript">
<title> file upload </title>
<script id="clienteventhandlersvbs" language="vbscript">

</script>
</head>
<body>

<form name="form1" enctype="multipart/form-data" action="upimage.asp" method="post" target="_blank">
please choose a picture to upload: <br>
<input name="picture" type="file"> <br>
</form>

<form name="form2" action="uptext.asp" method="post">
<input type="text" name="text1"><br>
<input type="text" name="text2"><br>
<input type="submit" value="提交">
</form>

</body>
</html>
upimage.asp
<%
formsize = request.totalbytes
formdata = request.binaryread( formsize )

function imageup(formsize,formdata)
bncrlf=chrb(13) & chrb(10)
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function

image=imageup (formsize,formdata)

set rs=server.createobject("adodb.recordset")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
sql="select * from imgtable"
rs.open sql,strconn,1,3

rs.addnew
rs("img").appendchunk image
rs.update
rs.close

response.contenttype="image/gif"
response.binarywrite imageup(formsize,formdata)

%>
uptext.asp
<% @ language=vbscript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")

text1=request.form("text1")
text2=request.form("text2")
response.write text1
response.write text2

set rs=server.createobject("adodb.recordset")
sql="select top 1 * from imgtable order by id desc"
rs.open sql,strconn,1,3

rs("text1")=text1
rs("text2")=text2
rs.update
rs.close
%>

show.asp
<%@ language=vbscript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")

set rs=server.createobject("adodb.recordset")
sql="select top 1 * from imgtable order by id desc"
rs.open sql,strconn,1,3
%>
<html>
<body>
以下是你的上传资料。<br>
文本一：<% response.write rs("text1") %><br>
文本二：<% response.write rs("text2") %><br>

你的图像：
<img src=showimg.asp?id=<%=rs("id")%>>
</body>
</html>

showimg.asp
<%@ language=vbscript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from imgtable where id="&id
rs.open sql,strconn,1,3
response.contenttype="image/gif"
response.binarywrite rs("img")
%>

发表者：xumw

没这么好吧，^_^
帮顶…………

发表者：jolinkyo

img_show.asp:{

set rs=server.createobject("adodb.recordset")
id=request("id")
str="select * from cs_tech_case where id="&id&""
rs.open str,conn,1,3
response.contenttype ="image/*"
response.binarywrite rs("pic").getchunk(7500000)

}

<td><img src="img_show.asp?id=<%=rs("id")%>"></td>

发表者：zhangzongshan207

showpic.asp页面


<%
set rs=server.createobject("adodb.recordset")
sql="select * from exhibition_3 where smallclassid="&request("id")
rs.open sql,conn,1,1
response.contenttype="x-mixed-replace"
response.binarywrite rs("logo")

rs.close

function imageup(formsize,formdata) 这个函数的功能是截取其中的图像部分。
bncrlf=chrb(13) & chrb(10) 做成函数后。以后你可以自己随意使用了。
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function

-------------------------
%>

下面就是图片显示的了,调用showpic.asp,并给传参数过去
<img src="showpic.asp?id=<%=rs_exhibition("smallclassid")%>"

处理 SSI 文件时出错