asp реализует чтение кода json вывода базы данных

В этой статье в основном представлена ​​соответствующая информация о методе использования asp для чтения и вывода кода JSON из базы данных. Друзья, которым это необходимо, могут обратиться к ней.

Функция GetTable(Table,Where,Order,OrderSort,curpage,pagesize,MiniJson)

'Автор: Нигу

'Использование: Response.Write GetTable (имя таблицы таблицы, условие Where, первичный ключ заказа (обязательно), OrderSort (по возрастанию, по убыванию), Curpage текущей страницы, размер страницы, количество элементов на странице, выводится ли MiniJson в формате miniUI)

'

Дими, Джей, РС

если OrderSort= Тогда OrderSort=по возрастанию

если Где= Тогда Где=по возрастанию

Установите Rs=Server.CreateObject(adodb.recordset)

если выскабливание>1, то

TmpSql=select a.* from ( select top & (curpage) * pagesize & * from & Table & где & где & упорядочить по & Order & & OrderSort & ) левого соединения ( select top & (curpage-1) * pagesize & * from & Table &where &where & order by & Order & & OrderSort & ) b on a. & Order & =b. & Order & где iif(b. & Order & ,'0','1')=' 1'

еще

TmpSql=select a.* from ( select top & (curpage) * размер страницы & * from & Table & где & где & упорядочить по & Order & & OrderSort & ) a

конец, если

если pagesize=0 Тогда TmpSql = select * from & Table

Rs.open TmpSql,conn,1,1

RealSize=Количество записей Rs.

для i=0 до Rs.recordcount-1

TmpJson= TmpJson & {

для j=0 до Rs.fields.count-1

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

TmpJson= TmpJson & & Rs(j) &

если j<Rs.fields.count-1, то TmpJson= TmpJson & ,

следующий

TmpJson= TmpJson & }

если i<Rs.recordcount-1, то TmpJson= TmpJson & ,

TmpJson= TmpJson и vbcrlf

rs.movenext

следующий

рупийблизко

если MiniJson=1 Тогда

CountSql = выберите количество (& порядок &) из & таблицы & где & где

Rs.open CountSql,Conn,1,1

Количество = рупий (0)

Rs.Закрыть

GetTable=ToMiniUi(TmpJson,Counts)

Еще

GetTable=toJson(TmpJson)

конец, если

Установите Rs = ничего

Конечная функция

функция toJson(JsonStr)

toJson=[ & vbcrlf & JsonStr & vbcrlf & ]

конечная функция

Функция ToMiniUi(JsonStr,total)

ToMiniUI={

ToMiniUI=ToMiniUI & итог: & итог & , & vbcrlf

ToMiniUI=ToMiniUI и данные: [ & JsonStr

ToMiniUI=ToMiniUI & ]}

Конечная функция

PS: Последний параметр разработан для miniUI и его можно игнорировать.

Выше приведено все содержание этой статьи, надеюсь, она вам всем понравится.