怎么我显示的图片是*呢？

stpangpang 2003-12-06 05:39:00
从数据库显示图片的问题
我可以把图片写入数据库中的image字段，但是怎么显示出来呢？用<img src=show.asp?id=1> 不行，显示的是一个* ，但是用flashget 可以把图片下载下来，但是名字是show.asp。
贴出我的代码，请看
a.html
_____________________________________________
<img src="show.asp?id=1">

show.asp
------------------------------------------------
<%
Response.Expires = 0
Response.buffer=True
Response.ContentType="image/*"
dim connGraph
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={sql server};server=localhost;database=northwind;uid=stpangpang;pwd=stpangpang"

connGraph.Open
dim rec
set rec=server.createobject("ADODB.recordset")
strsql="select img from images where id ="&request.QueryString("id")
rec.open strsql,connGraph,1,1
Response.BinaryWrite rec("img").GetChunk (7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>
我郁闷了，希望高人能解决
...全文
28 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
feirulin 2003-12-08
  • 打赏
  • 举报
 回复
胖胖，我觉得你这个是pic文件的名字的问题，如果名字规范一点就能显示吧，那你在插入之前要对文件名进行处理一下，让它规范一点：

试试我的这段code:

<!-- #include file="conn.asp" //-->
<%

FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)

Set Field = GetUpload(FormData)
imgdata=Field("pic").Value
imgtype=Field("pic").ContentType
imgsize=Field("pic").length

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "pic",conn,3,2
rs.addnew
if imgdata<>"" and imgsize<=250000 then
if imgtype<>"image/pjpeg" and imgtype<>"image/gif" and imgtype<>"image/bmp" then
rs("size")=0
else
rs("pic").appendchunk imgdata
rs("size")=imgsize
end if
end if
rs("choose_pic")=session("choose_pic_save")

session("choose_check")=1



rs.update

set rs=nothing
set conn=nothing
response.redirect "pic.asp"
%>

=======================================================================

在我这已经没问题了：

我睡了，上班再联系吧

stpangpang 2003-12-07
  • 打赏
  • 举报
 回复
我cao 用.net 可以实现，用asp 就不行 ，郁闷了~~ 明天再看看~~ ft
stpangpang 2003-12-07
  • 打赏
  • 举报
 回复
为什么用 zjcxc(邹建) 的 zj_down.asp 就可以显示，用我写的show.asp 就不行呢？ 还是显示一个*，有的时候右击‘显示图片’可以显示，但有的时候根本不行 ，就是一个* 我ft
up一下，期望高人来侃侃 ~~~
gdcrx 2003-12-07
  • 打赏
  • 举报
 回复
我也出现这种情况,开始做时可以,过一段时间后又看不到图片了.只好将图片上传到文件夹,把图片的路径保存到数据库,然后显示.
fangpeng2003 2003-12-06
  • 打赏
  • 举报
 回复
<%
id=request("id")
set rs=server.CreateObject("adodb.recordset")
sql="select img from images where id ="&request.QueryString("id")
rs.Open sql,dsconn,1,3
%>
<%response.contenttype="image/gif"%>
<%Response.BinaryWrite rs("img")%>
<%rs.close
set rs=nothing
dsconn.close
set dsconn=nothing
%>
stpangpang 2003-12-06
  • 打赏
  • 举报
 回复
问题是我能写进数据库，但是显示不出来 ~~ 郁闷~~ 各位
zjcxc 2003-12-06
  • 打赏
  • 举报
 回复
'试试我的这种方法呢

'==================================================================--
'
' 用ASP实现无组件上传/下载文件
'
' 功能简介
' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况
' 适用于各种数据库,使用ADO的方法连接数据库
' 本示例中使用的是ACCESS数据库:zj.mdb
' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录
' ,fname text(250) 保存上传的文件名,img ole对象 保存上传的文件内容
' ,type text(250) 保存上传的文件类型
'
' 邹建 2003.10
'==================================================================


'==================================================================
'
' 上传文件的HTML页: zj_up.htm
'
'==================================================================
<html>
<head>
<title>文件上传保存到数据库中</title>
</head>
<body>
<form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
<p>
<input type="file" name="file">
<input type="submit" name="Submit" value="上传">
</p>
</form>
</body>
</html>


'==================================================================
'
' 上传文件保存到数据库的ASP页: zj_up.asp
'
'==================================================================
<%
Response.Expires=0
Function f_Bin2Str(ByVal sBin)
Dim iI, iLen, iChr, iRe
iRe = ""
If Not IsNull(sBin) Then
iLen = LenB(sBin)
For iI = 1 To iLen
iChr = MidB(sBin, iI, 1)
If AscB(iChr) > 127 Then
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
iI = iI + 1
Else
iRe = iRe & Chr(AscB(iChr))
End If
Next
End If
f_Bin2Str = iRe
End Function
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath("zj.mdb")
iSql="tb_img"
set iRe=Server.CreateObject("ADODB.Recordset")
iRe.Open iSql,iConcStr,1,3
iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) & ChrB(10)
iCrlf2 = iCrlf1 & iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = LeftB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
While iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)

iPos3 = InStr(iStr, "; filename=""") + 12
If iPos3 > 12 Then
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2
iFn = Left(iStr, iPos3)
If iFn <> "" Then
iRe.AddNew
ire("path")=left(iFn,instrrev(iFn,"\"))
iRe("fname") = mid(iFn,instrrev(iFn,"\")+1)
iRe("type") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Update
End If
End If

sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Wend
iRe.close
set iRe=Nothing
%>

'==================================================================
'
' 下载数据的ASP页: zj_down.asp
'
'==================================================================
<%
Response.Buffer=true
Response.Clear

iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath("zj.mdb")
set iRe=server.createobject("adodb.recordset")
iSql="select * from tb_img where id=" & request.QueryString("id")
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("type")
Response.BinaryWrite iRe("img")

iRe.close
set iRe=Nothing
%>
stpangpang 2003-12-06
  • 打赏
  • 举报
 回复
应该没有问题啊
这是我上传图片的代码
<%
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={sql server};server=localhost;database=northwind;uid=stpangpang;pwd=stpangpang"
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
Response.Write("<script language=JavaScript>window.alert('成功');</script>")
%>
应该没有问题的吧~~
ruihuahan 2003-12-06
  • 打赏
  • 举报
 回复
问题应该在把图像写入数据库的代码中
stpangpang 2003-12-06
  • 打赏
  • 举报
 回复
在线等 msn ：stpangpang@hotmail.com
qq：6626300
AI人工智能毕业设计课题：黑白怀旧照片图片网站和上色处理系统
图片分类：录入、修改、查看、删除图片分类 录入图片：录入图片标题、内容等信息 管理图片：查看已录入图片列表，支持删除和修改 图片评论列表：所有用户的评论信息列表 图片评论管理：支持对评论信息审核，删除；...
通配符（？，*）与正则表达式
首先感谢所有开源分享资源的博主或者机构个人，...具体代码的理解讲在代码中展现，同时后面的字符显示，基于ROM的静态图片显示，都是基于此的。只是有一点，网上现有资源很多不是ISE的，而笔者现在还用的ISE.....;因此
接口只返回一张图片 Preview里面显示一张图片 Response为空 在Vue中该如何显示到页面当中
当请求的接口只有在Preview里面显示一张图片时，想要去将图片显示在页面当中，就可以直接把接口放在img属性的src中，直接调用即可 这里图片的src属性绑定一个变量，这里绑定是为了点击实现切换验证图片 &...
@Scheduled(cron = "* * * * * *") cron表达式详解
将代码片显示选择的高亮样式 进行展示； 增加了 图片拖拽 功能，你可以将本地的图片直接拖拽到编辑区域直接展示； 全新的 KaTeX数学公式 语法； 增加了支持 甘特图的mermaid语法 1 功能； 增加了 多...
如何实现上传图片并显示图片？
如何实现上传图片并显示图片？ 平时在注册或者填写完整个人信息的时候都会遇见上传个人图片的情况，那么你有没有想过这个该如何实现的呢？在以前还没有学到这个知识之前，就觉得好神奇，在网上居然能做到上传图片的...
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章