好人请看以下这段代码：

<%
if request.QueryString("query")<>"test" then
%>
<form action="" 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(data,tcrlf&tcrrlf)+4
datalength=instrb(datastart+1,data,flag)-datastart
response.BinaryWrite midb(data,datastart,datalength)
end if
%>

问题：点击保存后，打开浏览器，出现以下错误：
“错误类型：
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'leftb'
/test1.asp, 第 13 行”

我是个菜鸟，跪求原因！！！

字符串函数调用前先检查一下参数是否为空