Recomendado: Parse ASP Instância: Slide News Code A seguir, o conteúdo referenciado :!-Este é um arquivo de página inicial-> html> head> meta http-equiv = content-type content =
1. Criar objeto RecordSet
| A seguir, o conteúdo citado: Dim Objmyrst Set objmyrst = server.createObject (adodb.recordset) objmyrst.cursorlocation = aduseclientbatch 'o cliente pode ser processado em lote objmyrst.cursortype = adoenstatic 'o tipo de cursor é estático |
NOTA: O objeto RecordSet não pode ser criado usando a instrução de set objmyrst = Connection.excute strSQL, porque o objeto RecordSet que criou é adotado e não suporta a paginação do conjunto de registros.
2. Abra o objeto RecordSet
| A seguir, o conteúdo citado: StrSQL dim strsql = selecione * de Ietable objmyrst.oepn strsql, ActiveConnection ,, adcmdText 3. Defina a propriedade PageSize do registro objmyrst.pagesize = 20 O padrão padrão é 10 |
3. Defina a propriedade AbsolutePage do RecordSet
| A seguir, o conteúdo citado: Dim IntCurrentPage intCurrentPage = 1 objmyrst.absolutePage = intCurrentPage AbsolutePage é 1 para o valor de PagEcount do objeto RecordSet |
4. Exibir dados
| A seguir, o conteúdo citado: Response.Write (<table>) PrintFieldName (Objmyrst) Para i = 1 para objmyrst.pagesize PrintFieldValue (Objmyrst) objmyrst.movenext Se objmyrst.eof então saia para Próximo Response.write (</ tabela>) |
ilustrar:
1. ADCMDTEXT ADUSECILENTBATCH, ADUSECILENTBATCH são constantes definidas por Adovbs.inc. Se você deseja usá -lo, copie a Adovbs.inc para o diretório atual e inclua -o no programa.
| A seguir, o conteúdo citado: <! -#inclua arquivo = Adovbs.inc-> 2. O Código de Printfielname e PrintFieldValue Funções é a seguinte: <% Função PrintFieldName (Objmyrst) 'O parâmetro Objmyrst é um objeto de conjunto de registros Defina a contagem Objfld dim Response.write <tr bgcolor = '#cccccc'> Para cada objfld em objmyrst.fields Response.write <td> & objfld.name & </td> Próximo Response.write (</tr>) Função final Função printfieldValue (objmyrst) 'O parâmetro Objmyrst é um objeto de conjunto de registros Defina a contagem Objfld dim Response.write (<tr>) Para cada objfld em objmyrst.fields 'Response.write <td> & objmyrst.fields (Intloop) .Value & </td> Response.write <td> & objfld.value & </td> Próximo Response.write (<tr>) Função final %> |
Compartilhar: Interprete o Código de Consulta de Multi-Keyword No desenvolvimento da Web, muitas vezes encontro vários pares de palavras -chave de consultas de campo único, que geralmente implemento por meio de matrizes dinâmicas. Obviamente, várias palavras -chave geralmente são separadas por espaços ou. Suponho que várias palavras -chave sejam separadas por espaços, a cadeia de palavras -chave é keystr e o código específico é