什么地方出错了?
Microsoft VBScript 运行时错误 错误 '800a0005'
无效的过程调用或参数: 'leftb'
<%
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 rec=server.createobject("ADODB.recordset")
sql="SELECT top 1 * FROM News ORDER BY id DESC"
rec.open sql,conn,1,3
rec("Newsimages").appendchunk mydata
rec.update
rec.close
set rec=nothing
set conn=nothing
%>