UC知道ASP高手帮我看看,图像是乱码
来源：百度知道 编辑：UC知道 时间：2024/06/20 13:50:30
<%if request.QueryString("query")<>"test" then %>
<form action="?query=test" method="post" enctype="multipart/form-data" name="form">
<input type="file" name="file">
<input type="submit" name="submit" value="tijiao" />
</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,tcrlf&tcrlf)+4
datalength=instrb(datastart+1,data,flag)-datastart
response.BinaryWrite (mid(data,datastart,datalength))
end if
%>
<form action="?query=test" method="post" enctype="multipart/form-data" name="form">
<input type="file" name="file">
<input type="submit" name="submit" value="tijiao" />
</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,tcrlf&tcrlf)+4
datalength=instrb(datastart+1,data,flag)-datastart
response.BinaryWrite (mid(data,datastart,datalength))
end if
%>
<%if request.QueryString("query")<>"test" then %>
<form action="?query=test" method="post" enctype="multipart/form-data" name="form">
<input type="file" name="file">
<input type="submit" name="submit" value="tijiao" />
</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,tcrlf&tcrlf)+4
datalength=instrb(datastart+1,data,flag)-datastart
'response.BinaryWrite (mid(data,datastart,datalength))
'上面这句有问题，处理字节数据用midb
response.BinaryWrite midb(data,datastart,datalength)
end if
%>