图片显示！50分求！！！！！！！！！！！！

liyunqi 2004-08-01 08:45:20

我在数据库中有一个项目的字段，一个项目有可能有一个图片对应，也有可能有2个图片，但最多就三个，现在我想从库中把他们显示出来、有一个、就显示一个、，有几个就显示几个、！！

show.asp

<%
id=(trim(request("id")))
if id="" then response.End
response.Expires=0
response.buffer=true
response.Clear()
set rs=server.CreateObject("adodb.recordset")
sql="select * from aa where productid="&ss&""
rs.open sql,conn,3,1
response.ContentType="image/*"

response.BinaryWrite rs("pic1")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
显示的图片的页面：picshow.asp
<img src="show.asp?id=<%=rs("pic1")%>&dd=1" width="400" height="300" border="0" >
<img src="show.asp?id=<%=rs("pic1")%>&dd=1" width="400" height="300" border="0" >
<img src="show.asp?id=<%=rs("pic1")%>&dd=1" width="400" height="300" border="0" >
请问这个程序该怎么写？？？
答案正确立即结贴！

...全文

55 点赞收藏 2

写回复

2 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

3573745 2004-08-01

你这个最好是前面已经把图片的名称寸到数据库中间
然后你把数据库中间的名称显示出来就是了
就没有必要用到FSO
问题就边成了一个很简单的了啊

回复赞

Jaron 2004-08-01

以下代码支持所有数据库存储的文件，请作适当修改。


<%
on error resume next
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from tblBinFiles where FileID='" & checkstr(request("FileID")) &"'"
rs.open sql,conn,1,3
if not(rs.EOF and rs.BOF or isnull(rs("Bin"))) then
Response.ContentType = getContentType(rs("FileExt"))
if GetFileType(rs("fileext")) <> 1 then Response.AddHeader "content-disposition", "attachment; filename=SiteManager_" & rs("FileID")
Response.BinaryWrite rs("Bin").getChunk(7500000)
Response.Flush
response.Clear()
viewtimes = rs("viewtimes") + 1
rs.Update
rs("viewtimes") = viewtimes
rs.Update
else
Response.Write "无效的数据格式"
end if
rs.close
set rs=nothing
Response.Write Err.Description
conn.close
set conn = nothing

function getContentType(fileExt)
Select Case lcase(FileExt)
Case "asf"
ContentType = "video/x-ms-asf"
Case "avi"
ContentType = "video/avi"
Case "doc"
ContentType = "application/msword"
Case "zip"
ContentType = "application/zip"
Case "xls"
ContentType = "application/vnd.ms-excel"
Case "gif"
ContentType = "image/gif"
Case "jpg", "jpeg"
ContentType = "image/jpeg"
Case "wav"
ContentType = "audio/wav"
Case "mp3"
ContentType = "audio/mpeg3"
Case "mpg", "mpeg"
ContentType = "video/mpeg"
Case "rtf"
ContentType = "application/rtf"
Case "htm", "html"
ContentType = "text/html"
Case "txt","asp","asa", "aspx", "asax"
ContentType = "text/plain"
Case Else
ContentType = "application/octet-stream"
End Select
getContentType = ContentType
end function

function GetFileType(fileext)
'判断文件类型
if lcase(fileExt)="gif" or lcase(fileExt)="jpg" or lcase(fileExt)="jpeg" or lcase(fileExt)="bmp" or lcase(fileExt)="png" then
GetFileType=1
elseif lcase(fileExt)="swf" or lcase(fileExt)="swi" then
GetFileType=2
elseif lcase(fileExt)="mid" or lcase(fileExt)="wav" or lcase(fileExt)="mp3" or lcase(fileExt)="rmi" or lcase(fileExt)="cda" then
GetFileType=3
elseif lcase(fileExt)="avi" or lcase(fileExt)="wov" or lcase(fileExt)="asf" or lcase(fileExt)="mpg" or lcase(fileExt)="mpeg" or lcase(fileExt)="ra" or lcase(fileExt)="ram" then
GetFileType=4
else
GetFileType=0
end if
end function

Function CheckStr(str)
If IsNull(str) Then
CheckStr = ""
Exit Function
End If
CheckStr = Replace(str, "'", "''")
End Function
%>

回复赞

干货！常见的SQL面试题：经典50例！来自：CSDN，作者：sh_c_2450957609链接：https://blog.csdn.net/u010565545/article/details/100785261SQL在数据分...

web前端遇到的坑（bug）！！！解决方法：Math.floor() 代码： Math.floor(t/1000/1000/60/24)//求小时 Math.floor(t/1000/1000/60)//求分钟 Math.floor(t/1000/1000)//求秒 12、获取url的参数代码： //返回url参数 function returnParam (url){...

干货：esp32彩屏自制太空人主题透明手表！ #创作来源#牛年春节前看了稚晖君自制的百大up奖杯视频，用到了一块分光棱镜，透明的玻璃中显示动感的画面超有感觉，一下子就把我吸引了，于是就赶着快递停运前把分光棱镜买了回来，想着春节...

呕心沥血！！总结2021前端必备面试题 } style> <div class="box"> <div class="left">div> <div class="middle">div> <div class="right">div> div> [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-lQZZh2D5-1620301392380)(C...

浅谈前后端分离的优缺点！！！ 4、前后端并行开发（无强依赖，可前后端并行开发，如果需求变求变更，只要接口&参数不变，就不用两边都修改代码，开发效率高） 5、前后端集成 6、前端页面调整 7、集成成功 8、交付六、请求方式以前老的方式是： 1...

详尽！统计学知识大梳理 f（x）----是该关于事件X的概率密度函数 μ --- 均值 σ^2 ---方差 σ ---标准差绿色区域的面积 ---该区间段的概率正态分布概率的求法 step1 --- 确定分布和范围，求出均值和方差 step2 --- 利用标准分将正态...

通透！一万字的统计学知识大梳理~ f（x）----是该关于事件X的概率密度函数 μ --- 均值 σ^2 ---方差 σ ---标准差绿色区域的面积 ---该区间段的概率正态分布概率的求法 step1 --- 确定分布和范围，求出均值和方差 step2 --- 利用标准分将正态...

万字总结，超级干货！统计学知识大梳理！ Q2：第二四分位数 (Q2)，又称“中位数”，等于该样本中所有数值由小到大排列后第50%的数字。 Q3：第三四分位数 (Q3)，又称“较大四分位数”，等于该样本中所有数值由小到大排列后第75%的数字。迷你距也叫“四分位...

Android性能优化之启动优化实战篇！持续更新中所以这里的结束不是说不用手机上网了，而是移动互联网市场进入相对平稳的阶段，互联网人口渗透率超过50%，这个风口已经没有可能出现独角兽。阿里巴巴面试问题还记得一些，一部分已经忘记了，为了防止再忘记，所以...

太心酸了！！！转行进腾讯了（自学经验 + 面试心得）虽然每天的在工位上的时间只有「区区十小时」，但真正自己能支配的时间只有晚上十点半到第二天七点五十，每次周日的时候，只想睡觉，一觉醒来，发现明天又要上班了，感觉自己完全没休息好，马上又要上班了。...

目标检测 | 解决小目标检测！多尺度方法汇总相比于SNIP，基于Faster RCNN（ResNet101作为Backbone）的实验结果显示SNIPER的mAP值比SNIP算法提升了4.6百分点，所以效果也还是非常不错的。在单卡V100上，每秒可以处理5张图像，这个速度在two-stage的算法中来看并...