图片上传为何无法实现？？各位大虾帮帮忙！！

mr_xugang 2001-11-07 12:14:54

我用以下asp程序想实现图片上传功能，但是总是无法添加图片到数据库中，请各位大虾帮忙看看什么原因！！（调试环境中文win2000个人版、pws管理器，所有文件都在同一目录中）

数据库结构如下（ａｃｃｅｓｓ９７）：

字段名称　　　　类型　　　　描述

　　id 　　　自动编号　　　主键值

img ole对象　　　用来保存图片数据　

-----------------------------------------------------
upload.htm
-----------------------------------------------------
<html>

<body>

<center>

　　 <form name="mainform" enctype="multipart/form-data"

action="process.asp" method=post>

　　　　<input type=file name=mefile><br>

　　 <input type=submit name=ok value="ok">

　　 </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)

set conngraph=server.createobject("adodb.connection")

conngraph.connectionstring="driver={microsoft access driver (*.mdb)};dbq=" &

server.mappath("images.mdb") & ";uid=;pwd=;"

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

%>

...全文

136 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

mr_xugang 2001-11-07

打赏
举报

index.htm
----------------------------
<%
<html>

<body>

<center>

　　 <form name="mainform" enctype="multipart/form-data"

action="process.asp" method=post>

　　　　<input type=file name=mefile><br>

　　 <input type=submit name=ok value="ok">

　　 </form>

</center>

</body>

</html>

上传图片：已经在index.htm中选择一个gif文件了
-----------------------
on error resume next

response.buffer=true

formsize=request.totalbytes
%>
<script language="vbScript">

</script>
<%
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)

zcflion 2001-11-07