%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim rs__MMColParam
rs__MMColParam = "23"
If (Request("MM_EmptyValue") <> "") Then
rs__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_connf_STRING
rs.Source = "SELECT product_id, class_id, product_name FROM qccs_product WHERE class_id = " + Replace(rs__MMColParam, "'", "''") + " ORDER BY product_id DESC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%
Dim rs2__MMColParam
rs2__MMColParam = "16"
If (Request("MM_EmptyValue") <> "") Then
rs2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs2
Dim rs2_numRows
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = MM_connf_STRING
rs2.Source = "SELECT product_id, class_id, product_name, product_time FROM qccs_product WHERE class_id = " + Replace(rs2__MMColParam, "'", "''") + " ORDER BY product_time DESC"
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 1
rs2.Open()
rs2_numRows = 0
%>
<%
Dim rs3__MMColParam
rs3__MMColParam = "24"
If (Request("MM_EmptyValue") <> "") Then
rs3__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs3
Dim rs3_numRows
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.ActiveConnection = MM_connf_STRING
rs3.Source = "SELECT product_id, class_id, product_name, product_time FROM qccs_product WHERE class_id = " + Replace(rs3__MMColParam, "'", "''") + " ORDER BY product_time DESC"
rs3.CursorType = 0
rs3.CursorLocation = 2
rs3.LockType = 1
rs3.Open()
rs3_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 10
Repeat2__index = 0
rs2_numRows = rs2_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = 10
Repeat3__index = 0
rs3_numRows = rs3_numRows + Repeat3__numRows
%>
上海信佳
|
| |
Copyright © 2004-2005
信佳集团 版权所有 |
<%
rs.Close()
Set rs = Nothing
%>
<%
rs2.Close()
Set rs2 = Nothing
%>
<%
rs3.Close()
Set rs3 = Nothing
%>