%@LANGUAGE="VBSCRIPT"%> <% Dim Rs1 Dim Rs1_numRows Set Rs1 = Server.CreateObject("ADODB.Recordset") Rs1.ActiveConnection = MM_conn_STRING Rs1.Source = "SELECT * FROM chang ORDER BY Aid DESC" Rs1.CursorType = 0 Rs1.CursorLocation = 2 Rs1.LockType = 1 Rs1.Open() Rs1_numRows = 0 %> <% Dim Rs2 Dim Rs2_numRows Set Rs2 = Server.CreateObject("ADODB.Recordset") Rs2.ActiveConnection = MM_conn_STRING Rs2.Source = "SELECT * FROM xin ORDER BY Cid 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 * FROM zixun ORDER BY Bid DESC" Rs3.CursorType = 0 Rs3.CursorLocation = 2 Rs3.LockType = 1 Rs3.Open() Rs3_numRows = 0 %>