关于图片上传的问题!!!!!哪位大哥帮忙一下都搞了两天了还不行。谢谢!!!

bobshi 2003-08-12 09:45:08
数据库:images.mdb 表:news 字段: id img

上传页:test.asp
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<center>
<form name="mainForm" enctype="multipart/form-data" action="process.asp" method=post>
  <input type=file name=me file><br/>
  
<input type=submit name=ok value="提交">
</form>
</center>

</body>
</html>

保存页:process.asp
<%
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)
db="images.MDB"
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open"SELECT*FROM [news] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
response.redirect"test.asp"
%>

显示页:show.asp
<%
db="images.MDB"
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
connGraph.Open
%>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
id=1
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&id
rs.open sql,conGraph,1,1
%>
<tr>
<img src="show_1.asp?id=<%=id%>">
</tr>
</body>
</html>


处理页:show_1.asp
<%
db="images.MDB"
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
connGraph.Open
set rec=server.createobject("ADODB.recordset")

strsql="select img from news where id="&trim(request("id"))
rec.open strsql,connGraph,1,1
Response.ContentType="image/*"
Response.BinaryWrite rec("img").getChunk(7500000)
rec.close
set rec=nothing
set connGraph=nothing
%>


我现在是能上传,但是不能显示。总是出错,大家帮忙看看哪 里原因呢。
急死人了!!!
...全文
92 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ronanlin 2003-08-12
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/2067/2067677.xml?temp=.5243952
pilicat 2003-08-12
  • 打赏
  • 举报
回复
呵呵,我已经找到问题所在:
1、在show.asp中:
rs.open sql,connGraph,1,1

<img src="show1.asp?id=<%=id%>">

2、在show1.asp中:
Response.ContentType="image/JPEG"

改了上述2处后,搞定

28,409

社区成员

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

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