تطبيق ASP القوي ليس في PHP. بالأمس ، اشتكى صديقي من أن موقع مواهبه كان بطيئًا في القراءة ، لذلك ساعدته في استخدام جزء التطبيق من ASP لقراءة الجزء الأكثر في الوقت المناسب من ASP.
ستؤسس وظيفة getCache تلقائيًا ذاكرة التخزين المؤقت المطلوبة.
وظيفة getCache (الاسم ، isreset ، isarr ، timeInfo))
'funsname -أحتاج إلى محتوى ذاكرة التخزين المؤقت ، إليك مروحة يجب إدخالها.
'ISRESET -سواء للتحديث [القيمة: 0 (استنادًا إلى الوقت أو ذاكرة التخزين المؤقت للحكم للتحديث تلقائيًا عندما يكون فارغًا) ، 1 (تحديث نشط)]
"Isarr-سواء كان محتوى ذاكرة التخزين المؤقت عبارة عن بيانات [0 عبارة عن سلسلة ، 1 عبارة عن صفيف]
'TimeInfo-Cach Time ، تكون الوحدة الثانية ، عندما تكون القيمة 0 ، يتم تحديثها فقط عندما تكون ذاكرة التخزين المؤقت فارغة
dim domain = cnzhaopin.com.cn
DIM TEMP_GETCONFIG
dim re_getcache: re_getcache = false
dim temp_isaray_type: temp_isarray_type = false
Dim AppFunsName: AppFunsName = استبدال (استبدال (استبدال (funsname ، (،) ،) ،) ،،،،،،،،،،،،،،،،،،،،،،،،،،،،،،،،،،،،
إذا isarr = 1 ثم temp_isarray_type = true
إذا isReset = 1 re_getCache = true
إذا isReset = 2 ثم
Execute (temp_getConfig = & funsname)
getCache = temp_getConfig
وظيفة الخروج
إنهاء إذا
إذا كان التطبيق (المجال و _ & appfunsname & _time) = و timeInfo <> 0 ثم re_getcache = true
إذا لم يكن re_getcache ثم
إذا temp_isarray_type ثم
إذا لم يكن isarray (التطبيق (المجال و _ & appfunsname)) ثم re_getcache = صحيح
آخر
إذا كان التطبيق (المجال و _ & appfunsname) = ثم re_getcache = صحيح
إنهاء إذا
إنهاء إذا
إذا لم يكن re_getcache و timeInfo <> 0 ثم
إذا كانت int (datingiff (s ، التطبيق (المجال و _ & appfunsname & _time) ، الآن ())> timeInfo ثم re_getcache = true
إنهاء إذا
إذا re_getcache ثم
Execute (temp_getConfig = & funsname)
application.lock
التطبيق (المجال و _ & appfunsname) = temp_getConfig
التطبيق (المجال و _ & appfunsname & _time) = الآن ()
application.unlock
آخر
temp_getconfig = التطبيق (المجال و _ & appfunsname)
إنهاء إذا
getCache = temp_getConfig
وظيفة نهاية
عند استخدامها:
إخراج الوظيفة 3
الإخراج 3 =
تعيين newrs = const.execute (حدد أفضل 60 شركة CompanyName ، comid ، vipdata ، ishot من الشركة حيث isok = 1 و vipqx> 60 و vipqx <300 و VIP = 1 و comp that comid من الوظائف حيث ZT <> 1) ترتيب NewID ())
افعل بينما لا newrs.eof
Output3 = Output3 & ............
newrs.movenext
حلقة
newrs.close
تعيين أخبار = لا شيء
وظيفة نهاية
استجابة. write getCache (output3 ″ ، 0،0،3600)