Este artigo apresenta principalmente informações relevantes sobre o método de uso do asp para ler e gerar código json do banco de dados. Amigos que precisarem dele podem consultá-lo.
Copie o código do código da seguinte forma:Função GetTable(Tabela,Onde,Ordem,OrderSort,curpage, tamanho da página,MiniJson)
'Autor: nigou
'Uso: Response.Write GetTable (nome da tabela, condição Where, chave primária do pedido (obrigatório), OrderSort (asc, desc), página atual da página atual, número do tamanho da página de itens por página, se MiniJson é gerado no formato miniUI)
'
dimi,j,rs
se OrderSort=Então OrderSort=asc
se Onde = Então Onde = asc
Definir Rs=Server.CreateObject(adodb.recordset)
se curpage>1 então
TmpSql=selecione a.* from ( select top & (curpage) * pagesize & * from & Table & where & where & order by & Order & & OrderSort & ) uma junção à esquerda ( select top & (curpage-1) * pagesize & * from & Table & where & where & order by & Order & & OrderSort & ) b em a. 1'
outro
TmpSql=selecione a.* from ( select top & (curpage) * pagesize & * from & Table & where & where & order by & Order & & OrderSort & ) a
terminar se
se pagesize = 0 Então TmpSql = selecione * da & Tabela
Rs.open TmpSql,conn,1,1
RealSize=Rs.contagem de registros
para i=0 para Rs.recordcount-1
TmpJson = TmpJson & {
para j = 0 para Rs.fields.count-1
TmpJson= TmpJson & &(Rs.campos(j).nome) & :
TmpJson = TmpJson & & Rs(j) &
se j<Rs.fields.count-1 então TmpJson= TmpJson & ,
próximo
TmpJson = TmpJson & }
se i<Rs.recordcount-1 então TmpJson= TmpJson & ,
TmpJson = TmpJson & vbcrlf
rs.movnext
próximo
Rs.fechar
se MiniJson=1 então
CountSql = selecione contagem (& pedido &) de & Tabela & onde & onde
Rs.open CountSql,Conn,1,1
Contagens=Rs(0)
Rs.Fechar
GetTable=ToMiniUi(TmpJson,Contagens)
Outro
GetTable=toJson(TmpJson)
terminar se
Definir Rs = nada
Função final
função paraJson(JsonStr)
toJson=[ & vbcrlf & JsonStr & vbcrlf & ]
função final
Função ToMiniUi(JsonStr,total)
ParaMiniUI={
ToMiniUI=ToMiniUI & total: & total & , & vbcrlf
ToMiniUI=ToMiniUI & dados: [ & JsonStr
ToMiniUI=ToMiniUI & ]}
Função final
PS: O último parâmetro foi desenvolvido para miniUI e pode ser ignorado.
O texto acima é todo o conteúdo deste artigo, espero que todos gostem.