上传图片出了问题,帮我看看怎么回事

dvdface 2004-03-31 10:50:16
<!--METADATA NAME="Microsoft ActiveX Data Object 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}"-->
<!-- #include file="connection.asp"-->
<%
total=Request.TotalBytes
uploadedData=Request.BinaryRead(total)
crlf=ChrB(13)&ChrB(10)
tmpData=LeftB(uploadedData,CLng(InStrB(uploadedData,crlf)))
imgStart=InStrB(uploadedData,crlf&crlf)+4
imgEnd=InStrB(imgStart+1,uploadedData,tmpData)-imgStart
imgData=MidB(uploadedData,imgStart,imgEnd)
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "img",cn,3,2,adCmdTable
rs.AddNew
if rs.RecordCount<0 then
rs("num")=1
else
rs("num")=rs.RecordCount+1
end if
rs("img").AppendChunk imgData
rs.Update
rs.Close
%>

...................................................

错误类型:
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'MidB'
/7host/up.asp, 第 10 行


浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 1.0.3705)

网页:
POST 2854 ??? /7host/up.asp

POST Data:
错误 '80020009'
发生意外。
...全文
6 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
dvdface 2004-04-01
弄了半天发现是这里忘记减一了
tmpData=LeftB(uploadedData,CLng(InStrB(uploadedData,crlf)减一))
导致imgEnd是个负数,
所以MidB函数会出错
回复
oydj 2004-03-31
检查
function MidB
回复
51windows 2004-03-31
参考一下这个

http://www.kupage.com/webdesign/7/20031017/1651460000027pkxd20u.htm
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告