东方日立锅炉有限公司

<%@LANGUAGE="VBSCRIPT"%> <% Dim Rs2 Dim Rs2_numRows Set Rs2 = Server.CreateObject("ADODB.Recordset") Rs2.ActiveConnection = MM_Conn_STRING Rs2.Source = "SELECT * FROM news order by nrid desc" Rs2.CursorType = 0 Rs2.CursorLocation = 2 Rs2.LockType = 1 Rs2.Open() Rs2_numRows = 0 %> <% Dim Rs3 Dim Rs3_numRows Set Rs3 = Server.CreateObject("ADODB.Recordset") Rs3.ActiveConnection = MM_Conn_STRING Rs3.Source = "SELECT n.*,m.imgid FROM dv_ac_img m,project n WHERE n.nrid=m.nrid and m.imgid IN(SELECT MAX(imgid) AS Expr1 FROM dv_ac_img GROUP BY nrid) ORDER BY n.nrid DESC" Rs3.CursorType = 0 Rs3.CursorLocation = 2 Rs3.LockType = 1 Rs3.Open() Rs3_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = 3 Dim HLooper1__index HLooper1__index = 0 Rs3_numRows = Rs3_numRows + HLooper1__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 Rs2_numRows = Rs2_numRows + Repeat1__numRows %> 东方日立锅炉有限公司