图片上传到服务器数据库中为什么显示不出来？

netepoint 2002-01-08 09:43:37

...全文

145 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

netepoint 2002-01-08

打赏
举报

上传页面：
upLoadImg.asp

<html>
<head>
<script language="JavaScript">
function See(hh,ff) {
if (ff.value==''){
alert('请选择图片！');
return (false);}
hh.src = ff.value
}
function check(form1) {
if (form1.file1.value==''){
alert('请选择图片！');
return (false);}
}
</Script>
</head>
<body bgcolor=#FFFFE0>
<p align=center>上传图片
<form name=f1 enctype=multipart/form-data action="process.asp" method=post onsubmit="return check(this);">
<p>小图片：<input type=file name=file1>
<input type=button name=b value=预览 onClick="See(this.form.picview,this.form.file1)">
<p><input type=submit name=upfile value=上传> <br>
<p align=center>
<img src="showimg.asp?cardId=0000000001" name=picview Border=0 >
</form>
</body>
</html>

存储页面
process.asp

<%
Response.Buffer=true
filesize=Request.totalbytes '客户端响应数据字节的大小
filedata=Request.binaryread(filesize) '得到数据量要小于或等于totalbytes
bncrlf=chrB(13) & chrB(10)
divider=leftB(filedata,clng(instrB(filedata,bncrlf))-1)
datastart=instrb(filedata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,filedata,divider)-datastart '(搜索的起点，字符串1，字符串2)
mydata=midb(filedata,datastart,dataend)
%>
<%
dim conn,param,rs
set conn=server.createobject("adodb.connection")
param="driver={microsoft access driver (*.mdb)}"
conn.open param &";dbq="&server.mappath("pic.mdb")
set rs1=server.CreateObject("adodb.recordset")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pic",conn,3,3
rs1.open "select * from pic ",conn,3,3
if rs1.EOF then
tempno=1
else
rs1.MoveLast
tempno=clng(rs1("cardId"))+1
end if
rs1.Close
okid=right("00000000000000000000"&cstr(tempno),10)
rs.AddNew
rs("smallPic").AppendChunk mydata
rs("cardId")=okid
rs.Update
rs.Close
set rs=nothing
set conn=nothing
response.redirect"upLoadImg.asp"
%>

显示页面：
showimg.asp

<%
Response.Expires = 0
Response.Buffer = true
Response.Clear
dim conn,param,rs
set conn=server.createobject("adodb.connection")
param="driver={microsoft access driver (*.mdb)}"
conn.open param &";dbq="&server.mappath("pic.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from pic where cardId ='"&trim(request("cardId"))&"'"
rs.open sql,conn,3,1
response.contenttype="image/*"
Response.BinaryWrite rs("smallPic").getchunk(7500000)
rs.close
set rs=noting
set conn=noting
%>

显示图片的连接：
<img src="showimg.asp?cardId=0000000001" name=picview Border=0 >

这个程序有时候在pws下可以显示出来，但是在2000，iis5下面图片就显示不出来（显示一个小叉）

mkiss 2002-01-08