%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_csh1_STRING Recordset1.Source = "SELECT neme, address FROM wengao ORDER BY gsort ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %><% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_csh2_STRING Recordset2.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %><% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_csh3_STRING Recordset3.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %><% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_csh4_STRING Recordset4.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %><% Dim Recordset5 Dim Recordset5_numRows Set Recordset5 = Server.CreateObject("ADODB.Recordset") Recordset5.ActiveConnection = MM_csh5_STRING Recordset5.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset5.CursorType = 0 Recordset5.CursorLocation = 2 Recordset5.LockType = 1 Recordset5.Open() Recordset5_numRows = 0 %><% Dim Recordset6 Dim Recordset6_numRows Set Recordset6 = Server.CreateObject("ADODB.Recordset") Recordset6.ActiveConnection = MM_csh6_STRING Recordset6.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset6.CursorType = 0 Recordset6.CursorLocation = 2 Recordset6.LockType = 1 Recordset6.Open() Recordset6_numRows = 0 %><% Dim Recordset7 Dim Recordset7_numRows Set Recordset7 = Server.CreateObject("ADODB.Recordset") Recordset7.ActiveConnection = MM_csh7_STRING Recordset7.Source = "SELECT * FROM wengao ORDER BY gsort ASC" Recordset7.CursorType = 0 Recordset7.CursorLocation = 2 Recordset7.LockType = 1 Recordset7.Open() Recordset7_numRows = 0 %><% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %><% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %><% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %><% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 Recordset4_numRows = Recordset4_numRows + Repeat4__numRows %><% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = -1 Repeat5__index = 0 Recordset5_numRows = Recordset5_numRows + Repeat5__numRows %><% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = -1 Repeat6__index = 0 Recordset6_numRows = Recordset6_numRows + Repeat6__numRows %><% Dim Repeat7__numRows Dim Repeat7__index Repeat7__numRows = -1 Repeat7__index = 0 Recordset7_numRows = Recordset7_numRows + Repeat7__numRows %>
![]() |
![]() |
| ||||
|
| |