标题:输出图象问题
只看楼主
xpk
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2010-10-30
结帖率:0
已结贴  问题点数:20 回复次数:1 
输出图象问题
代码如下:
程序代码:
<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 编辑 ]
搜索更多相关主题的帖子: 图象 输出 
2010-11-06 20:53
zmh886
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:12
帖 子:238
专家分:1305
注 册:2010-6-2
得分:20 
<%
    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>

http://www./
2010-11-07 14:00



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-325194-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.119525 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved