Colección de citas famosas - Slogan de motivación - Asp busca y enfrenta problemas

Asp busca y enfrenta problemas

Debería ser que no creaste un objeto de conjunto de registros. Intente lo siguiente:

lt

Dim shuju_total

Dim shuju_first

Dim shuju_last

SQL = " SELECCIONE * DESDE Shu ju DONDE fa _ min cheng como 'MMColParam'

Establezca rs = CreateObject("ADODB.RecordSet")

Connecticut, 1, 1

. p>

Si rs.eof o rs.bof, entonces

shuju_total=0

Otro

Recuento de registros

Es finalizará si...

Establece el número de filas que se muestran en esta página

if (Shu ju _ numRows lt; 0) entonces

shuju_numRows = shuju_total

Elseif (shuju_numRows = 0) entonces

shuju_numRows = 1

Terminará si...

Establece el primero y el último fila Registros mostrados

shuju_first = 1

shuju_last = shuju_first shuju_numRows-1

Si tenemos el recuento de registros correcto, verifique otras estadísticas

si (Shu ju _ total lt; gt-1) entonces

si (Shu ju _ first gt; shuju_total) entonces

Shuju_first =Shuju_total

Será terminar si...

if (Shu ju _ last gt; shuju_total) entonces

Shuju_last =Shuju_ total

Terminará si...

si (Shu ju _ numRows gt; shuju_total) entonces

shuju_numRows = shuju_total

Si... Terminará

Si.. . terminará

gt

.