ASP uses jqGrid to implement reading, writing and deleting code (json)

Author：Eve Cole Update Time：2025-02-16 21:00:03

Because I have a relatively mature CMS, I have never given up on ASP. I have always wanted to rewrite it using .net, but that is a story for another time. jqGrid is an excellent DataGrid framework based on jQuery, which everyone must be familiar with. There is very little information based on ASP on the Internet. I will provide one. The data format is json:

, a json class for jqGrid: This code seems to be converted from some PHP in the official website forum. We save it as json.asp and paste the code:

Copy the code code as follows:

response.Charset=utf-8

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

'JSONClass class

' Convert the execution result of the Select statement into JSON

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

ClassJSONClass

'Define class attributes, default is Private

Dim SqlString ' used to set Select

Dim JSON 'The name of the returned JSON object

Dim DBConnection 'Connection object to the database

'Public methods that can be called externally

Public Function GetJSON()

dim Rs

dim returnStr

dim i

dim oneRecord

' Get data

Set Rs= Server.CreateObject(ADODB.Recordset)

Rs.open SqlString,DBConnection,1,1

if page<> then

epage=cint(page)

if epage<1 then epage=1

if epage>rs.pagecount then epage=rs.pagecount

else

epage=1

end if

rs.pagesize = rows

rs.absolutepage = epage

' Generate JSON string

if Rs.eof=false and Rs.Bof=false then

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

for j=0 to rs.pagesize-1

if rs.bof or rs.eof then exit for

'------

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

for i=1 to Rs.Fields.Count -1

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

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

'After removing the last field of the record,

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

oneRecord=oneRecord & ]},

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

returnStr=returnStr & oneRecord

Rs.MoveNext

' After removing all record arrays,

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

returnStr=returnStr & ]}

end if

Rs.close

set Rs=Nothing

GetJSON=returnStr

End Function

'Private method, used in the class

Private Function check()

End Function

End Class

2. Create an asp file that displays data, such as: list.asp, the code is as follows

Copy the code code as follows:

dim page,rows,sidx,sord

page = request.QueryString(page) 'page

rows = request.QueryString(rows) 'pagesize

sidx = request.QueryString(sidx) 'order by ??

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

Dim strSearchOn, strField, strFieldData, strSearchOper, strWhere

strSearchOn = Request(_search)

If (strSearchOn = true) Then

strField = Request(searchField)

If (strField = id Or strField = Title Or strField = NickName) Then

strFieldData = Request(searchString)

strSearchOper = Request(searchOper)

'construct where

strWhere = Where & strField

Select Case strSearchOper

Case bw : 'Begin With

strFieldData = strFieldData & %

strWhere = strWhere & LIKE ' & strFieldData & '

Case eq : 'Equal