图片上传的问题,急
Microsoft VBScript 运行时错误 错误 '800a0005'
无效的过程调用或参数: 'midb'
/company/uploadimg.asp,行19
<%
dim id,img
formsize=request.totalbytes
if formsize>30000 then
response.write "<script language='javascript'>alert('只允许不大于30k的图片上传');</script>"
response.write "<script language='javascript'>window.location='addcomlogo.asp';</script>"
response.end
end if
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 rs=server.CreateObject ("adodb.recordset")
sql="select * from company where postid='"&session("postid")&"'"
rs.open sql,conn,2,3
rs("logo").appendchunk mydata
rs.update
response.write("图片上传成功!")
%>