帮忙看下这段代码！那里错误了？

[wth1150]

无组件上传图片到数据库
前台页面
<form name="mainForm" enctype="multipart/form-data" action="yy.asp" method="post">
<input type=file name="file" style="font-size:9pt"><br><br>
<input type=submit name="OK" value="OK" style="font-size:9pt">
</form>

处理页面
<%
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("data/images.mdb") & ";uid=;PWD=;"
connGraph.Open

set rec=server.createobject("ADODB.recordset")

strsql="select img from images"

rec.open strsql,connGraph,1,1


rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set conn=nothing

[shauykee]

这是什么无组件上传，能传上来吗？

[佛祖的木鱼]

你搞错了吧...

[springRainyao]

这个是传文件并以二进制方式存到access数据库里面的代码

[butcher2002]

你这个不是无组件上传。。。。。。。我狂晕~~~~~~~~~~~

[wanghr100]

这样就行了.

'这个只读的, 不支持更新的.
rec.open strsql,connGraph,1,1

->

rec.open strsql,connGraph,1,3



附:

recordset中的open完全的语法是
recordset.Open Source,ActiveConnection,CursorType,LockType,Options,Source
相当于rs.Open sql,conn,1，1
其中
CursorType是
adOpenForwardOnly 0 缺省值，启动一个只能向前移动的游标（Forward Only）
adOpenKeyset 1 启动一个Keyset类型的游标
adOpenDynamic 2 启动一个Dynamic类型的游标
adOpenStatic 3 启动一个Static类型的游标

LockType是
adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、 Update及Delete等方法

adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性

adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作

adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、删、改的操

[wth1150]

还是不行啊！晕！

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("data/images.mdb") & ";uid=;PWD=;"
connGraph.Open

set rec=server.createobject("ADODB.recordset")

strsql="select img from images"

rec.open strsql,connGraph,1,3


rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set conn=nothing

[klend]

提示什么错误亚

[klend]

开头加上response.buffer=true试试

[colinliu]

學習........

[zhyindividual]

如果出现服务器内部错误就是你的网页有错误喽,你修改确认没有语法及其他错误就不会出现了,如果你是使用DreamWeaver编辑的话,那么你可以先选择出错页面的所有代码,然后按Ctrl+X剪切,保存此文件.然后再在浏览器里打开,则不会有错误了(没有代码的文件肯定不会有错误喽^-^).再将你剪下来的代码粘进那个文件,再保存,再在浏览器中打开,则会提示你代码哪里出错了.
有关无组件上传你参照这个帖子吧.
http://community.csdn.net/Expert/topic/3177/3177514.xml?temp=.9913294

[wth1150]

服务器内部错误!我晕两天了~

[boywind]

呵呵～～～学习