<img src="showimageaspId=<%=rs("Id")%>" width='67' height='87' border="0">
showimageasp是显示的文件这个是关键 ID是的ID ,width是显示的宽, height是高,border是边框宽
下面是showimageasp的内容:
<!--#INCLUDE FILE="connasp"--> '打开数据库
<%
'该文件直接将数据库中的二进制文件内容输出到客户端,本页不需要使用ASPUpload组件
'打开记录集
strSql="Select picture From 文件名 where Id = " & Request("Id")
Set rs=dbExecute(strSql)
'下面将文件输出到客户端浏览器
ResponseContentType = "image/"
ResponseBinaryWrite rs("picture") 'picture是ACCESSS数据库的字段根据你的订
%>有两种情况:
1)access中的是的路径,这时直接用image控件的loadpicture方法
2)access中的是二进制数据。
要是第二种情况,我们使用一下方法。
1首先从数据库中读取二进制数据并且保存到一个数组里。
2把二进制数据写到磁盘上,因此生成一个。
3利用这个的地址来现实。
详细代码是一下(请应用microsoft activeX dataobjects 27 对象)
Dim iStm As ADODBStream
Dim iRe As ADODBRecordset
'打开表
Set iRe = New ADODBRecordset
‘得到最新添加的纪录
iReOpen "select top 1 from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODBStream
With iStm
Mode = adModeReadWrite
Type = adTypeBinary
Open
Write iRe("photo")
‘这里注意了,如果当前目录下存在test1jpg,会报一个文件写入失败的错误
SaveToFile AppPath & "\test1jpg"
End With
Image1Picture = LoadPicture(AppPath & "\test1jpg")
'关闭对象
iReClose
iStmClose是在制作网页吧?
并不是存储在access数据库中的,而是存储在网站根目录下的一个文件夹里,比如C:\>把照片放进数据库,照片的格式最好是bmp,这样就可以在窗体上显示出来,不过这样数据库的体积会暴增。 详细的使用方法请参考Access帮助中的 PictureData 属性(本文末尾有相关帮助)。 而且,你可以直接用 commdlg API 函数来给图像框赋值,然后在access照片下插入,显示程序包,交卷显示照片
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)