注册 登录
编程论坛 ASP技术论坛

输出图象问题

xpk 发布于 2010-11-06 20:53, 366 次点击
代码如下:
程序代码:
<HTML>
<HEAD>
    <Title>test2.asp</Title>
    <META http-equiv="Content-Type" content="text/html; charset=gb2312">
    <META name="Generator" content="Asp Studio 1.0">
</HEAD>

<BODY>

<!-- 请在这里输入您的HTML代码 -->

<%
   
if request.querystring("query")<>"test" then'请在这里输入您的ASP代码
%>
<form action="?query=test" method="post" enctype="multipart/form-date" name="form1" id="form1">
<input type="file" name="file">
<input type="submit" name="submit" value="提交">
</form>
<%
else
response.contenttype
="image/gif" '设置输出类型为图象
data=request.binaryread(request.totalbytes)'获取客户端传送的所有数据
tcrlf=chrb(13) & chrb(10) '回车符号代码
flag=leftb(data,instrb(data,tcrlf)-1) '获取图象数据结束标志
datastart=instrb(data,scrlf & tcrlf)+4 '获取图象数据开始位置
datalength=instrb(datastart+1,data,flag)-datastart '获取图象数据长度
response.BinaryWrite midb(data,datastart,datalength) '输出图象
end if
%>
</BODY>

</HTML>
ASP服务器发现运行时错误:
错 误 码:0x800A0005
错误代码:response.BinaryWrite midb("data",datastart,datalength) '输出图象
错误描述:无效的过程调用或参数: 'midb'
文件名称:d:\我的文档\test\test2.asp
所在行号:38



谁能教我一下。






[ 本帖最后由 xpk 于 2010-11-6 20:56 编辑 ]
1 回复
#2
zmh8862010-11-07 14:00
<%
    if request.querystring("query")<>"test" then'请在这里输入您的ASP代码
%>
<HTML>
<HEAD>
    <Title>test2.asp</Title>
    <META http-equiv="Content-Type" content="text/html; charset=gb2312">
    <META name="Generator" content="Asp Studio 1.0">
</HEAD>

<BODY>

<!-- 请在这里输入您的HTML代码 -->


<form action="?query=test" method="post" enctype="multipart/form-data" name="form1" id="form1">
<input type="file" name="file">
<input type="submit" name="submit" value="提交">
</form>
<%
else
response.contenttype="image/gif" '设置输出类型为图象
data=request.binaryread(request.totalbytes)'获取客户端传送的所有数据
tcrlf=chrb(13) & chrb(10) '回车符号代码
flag=leftb(data,instrb(data,tcrlf)-1) '获取图象数据结束标志
datastart=instrb(datastart+1,data,tcrlf)
datastart=instrb(datastart+1,data,tcrlf)
datastart=instrb(datastart+1,data,tcrlf)+4 '获取图象数据开始位置
datalength=instrb(datastart+1,data,flag)-datastart '获取图象数据长度
response.BinaryWrite midb(data,datastart,datalength) '输出图象
end if
%>
</BODY>

</HTML>
1