看看这段代码什么意识..新手上路
<%
Dim xlcb2__MMColParam2'声明变量不用说了
xlcb2__MMColParam = "4"'给一个变量赋初始值
If (Request("MM_EmptyValue") <> "") Then '判断Request中的MM_EmptyValue是否为空
xlcb2__MMColParam = Request("MM_EmptyValue")'不为空将值赋给刚才的变量
End If
%>
<%
Dim xlcb2
Dim xlcb2_numRows

Set xlcb2 = Server.CreateObject("ADODB.Recordset")'创建数据库记录集
xlcb2.ActiveConnection = MM_ttconn_STRING'设置活动的连接对象给记录集(这个连接对象之前可能已经打开)
'设置记录集的SQL查询语句
xlcb2.Source = "SELECT * FROM Product WHERE productid<=6 and productid >= " + Replace(xlcb2__MMColParam, "'", "''") + ""
'设置记录集能够检索记录的方向
'只进记录集
'只退记录集
'可进退记录集
xlcb2.CursorType = 0
xlcb2.CursorLocation = 2
'设置记录集是否只读(数据不可修改)
xlcb2.LockType = 1
xlcb2.Open()'打开记录集

xlcb2_numRows = 0
%>