ASP использует jqGrid для реализации чтения, записи и удаления кода (json).

Автор：Eve Cole Время обновления：2025-02-16 21:00:03

Поскольку у меня относительно зрелая CMS, я никогда не отказывался от ASP. Мне всегда хотелось переписать ее с использованием .net, но это история в другой раз. jqGrid — отличный фреймворк DataGrid, основанный на jQuery, с которым должен быть знаком каждый. В Интернете очень мало информации на основе ASP. Формат данных — json:

, класс json для jqGrid: похоже, этот код был преобразован из какого-то PHP на форуме официального сайта. Мы сохраняем его как json.asp и вставляем код:

Скопируйте код кода следующим образом:

ответ.Charset=utf-8

'---------------------------------------

'Класс JSONClass

' Преобразуем результат выполнения оператора Select в JSON

'---------------------------------------------

КлассJSONClass

'Определить атрибуты класса, по умолчанию — Private

Dim SqlString 'используется для установки Select

Dim JSON 'Имя возвращаемого объекта JSON

Dim DBConnection 'Объект подключения к базе данных

'Публичные методы, которые можно вызывать извне

Открытая функция GetJSON()

тусклые рупии

тусклый возвратStr

тусклый я

dim oneЗапись

' Получить данные

Установить Rs= Server.CreateObject(ADODB.Recordset)

Rs.open SqlString,DBConnection,1,1

если страница<> тогда

epage=cint(страница)

если epage<1, то epage=1

если epage>rs.pagecount, то epage=rs.pagecount

еще

страница=1

конец, если

rs.pagesize = строки

rs.absolutepage = epage

' Генерируем строку JSON

если Rs.eof=false и Rs.Bof=false, то

returnStr={ total: & rs.pagecount &, page: & page &, Records: & rs.recordcount &, rows:[

от j=0 до rs.pagesize-1

если rs.bof или rs.eof, то выходим для

'------

'oneRecord = {id: & chr(34) &Rs.Fields(0).Value&chr(34)&,cell:[& chr(34) &Rs.Fields(0).Value&chr(34)&,

oneRecord = {id: & chr(34) &Rs.Fields(0).Value&chr(34)&,cell:[& chr(34) &Rs.Fields(0).Value&chr(34)&,

для i=1 до Rs.Fields.Count -1

'oneRecord=oneRecord & chr(34) &Rs.Fields(i).Name&chr(34)&:

oneRecord=oneRecord & chr(34) &Rs.Fields(i).Value&chr(34) &,

'После удаления последнего поля записи,

oneRecord=left(oneRecord,InStrRev(oneRecord,,)-1)

oneRecord=oneRecord & ]},

'-------------

returnStr=returnStr и oneRecord

Rs.MoveNext

' После удаления всех массивов записей,

returnStr=left(returnStr,InStrRev(returnStr,,)-1)

returnStr=returnStr & ]}

конец, если

рупийблизко

установить Rs=Ничего

GetJSON=returnStr

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

'Частный метод, используемый в классе

Проверка частной функции()

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

Конечный класс

2. Создайте asp-файл, отображающий данные, например: list.asp, код следующий.

Скопируйте код кода следующим образом:

тусклая страница, строки, sidx, sord

страница = request.QueryString(страница) 'страница

rows = request.QueryString(rows) 'размер страницы

sidx = request.QueryString(sidx) 'упорядочить по ??

Сорд = запрос.QueryString(Сорд)

если страница= то страница = 1 конец если

если строки = то строки = 10 заканчиваются, если

если sidx = то sidx = id end if

если sord = то sord =asc end if

Dim strSearchOn, strField, strFieldData, strSearchOper, strWhere

strSearchOn = Запрос (_search)

Если (strSearchOn = true) Тогда

strField = Запрос (поле поиска)

Если (strField = id Или strField = Title Или strField = NickName) Тогда

strFieldData = Запрос (строка поиска)

strSearchOper = Запрос (searchOper)

'построить, где

strWhere = Где и strField

Выберите регистр strSearchOper

Случай b: «Начните с

стрFieldData = стрFieldData & %

strWhere = strWhere & LIKE ' & strFieldData & '

Случай eq : 'Равно