asp implementiert das Lesen des JSON-Codes für die Datenbankausgabe

In diesem Artikel werden hauptsächlich relevante Informationen zur Verwendung von ASP zum Lesen und Ausgeben von JSON-Code aus der Datenbank vorgestellt. Freunde, die ihn benötigen, können darauf verweisen.

Funktion GetTable(Table,Where,Order,OrderSort,curpage, pagesize,MiniJson)

'Autor: nigou

'Verwendung: Response.Write GetTable (Tabellentabellenname, Where-Bedingung, Order-Primärschlüssel (erforderlich), OrderSort (aufsteigend, absteigend), Curpage der aktuellen Seite, Seitengröße, Anzahl der Elemente pro Seite, ob MiniJson im miniUI-Format ausgegeben wird)

'

dimi,j,rs

wenn OrderSort= Dann OrderSort=asc

if Where= Then Where=asc

Setze Rs=Server.CreateObject(adodb.recordset)

wenn curpage>1 dann

TmpSql=select a.* from ( select top & (curpage) * seitengröße & * from & Table & where & where & order by & Order & & OrderSort & ) a left joint ( select top & (curpage-1) * seitengröße & * from & Table & where & where & order by & Order & & OrderSort & ) b on a & Order & =b & Order & where iif(b. & Order & ,'0','1')=' 1'

anders

TmpSql=select a.* from ( select top & (curpage) * pagesize & * from & Table & where & where & order by & Order & & OrderSort & ) a

Ende wenn

wenn pagesize=0 Then TmpSql = select * from & Table

Rs.open TmpSql,conn,1,1

RealSize=Rs.recordcount

für i=0 bis Rs.recordcount-1

TmpJson= TmpJson & {

für j=0 bis Rs.fields.count-1

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

TmpJson= TmpJson & & Rs(j) &

wenn j<Rs.fields.count-1 dann TmpJson= TmpJson & ,

nächste

TmpJson= TmpJson & }

wenn i<Rs.recordcount-1 dann TmpJson= TmpJson & ,

TmpJson= TmpJson & vbcrlf

rs.movenext

nächste

Rs.schließen

wenn MiniJson=1 Dann

CountSql=Wählen Sie count(& order &) from & Table & where & where aus

Rs.open CountSql,Conn,1,1

Anzahl = Rs(0)

Rs.Schließen

GetTable=ToMiniUi(TmpJson,Counts)

Anders

GetTable=toJson(TmpJson)

Ende wenn

Setze Rs=nichts

Funktion beenden

Funktion toJson(JsonStr)

toJson=[ & vbcrlf & JsonStr & vbcrlf & ]

Endfunktion

Funktion ToMiniUi(JsonStr,total)

ToMiniUI={

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

ToMiniUI=ToMiniUI & Daten: [ & JsonStr

ToMiniUI=ToMiniUI & ]}

Funktion beenden

PS: Der letzte Parameter wurde für miniUI entwickelt und kann ignoriert werden.

Das Obige ist der gesamte Inhalt dieses Artikels. Ich hoffe, er gefällt Ihnen allen.