[求助]帮帮我!谢谢!(在线等,问题解决立刻结账)
我想通过上传组件把图片存储在数据库中,然后从数据库中取出。运行后没有错误,但是我不知道如何能知道图片存储真正存储在数据库中了,也不知道该如何从数据库中取出该图片。存储该图片的字段
请看关键代码:
<%
on error resume next
dim stu_name
stuname=request("name")
dim fileup , f
set fileup=server.CreateObject("chinaasp.upload")
set f=fileup.files("stupic")
response.Write stuname
if request("submitpic1")<>"" then
dim objrspic , sqlpic
sqlpic="select * from photoinfo where student_name='"&stuname&"'"
set objrspic=server.CreateObject("adodb.recordset")
objrspic.open sqlpic,conn,1,3
response.Write objrspic.recordcount
if objrspic.recordcount<>0 then
response.Write("对不起,您已经有照片了。")
response.Write objrspic("student_name")
objrspic.close
set objrspic=nothing
else
objrspic.addnew
objrspic("student_name")=stuname
objrspic("photo_size")=f.filesize
objrspic("photo_content").appendchunk f.filecontent
objrspic.update
response.Write("恭喜,上传成功!")
objrspic.close
set objrspic=nothing
dim rrs ,ssql , content
set rrs=server.CreateObject("adodb.recordset")
ssql="select * from photoinfo where student_name='"&stuname&"'"
rrs.open ssql,conn,1,3
response.Write rrs.recordcount
content=rrs("photo_content").getchunk(clng(rrs("photo_size")))
response.Write rrs("student_name")
rrs.close
set rrs=nothing
end if
end if
%>