يستخدم ASP jqGrid لتنفيذ القراءة والكتابة وحذف التعليمات البرمجية (json)

الكاتب：Eve Cole وقت التحديث：2025-02-16 21:00:03

نظرًا لأن لدي نظام إدارة محتوى ناضجًا نسبيًا، لم أتخلى أبدًا عن ASP، وكنت أرغب دائمًا في إعادة كتابته باستخدام .net، ولكن هذه قصة لوقت آخر. jqGrid هو إطار عمل DataGrid ممتاز يعتمد على jQuery، ويجب أن يكون الجميع على دراية به. هناك القليل جدًا من المعلومات المستندة إلى ASP على الإنترنت، وسأقدم واحدة منها.

، فئة json لـ jqGrid: يبدو أن هذا الرمز قد تم تحويله من بعض PHP في منتدى الموقع الرسمي، فنحن نحفظه باسم json.asp ونلصق الكود:

انسخ رمز الكود كما يلي:

Response.Charset=utf-8

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

"فئة JSONClass."

قم بتحويل نتيجة تنفيذ عبارة التحديد إلى JSON

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

ClassJSONClass

'حدد سمات الفصل، الافتراضي هو خاص

Dim SqlString ' يستخدم لتعيين التحديد

Dim JSON 'اسم كائن JSON الذي تم إرجاعه

Dim DBConnection 'كائن الاتصال بقاعدة البيانات

'الطرق العامة التي يمكن استدعاؤها خارجيًا

الوظيفة العامة GetJSON()

روبية خافتة

عودة خافتة

خافت أنا

سجل واحد خافت

'الحصول على البيانات

تعيين Rs = Server.CreateObject (ADODB.Recordset)

Rs.open SqlString،DBConnection،1،1

إذا كانت الصفحة<> إذن

صفحة = سينت (صفحة)

إذا كانت الصفحة <1 ثم الصفحة = 1

إذا كان epage>rs.pagecount ثم epage=rs.pagecount

آخر

الصفحة = 1

نهاية إذا

rs.pagesize = الصفوف

rs.absolutepage = epage

"إنشاء سلسلة JSON

إذا كان Rs.eof=خطأ وRs.Bof=خطأ إذن

returnStr={ الإجمالي: & rs.pagecount &، الصفحة: & الصفحة &، السجلات: & rs.recordcount &، الصفوف:[

لـ 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 & ]}

نهاية إذا

روبية قريبة

تعيين روبية = لا شيء

GetJSON=returnStr

وظيفة النهاية

"طريقة خاصة، تستخدم في الفصل."

فحص الوظيفة الخاصة ()

وظيفة النهاية

نهاية الفصل

2. قم بإنشاء ملف asp الذي يعرض البيانات، مثل: list.asp، ويكون الكود كما يلي

انسخ رمز الكود كما يلي:

صفحة خافتة، صفوف، سيدكس، سورد

page = request.QueryString(page) 'page

الصفوف = request.QueryString(rows) 'pagesize

sidx = request.QueryString(sidx) 'الطلب حسب ؟؟

الترتيب = request.QueryString (الفرز)

إذا كانت الصفحة = ثم الصفحة = 1 النهاية إذا

إذا كانت الصفوف = ثم الصفوف = 10 تنتهي إذا

إذا كان sidx = ثم sidx = نهاية المعرف إذا

إذا sord = ثم sord = asc end if

خافت strSearchOn، strField، strFieldData، strSearchOper، strWhere

strSearchOn = طلب(_search)

إذا (strSearchOn = صحيح) ثم

strField = طلب (حقل البحث)

إذا (strField = id أو strField = Title أو strField = NickName) إذن

strFieldData = طلب (سلسلة البحث)

strSearchOper = طلب(searchOper)

"أفعل أين."

strWhere = أين & strField

حدد حالة strSearchOper

الحالة bw : 'ابدأ بـ

strFieldData = strFieldData &٪

strWhere = strWhere & LIKE ' & strFieldData & '

الحالة المعادلة: "متساوية".