تقدم هذه المقالة بشكل أساسي المعلومات ذات الصلة حول طريقة استخدام asp لقراءة وإخراج كود json من قاعدة البيانات، ويمكن للأصدقاء الذين يحتاجون إليها الرجوع إليها.
انسخ رمز الكود كما يلي:وظيفة GetTable (الجدول، أين، الطلب، ترتيب الطلبات، curpage، حجم الصفحات، MiniJson)
'المؤلف: نيغو
'الاستخدام: Response.Write GetTable (اسم جدول الجدول، حيث الشرط، المفتاح الأساسي للطلب (مطلوب)، OrderSort (تصاعدي، تنازلي)، الصفحة الحالية، حجم الصفحة عدد العناصر في كل صفحة، سواء تم إخراج MiniJson بتنسيق miniUI)
'
ديمي، ي، آر إس
إذا OrderSort = ثم OrderSort = asc
إذا أين = ثم أين = تصاعدي
تعيين Rs=Server.CreateObject(adodb.recordset)
إذا curpage> 1 ثم
TmpSql=حدد أ.* من (حدد أعلى & (curpage) * حجم الصفحات & * من & جدول & أين وأين & اطلب حسب & ترتيب & & ترتيب & ) صلة يسار (حدد أعلى & (curpage-1) * حجم الصفحات & * من & الجدول & أين & أين & الترتيب حسب & ترتيب & & ترتيب & ) ب على & ترتيب & = ب & ترتيب & حيث iif(b. & Order & ,'0','1')='. 1'
آخر
TmpSql=حدد أ.* من ( حدد أعلى & (curpage) * حجم الصفحات & * من & جدول & أين & أين & اطلب حسب & ترتيب & & فرز الطلبات & ) a
نهاية إذا
إذا كان حجم الصفحات = 0 ثم TmpSql = حدد * من & Table
Rs.open TmpSql,conn,1,1
RealSize = Rs.recordcount
لـ i=0 إلى Rs.recordcount-1
تمبجسون = تمبجسون & {
لـ j=0 إلى Rs.fields.count-1
TmpJson= TmpJson & &(Rs.fields(j).name) & :
TmpJson= TmpJson & & Rs(j) &
إذا كان j<Rs.fields.count-1 فإن TmpJson= TmpJson & ,
التالي
TmpJson= TmpJson & }
إذا كنت <Rs.recordcount-1 فإن TmpJson= TmpJson & ,
TmpJson= TmpJson & vbcrlf
rs.movenext
التالي
روبية قريبة
إذا MiniJson = 1 إذن
CountSql=اختر العد(& الطلب &) من & الجدول & أين وأين
Rs.open CountSql,Conn,1,1
التهم = روبية (0)
إغلاق
GetTable=ToMiniUi(TmpJson,Counts)
آخر
GetTable=toJson(TmpJson)
نهاية إذا
تعيين روبية = لا شيء
وظيفة النهاية
وظيفة toJson(JsonStr)
toJson=[ & vbcrlf & JsonStr & vbcrlf & ]
وظيفة النهاية
الدالة ToMiniUi(JsonStr,total)
إلىMiniUI={
ToMiniUI=ToMiniUI & المجموع: & الإجمالي & , & vbcrlf
ToMiniUI=ToMiniUI والبيانات: [ & JsonStr
ToMiniUI=ToMiniUI & ]}
وظيفة النهاية
ملاحظة: تم تطوير المعلمة الأخيرة لـ miniUI ويمكن تجاهلها.
ما ورد أعلاه هو محتوى هذه المقالة بالكامل، وآمل أن تنال إعجابكم جميعًا.