ASP verwendet jqGrid, um das Lesen, Schreiben und Löschen von Code (JSON) zu implementieren.

Autor：Eve Cole Aktualisierungszeit：2025-02-16 21:00:03

Da ich ein relativ ausgereiftes CMS habe, habe ich ASP nie aufgegeben. Ich wollte es schon immer mit .net neu schreiben, aber das ist eine Geschichte für ein anderes Mal. jqGrid ist ein hervorragendes DataGrid-Framework, mit dem jeder vertraut sein muss. Im Internet gibt es nur sehr wenige Informationen. Das Datenformat ist json.

, eine JSON-Klasse für jqGrid: Dieser Code scheint aus etwas PHP im offiziellen Website-Forum konvertiert zu sein. Wir speichern ihn als json.asp und fügen den Code ein:

Kopieren Sie den Codecode wie folgt:

Antwort.Charset=utf-8

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

'JSONClass-Klasse

' Konvertieren Sie das Ausführungsergebnis der Select-Anweisung in JSON

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

KlasseJSONKlasse

'Klassenattribute definieren, Standard ist Privat

Dim SqlString 'wird zum Festlegen von Select verwendet

Dim JSON 'Der Name des zurückgegebenen JSON-Objekts

Dim DBConnection 'Verbindungsobjekt zur Datenbank

'Öffentliche Methoden, die extern aufgerufen werden können

Öffentliche Funktion GetJSON()

schwache Rs

dim returnStr

dim ich

dimmen Sie einen Datensatz

' Daten abrufen

Setze Rs= Server.CreateObject(ADODB.Recordset)

Rs.open SqlString,DBConnection,1,1

wenn Seite<> dann

epage=cint(Seite)

Wenn epage<1, dann ist epage=1

Wenn epage>rs.pagecount, dann epage=rs.pagecount

anders

epage=1

Ende wenn

rs.pagesize = Zeilen

rs.absolutepage = epage

'JSON-String generieren

wenn Rs.eof=false und Rs.Bof=false dann

returnStr={ total: & rs.pagecount &, Seite: & Seite &, Datensätze: & rs.recordcount &, Zeilen:[

für j=0 bis rs.pagesize-1

Wenn rs.bof oder rs.eof, dann beenden Sie für

'------

'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)&,

für i=1 bis Rs.Fields.Count -1

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

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

'Nachdem das letzte Feld des Datensatzes entfernt wurde,

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

oneRecord=oneRecord & ]},

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

returnStr=returnStr & oneRecord

Rs.MoveNext

'Nachdem alle Datensatz-Arrays entfernt wurden,

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

returnStr=returnStr & ]}

Ende wenn

Rs.schließen

setze Rs=Nichts

GetJSON=returnStr

Funktion beenden

'Private Methode, wird in der Klasse verwendet

Private Funktionsprüfung()

Funktion beenden

Unterricht beenden

2. Erstellen Sie eine ASP-Datei, die Daten anzeigt, z. B. list.asp. Der Code lautet wie folgt

Kopieren Sie den Codecode wie folgt:

Seite, Zeilen, Sidx, Sord dimmen

page = request.QueryString(page) 'Seite

rows = request.QueryString(rows) 'pagesize

sidx = request.QueryString(sidx) 'Reihenfolge nach ??

sord = request.QueryString(sord)

if page= then page = 1 end if

if rows = then rows = 10 end if

if sidx = then sidx = id end if

if sord = then sord =asc end if

Dimmen Sie strSearchOn, strField, strFieldData, strSearchOper, strWhere

strSearchOn = Request(_search)

Wenn (strSearchOn = true) Dann

strField = Request(searchField)

Wenn (strField = id Oder strField = Titel Oder strField = Spitzname) Dann

strFieldData = Request(searchString)

strSearchOper = Request(searchOper)

'konstruieren wo

strWhere = Wo & strField

Wählen Sie Case strSearchOper aus

Fall bw: „Beginnen mit

strFieldData = strFieldData & %

strWhere = strWhere & LIKE ' & strFieldData & '

Fallgleichung: 'Gleich