大家帮个忙啊 asp 提交含有复选框表单时 不能将所有的记录搜出来 紧急！！！！！！！！！！

接受页代码如下： 

<%
Dim MMColParam
MMColParam = "1"
If (Request.Form("checkbox") <> "") Then
  MMColParam = Request.Form("checkbox")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conncailiao_STRING
if MMColParam<>"1" then
Recordset1.source="SELECT *  FROM 力学性能  WHERE 材料牌号 in ('" + MMColParam + "')"
else
Recordset1.source = "SELECT *  FROM 力学性能"
end if
Recordset1.CursorType = 1
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()