用这里提供的方法区“multipart/form-data”出现参数不匹配错误

[wsxqaz]

运行时提示参数不匹配或缺少参数错误

<%
Dim biData, PostData
reSize = Request.TotalBytes
biData = Request.BinaryRead(reSize)
PostData = BinaryToString(biData,reSize)
Response.Write "<pre>" & PostData & "</pre>" '使用pre，原样输出格式
' 借助RecordSet将二进制流转化成文本
Function BinaryToString(biData,FunSize)
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
这句出错》》》 RS.Fields.Append "mBinary", adLongVarChar, FunSize
RS.Open
RS.AddNew
RS("mBinary").AppendChunk(biData)
RS.Update
BinaryToString = RS("mBinary").Value
RS.Close
End Function
%>
<form method="post" action="111.asp" enctype="multipart/form-data">
<label>
<input type="file" name="file1" >
</label>
<br />
<input type="text" name="filename" value="default filename">
<br />
<input type="submit" value="Submit">
<input type="reset" value="Reset">
</form>