asp implémente la lecture du code json de sortie de la base de données

Cet article présente principalement les informations pertinentes sur la méthode d'utilisation d'asp pour lire et générer du code json à partir de la base de données. Les amis qui en ont besoin peuvent s'y référer.

Fonction GetTable(Table,Où,Ordre,OrderSort,curpage,pageize,MiniJson)

'Auteur : Nigou

'Utilisation : Response.Write GetTable (nom de la table, condition Where, clé primaire de commande (obligatoire), OrderSort (asc, desc), courbure de la page actuelle, nombre d'éléments par page, si MiniJson est généré au format miniUI)

'

dimi,j,rs

si OrderSort= Alors OrderSort=asc

si Où = Alors Où = asc

Définir Rs = Server.CreateObject (adodb.recordset)

si courbure>1 alors

TmpSql=select a.* from ( select top & (curpage) * pagesize & * from & Table &where &where & order by & Order & & OrderSort & ) une jointure gauche ( select top & (curpage-1) * pagesize & * de & Table & où & où & commander par & Commande & & CommandeTri & ) b sur a & Commande & où iif(b. & Commande & ,'0','1')=' 1'

autre

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

finir si

si pagesize=0 Alors TmpSql = select * from & Table

Rs.open TmpSql,conn,1,1

RealSize=Rs.recordcount

pour i=0 à Rs.recordcount-1

TmpJson= TmpJson & {

pour j=0 à Rs.fields.count-1

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

TmpJson= TmpJson & & Rs(j) &

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

suivant

TmpJson= TmpJson & }

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

TmpJson= TmpJson & vbcrlf

rs.movenext

suivant

Rs.fermer

si MiniJson=1 Alors

CountSql=sélectionner le nombre (& ordre &) à partir de & table & où & où

Rs.open CountSql,Conn,1,1

Comptes = Rs (0)

Rs.Fermer

GetTable=ToMiniUi(TmpJson,Comptes)

Autre

GetTable=toJson(TmpJson)

finir si

Définir Rs = rien

Fonction de fin

fonction versJson(JsonStr)

toJson=[ & vbcrlf & JsonStr & vbcrlf & ]

fonction de fin

Fonction ToMiniUi(JsonStr,total)

VersMiniUI={

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

ToMiniUI=ToMiniUI & données : [ & JsonStr

VersMiniUI=VersMiniUI & ]}

Fonction de fin

PS : Le dernier paramètre est développé pour miniUI et peut être ignoré.

Ce qui précède représente l’intégralité du contenu de cet article, j’espère que vous l’aimerez tous.