Onlytiancai [العمل الأصلي]
<!--من أجل تحسين أداء برامج Asp، غالبًا ما يقوم الأشخاص بتخزين البيانات المستخدمة بشكل متكرر في التطبيق،
ولكن كيف يمكنك تحديث التطبيق بعد تعديل قاعدة البيانات؟ توفر لك هذه المقالة حلاً معقولاً.
إذا كان لدى أي شخص خوارزمية أفضل، يرجى مناقشتها في الموضوع، شكرًا لك
-->
<%
فئة wawa_app_getrows
الوظيفة العامة wawa_Get_List(strapp,strconn,strsql)
'***************************************
'الوظيفة: استخراج المصفوفة من التطبيق إذا كانت البيانات الموجودة في التطبيق فارغة، فقم باستدعاء الدالة wawa_Get_Rows() لتعيين قيمة للتطبيق.
، يمكنك مسح قيمة التطبيق المقابلة لإفراغها عند تعديل قاعدة البيانات، بحيث يتم تحديث التطبيق تلقائيًا عند التصفح.
إذا قمت بتحديث قاعدة البيانات (على سبيل المثال، إضافة أو تعديل أو حذف البيانات)، فقم بإزالة متغيرات التطبيق المقابلة بعد تعديل قاعدة البيانات،
'استخدم العبارة التالية لمسح قيمة التطبيق المحددة، حيث تكون معلمة Strapp هي اسم متغير التطبيق المراد إزالته
' application.Contents.Remove (حزام)
" www.downcodes.com
'***************************************
خافت واوا
واوا = التطبيق (حزام)
إذا كان فارغا (واوا) ثم
wawa = wawa_Get_Rows(strconn,strsql)
التطبيق (حزام) = واوا
نهاية إذا
wawa_Get_List = wawa
الوظيفة النهائية
الوظيفة العامة wawa_Get_Rows(strconn,strsql)
'***************************************
'الوظيفة: قراءة السجلات من قاعدة البيانات واستخدام طريقة getrows
'احفظ السجل في مصفوفة
'
'***************************************
خافت rs_wawa
تعيين rs_wawa = CreateObject("ADODB.Recordset")
rs_wawa.Open strsql,strconn,,1,1
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.إغلاق
اضبط rs_wawa = لا شيء
وظيفة النهاية
نهاية الفصل
%>
<!-- إليك مثال لتوضيح كيفية استخدام الفئة أعلاه -->
<%
خافت ستراب، strsql، strconn
Strapp = "xinwendongtai"
strsql = "حدد أعلى 5 معرفات، العنوان من wen حيث lei=161 ترتيبًا حسب المعرف"
strconn="Driver={sql server};server=192.168.0.110;database=new;uid=sa;pwd=sa;"
اضبط wawa_temp=new wawa_app_getrows
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<عرض الجدول = "100%" الحدود = "0" تباعد الخلايا = "1">
<% إذا كان ubound(arr_xinwendongtai)<>0 ثم %>
<% for i=0 to ubound(arr_xinwendongtai,2)-1 %>
<تر>
<td><a href="view.asp?id=<%= arr_xinwendongtai(0,i) %>"><%= arr_xinwendongtai(1,i) %></a></td>
</tr>
<% التالي %>
<%آخر%>
<تر>
<td>لا توجد أخبار بعد</td>
</tr>
<% نهاية إذا %>
</الجدول>