De hecho, este problema se puede resolver con el método transversal más estúpido (la razón por la que se menciona este método es que es más fácil de entender para los principiantes):
SQLString = "Seleccionar * De chuanze order by ctid"
Set MM_Recordset = GetRecordset(SQLString) 'Abre la base de datos. GetRecordset es una función personalizada que se usa para abrir la consulta SQL especificada para generar un conjunto de registros; también puedes usar otros métodos para obtener el conjunto de registros
TempCt = "" 'Inicializar nombre de fruta
CtCount = 0 'Inicializar cantidad de fruta
Hacer mientras no MM_Recordset.Eof;
IF Trim(MM_Recordset.Fields.Item("Ctneirong").Value) <> TempCt Then 'Cuando el nombre de la fruta en el registro actual es diferente del nombre de la fruta en el caché, es diferente fruta
Response.Write ( Ctcount & "
") 'Finaliza las estadísticas de la fruta anterior y genera los resultados estadísticos
TempCt = Trim(MM_Recordset.Fields.Item ("Ctneirong").Value) 'Cambiar el nombre de la fruta actual Escribir en el caché
Response.write (MM_Recordset.Fields.Item("Ctneirong").Value & "：") 'Y enviar a la página
CtCount = 1 'Estadísticas de fruta actuales Inicio
Else 'Si el nombre de la fruta en el registro actual es el mismo que el nombre de la fruta en el caché, es la misma fruta
CtCount = Ctcount + 1 'El número de frutas se acumula por 1
End IF
MM_Recordset.Movenext 'Recorre la base de datos
Bucle
ReleaseRecordset(MM_Recordset)