在ASP怎么从数据库提取数据后实现前台的图片显示效果！ - ASP技术论坛

在ASP怎么从数据库提取数据后实现前台的图片显示效果！

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
  dim rs,sql
  set rs=server.CreateObject("adodb.recordset")
  sql="select shangjia_tupian from shangjia_info"
  rs.open sql,conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档 </title>
</head>

<body>
<%
  do while not rs.eof

%>
<table width="200" border="0">
  <tr>
    <td> <img src=" <%=rs("pic")%>" /> </td>

  </tr>
</table>
<%
  rs.movenext
  loop
%>
</body>
</html>

我的本意就是通过数据库提取里面的图片地址然后在页面上显示，但是页面上显示的是全都是红色的叉叉。

表中的图像的字段类型是varchar  我存储的是图片的相对路径例如 photo\metro\automobile\jianing\IMGP8405.JPG

图片存在的位置因为分类了，所以有很多的文件夹来存在放不同的图片。。
图片的存放位置如下图所示。

附件: 只有本站会员才能下载或查看附件，请您登录或注册

搜索更多相关主题的帖子: 数据库 前台 ASP 效果

第 2 楼

路径不对.

第 3 楼

而且要有关闭数据库连接的语句.

第 4 楼

src=" <%=rs("pic")%> 呵呵太天真啊。

应该是： src="showImg.asp?idrs=id"

showImg.asp:
<%
...
Response.ContentType = "image/gif"
Response.BinaryWrite rs("image1")
...
%>

第 5 楼

爬爬虫在 2008-8-21 00:30 的发言：

src=" 呵呵太天真啊。

应该是： src="showImg.asp?idrs=id"

showImg.asp:

人家数据库存储的是路径啊~大哥~你错了~~~
rs("image1")只是一个字符串,response.binarywrite 一个字符串会有什么结果？？

[ 本帖最后由 anlige 于 2008-8-21 00:55 编辑 ]

http://www.ii-home.cn/
zhanghuiguoanlige@126.com

第 6 楼

隐藏图片路径~~~~

感觉楼主只是路径的问题~你在红叉上右键--属性，看看图片的路径是不适合实际的相符~~
上面大哥的方法可以隐藏图片实际路径~我给个完整的方法吧~
程序代码：

<%
fileid=request.querystring("idrs")
sql="select id,Title,FileUrl from Files WHERE id="&fileid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "资源不存在！请进入<a href=""myfiles.asp"">资源列表</a>搜索相关关键词!"
response.end
end if
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1

FileName=rs("FileUrl")
fileexc=mid(FileName,instrrev(FileName,"."))
name=rs("title")&fileexc
rs.close
set rs=nothing

Response.Clear
Response.ContentType = "image/jpeg"
Response.AddHeader "content-disposition", "attachment; filename="&name
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
conn.close
set conn=nothing
Response.Flush
Response.End
%>

http://www.ii-home.cn/
zhanghuiguoanlige@126.com

第 7 楼

问题已经解决了。。
确实是路径的问题，自己太粗心了。。。
谢谢各位哈。。

全能ASP/PHP/ASP.NET主机，支持月付	专业 MSSQL 数据库空间，支持月付	专业 MySQL 数据库空间，支持月付	买域名，送MP3、MP4
高端软件开发 = 年薪十万不是梦	赛孚耐:软件保护加密专家	身份认证令牌USB KEY	买空间，免费送域名（厦门中资源）