ASP utilise jqGrid pour implémenter la lecture, l'écriture et la suppression de code (json)

Auteur：Eve Cole Date de mise à jour：2025-02-16 21:00:03

Parce que j'ai un CMS relativement mature, je n'ai jamais abandonné l'ASP. J'ai toujours voulu le réécrire en utilisant .net, mais c'est une autre histoire. jqGrid est un excellent framework DataGrid basé sur jQuery, que tout le monde doit connaître. Il y a très peu d'informations basées sur ASP sur Internet. Je vais en fournir une. Le format de données est json :

, une classe json pour jqGrid : ce code semble être converti à partir de PHP dans le forum du site officiel. Nous l'enregistrons sous json.asp et collons le code :

Copiez le code comme suit :

réponse.Charset=utf-8

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

'Classe JSONClass

' Convertir le résultat de l'exécution de l'instruction Select en JSON

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

ClasseJSONClass

'Définir les attributs de classe, la valeur par défaut est Privée

Dim SqlString 'utilisé pour définir Select

Dim JSON 'Le nom de l'objet JSON renvoyé

Dim DBConnection 'Objet de connexion à la base de données

'Méthodes publiques pouvant être appelées en externe

Fonction publique GetJSON()

faible Rs

dim returnStr

je suis faible

dim unEnregistrement

'Obtenir des données

Définir Rs = Server.CreateObject (ADODB.Recordset)

Rs.open SqlString,DBConnection,1,1

si page<> alors

epage=cint(page)

si epage<1 alors epage=1

si epage>rs.pagecount alors epage=rs.pagecount

autre

page=1

finir si

rs.pagesize = lignes

rs.absolutepage = epage

' Générer une chaîne JSON

si Rs.eof=false et Rs.Bof=false alors

returnStr={ total : & rs.pagecount &, page : & page &, enregistrements : & rs.recordcount &, lignes : [

pour j=0 à rs.pagesize-1

si rs.bof ou rs.eof alors quittez pour

'------

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

pour i=1 à Rs.Fields.Count -1

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

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

'Après avoir supprimé le dernier champ de l'enregistrement,

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

unEnregistrement=unEnregistrement & ]},

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

returnStr=returnStr & oneRecord

Rs.MoveNext

' Après avoir supprimé tous les tableaux d'enregistrements,

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

returnStr=returnStr & ]}

finir si

Rs.fermer

définir Rs = Rien

GetJSON = returnStr

Fonction de fin

'Méthode privée, utilisée en classe

Vérification de fonction privée()

Fonction de fin

Fin du cours

2. Créez un fichier asp qui affiche des données, telles que : list.asp, le code est le suivant

Copiez le code comme suit :

page sombre, lignes, sidx, sord

page = request.QueryString(page) 'page

lignes = request.QueryString(rows) 'pagesize

sidx = request.QueryString(sidx) 'ordre par ??

sord = requête.QueryString(sord)

si page= alors page = 1 fin si

si lignes = alors lignes = 10 fin si

si sidx = alors sidx = id fin si

si sord = alors sord =asc fin si

Dim strSearchOn, strField, strFieldData, strSearchOper, strWhere

strSearchOn = Requête (_search)

Si (strSearchOn = true) Alors

strField = Requête (champ de recherche)

Si (strField = id Ou strField = Titre Ou strField = NickName) Alors

strFieldData = Requête (chaîne de recherche)

strSearchOper = Requête (searchOper)

'construire où

strOù = Où & strField

Sélectionnez le cas strSearchOper

Cas bw : 'Commencer par

strFieldData = strFieldData & %

strOù = strOù & LIKE ' & strFieldData & '

Éq. cas : 'Égal