<% Dim rsclass Dim rsclass_numRows Set rsclass = Server.CreateObject("ADODB.Recordset") rsclass.ActiveConnection = MM_conn_STRING rsclass.Source = "SELECT * FROM xo_zhaobiaoClass" rsclass.CursorType = 1 rsclass.CursorLocation = 2 rsclass.LockType = 1 rsclass.Open() rsclass_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsclass_numRows = rsclass_numRows + Repeat1__numRows %>潍坊学院精品课程-思想道德修养
 

版权:携手网络