jg1

<%@LANGUAGE="VBSCRIPT"%> <% Dim anxinda Dim anxinda_numRows Set anxinda = Server.CreateObject("ADODB.Recordset") anxinda.ActiveConnection = MM_anxinda_STRING anxinda.Source = "SELECT * FROM guojiems" anxinda.CursorType = 0 anxinda.CursorLocation = 2 anxinda.LockType = 1 anxinda.Open() anxinda_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 anxinda_numRows = anxinda_numRows + Repeat1__numRows %> jg1