%@LANGUAGE="VBSCRIPT"%> <% set Rszj = Server.CreateObject("ADODB.Recordset") Rszj.ActiveConnection = MM_cnsinocp_STRING Rszj.Source = "SELECT top 10 * FROM dbo.bankroll WHERE viewflag='true' AND zjxx='一般信息' ORDER BY indate desc" Rszj.CursorType = 0 Rszj.CursorLocation = 2 Rszj.LockType = 3 Rszj.Open() Rszj_numRows = 0 %> <% set Rsxm = Server.CreateObject("ADODB.Recordset") Rsxm.ActiveConnection = MM_cnsinocp_STRING Rsxm.Source = "SELECT top 14 * FROM dbo.project WHERE viewflag='true' AND weight='一般项目' ORDER BY indate desc" Rsxm.CursorType = 0 Rsxm.CursorLocation = 2 Rsxm.LockType = 3 Rsxm.Open() Rsxm_numRows = 0 %> <% set Rsjs = Server.CreateObject("ADODB.Recordset") Rsjs.ActiveConnection = MM_cnsinocp_STRING Rsjs.Source = "SELECT top 12 * FROM dbo.technology WHERE viewflag='true' ORDER BY indate desc" Rsjs.CursorType = 0 Rsjs.CursorLocation = 2 Rsjs.LockType = 3 Rsjs.Open() Rsjs_numRows = 0 %> <% set recordset2 = Server.CreateObject("ADODB.Recordset") recordset2.ActiveConnection = MM_cnsinocp_STRING recordset2.Source = "SELECT top 3 * FROM com999 WHERE viewflag='true' and flag='特许经营商' ORDER BY indate desc" recordset2.CursorType = 0 recordset2.CursorLocation = 2 recordset2.LockType = 3 recordset2.Open() %> <% set recordset1 = Server.CreateObject("ADODB.Recordset") recordset1.ActiveConnection = MM_cnsinocp_STRING recordset1.Source = "SELECT top 5 * FROM highway WHERE viewflag='true' ORDER BY indate desc" recordset1.CursorType = 0 recordset1.CursorLocation = 2 recordset1.LockType = 3 recordset1.Open() %> <% Dim Repeat1__numRows Repeat1__numRows = 3 Dim Repeat1__index Repeat1__index = 0 Rszj_numRows = Rszj_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 3 Dim Repeat2__index Repeat2__index = 0 Rsxm_numRows = Rsxm_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Repeat3__numRows = 3 Dim Repeat3__index Repeat3__index = 0 Rsjs_numRows = Rsjs_numRows + Repeat3__numRows %>
|
|||||
|
|
|||||
|
|