В этой статье в основном представлена соответствующая информация о методе использования 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 и его можно игнорировать.
Выше приведено все содержание этой статьи, надеюсь, она вам всем понравится.