asp implementa la lectura del código json de salida de la base de datos

Este artículo presenta principalmente información relevante sobre el método de uso de ASP para leer y generar código JSON desde la base de datos. Los amigos que lo necesiten pueden consultarlo.

Función GetTable(Tabla,Dónde,Orden,Ordenación de pedidos,curpage,tamaño de página,MiniJson)

'Autor: nigou

'Uso: Response.Write GetTable (nombre de la tabla, condición Where, clave principal del pedido (obligatoria), OrderSort (asc, desc), página actual, tamaño de página, número de elementos por página, si MiniJson se genera en formato miniUI)

'

dimi,j,rs

si OrdenOrden = Entonces OrdenOrden = asc

si Donde= Entonces Donde=asc

Establecer Rs=Servidor.CreateObject(adodb.recordset)

si curvatura > 1 entonces

TmpSql=seleccione a.* de (seleccione arriba & (curpage) * tamaño de página & * de & Tabla & dónde y dónde & ordenar por & Orden & & Ordenar &) una combinación izquierda (seleccione arriba & (curpage-1) * tamaño de página & * desde & Tabla & dónde & dónde & ordenar por & Orden & & Ordenar & ) b en & Orden & =b & Orden & donde iif(b. & Orden & ,'0','1')='. 1'

demás

TmpSql=seleccione a.* de (seleccione arriba & (curpage) * tamaño de página & * de & Tabla & dónde & dónde & ordenar por & Orden & & Ordenar Orden &) a

terminar si

si tamaño de página = 0 Entonces TmpSql = seleccionar * de & Tabla

Rs.open TmpSql,conexión,1,1

Tamaño real=Rs.recordcount

para i=0 a Rs.recordcount-1

TmpJson= TmpJson & {

para j=0 a Rs.fields.count-1

TmpJson= TmpJson & &(Rs.fields(j).nombre) & :

TmpJson= TmpJson & & Rs(j) &

si j<Rs.fields.count-1 entonces TmpJson= TmpJson &,

próximo

TmpJson= TmpJson & }

si i<Rs.recordcount-1 entonces TmpJson= TmpJson &,

TmpJson= TmpJson & vbcrlf

rs.movenext

próximo

Rs.cerrar

si MiniJson=1 Entonces

CountSql=seleccione recuento (& orden &) de & Tabla & dónde & dónde

Rs.open CountSql,Conn,1,1

Cuentas=Rs(0)

Rs.Cerrar

GetTable=ToMiniUi(TmpJson,Cuentas)

Demás

ObtenerTabla=toJson(TmpJson)

terminar si

Establecer Rs = nada

Función final

función toJson(JsonStr)

toJson=[ & vbcrlf & JsonStr & vbcrlf & ]

función final

Función ToMiniUi(JsonStr,total)

AMiniUI={

ToMiniUI=ToMiniUI & total: & total &, & vbcrlf

ToMiniUI=ToMiniUI y datos: [& JsonStr

ToMiniUI=ToMiniUI & ]}

Función final

PD: el último parámetro está desarrollado para miniUI y se puede ignorar.

Lo anterior es el contenido completo de este artículo, espero que les guste a todos.