Response.Buffer = True
formsize = Request.Totalbytes
formdata = Request.BinaryRead(formsize)
bncrlf = chrB(13)&chrB(10)
divider = leftB(formdata,cLng(instrB(formdata,bncrlf))-1)
datastart = instrB(formdata,bncrlf&bncrlf)+4
dataend = instrB(datastart+1,formdata,divider)-datastart
mydata = midB(formadata,datastart,dataend)
Response.Write BinaryWrite(mydata)

浏览器返回：
Microsoft VBScript 运行时错误 '800a0005'

无效的过程调用或参数: 'leftB'