Submit My Question - Recent Questions - Recent Answer

『『看代码了』』在线等待

我用的是
数据库：access2000
运行环境：windows2000
在运行时总是提示 Microsoft VBScript 运行时错误 (0x800A01A8)
/addimage.asp, 第 23 行
大家帮帮忙!!

<%

formsize=request.totalbytes
formdata=request.binaryread(formsize)

function ImageUp(formsize,formdata)
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
imageup=midb(formdata,datastart,dataend)
end function

Image=ImageUp (FormSize,Formdata)

set rec=server.createobject("ADODB.recordset")
sql="SELECT * FROM employee ORDER BY ID DESC"
rec.Open sql,conn,1,3
%>
<%
rs.AddNew
rs("photo").appendchunk Image ‘这里有错误
rs.Update
response.contenttype="image/gif"
response.binarywrite imageup(formsize,formdata)
%>

[1001 byte] By [tj1124-好好学习天天向上] at [2008-6-5]

«« windows XP 在装 sybase11.5.1 时有问题,无法完成安装!怎么办?
»» 数字视频处理学习基础

# 1

photo字段：image类型

zyhowe-★☆偶然的天空☆★ at 2007-10-29 >

# 2

不时OLE

tj1124-好好学习天天向上 at 2007-10-29 >

# 3

这是我的一段程序，绝对没错的，你对照一下
<%
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 [img] where id is null",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>

fbj007-千里独行 at 2007-10-29 >

# 4

我和这段程序对照过了没发现有什么不同呀还是请你们指出来呀

tj1124-好好学习天天向上 at 2007-10-29 >

# 5

rs("photo").appendchunk Image ‘这里有错误
改成
rs("photo").appendchunk ImageUp

qimangxing-徐家庄的七芒星 at 2007-10-29 >

Web

ASP