Recomendado: Pane ASP Instancia: Código de noticias de diapositivas El siguiente es el contenido referenciado:
1. Crear objeto de registro
| El siguiente es el contenido citado: Dim objmyrst Establecer objmyrst = server.createObject (ADODB.RecordSet) objmyrst.cursorlocation = aduseclientbatch 'El cliente puede estar procesado por lotes objmyrst.cursortype = Adopenstatic 'El tipo de cursor es estático |
NOTA: El objeto de registro no se puede crear utilizando la declaración de set objmyrst = Connection.excute STRSQL, porque el objeto Registro que ha creado es adoptenfowenDonly no admite la paginación de registros de registros.
2. Abra el objeto RegistroSet
| El siguiente es el contenido citado: Dim strsql strsql = select * de ietable objmyrst.oepn strsql, activeconnection ,, adcmdtext 3. Establezca la propiedad de PageSize de Recordset objmyrst.pagesize = 20 La página predeterminada es 10 |
3. Establezca la propiedad AbsoluTepage de Registro.
| El siguiente es el contenido citado: Dim intcurrentPage intcurrentPage = 1 objmyrst.absolutePage = intCurrentPage AbsoluTepage es 1 al valor pageCount del objeto Registro |
4. Mostrar datos
| El siguiente es el contenido citado: Response.write (<table>) PrintFieldName (objmyrst) Para i = 1 a objmyrst.pagesize PrintfieldValue (objmyrst) objmyrst.movenext Si objmyrst.eof entonces salga por Próximo Response.write (</table>) |
ilustrar:
1. Si desea usarlo, copie Adovbs.Inc en el directorio actual e incluya en el programa.
| El siguiente es el contenido citado: <! -#incluir archivo = adovbs.inc-> 2. El código de las funciones printfielname y printfieldValue es el siguiente: <% Función printFieldName (objmyrst) 'El parámetro objmyrst es un objeto de registro 'Defina el recuento Dim objfld Response.write <tr bgcolor = '#cccccc'> Para cada objfld en objmyrst.fields Response.Write <Td> & objfld.name & </td> Próximo Response.Write (</tr>) Función final Función printFieldValue (objmyrst) 'El parámetro objmyrst es un objeto de registro 'Defina el recuento Dim objfld Response.write (<tr>) Para cada objfld en objmyrst.fields 'Response.Write <Td> & objmyrst.fields (intloop) .Value & </td> Response.Write <Td> & Objfld.Value & </td> Próximo Response.write (<tr>) Función final %> |
Compartir: interpretar el código de consulta de palabras múltiples En el desarrollo web, a menudo encuentro múltiples pares de palabras clave de consultas de campo único, que generalmente implemento a través de matrices dinámicas. Por supuesto, las palabras clave múltiples generalmente están separadas por espacios o. Supongo que múltiples palabras clave están separadas por espacios, la cadena de palabras clave es tecla y el código específico es