Aplikasi kuat ASP tidak ada dalam PHP. Kemarin, teman saya mengeluh bahwa situs web bakatnya lambat dibaca, jadi saya membantunya menggunakan bagian aplikasi ASP untuk membaca bagian yang lebih tepat waktu dari ASP.
Fungsi GetCache akan secara otomatis membuat cache yang diperlukan.
Fungsi getCache (FUNNAME, ISRESET, ISARR, TimeInfo))
'Funsname -Saya perlu menembus konten, berikut adalah penggemar yang perlu dimasukkan.
'isReset -Apa memperbarui [nilai: 0 (berdasarkan waktu atau cache penilaian untuk memperbarui secara otomatis saat kosong), 1 (pembaruan aktif)]
'Isarr-apakah konten cache adalah data [0 adalah string, 1 adalah array]
'TimeInfo-Cache Update Time, unit berada di urutan kedua, saat nilainya 0, hanya diperbarui saat cache kosong
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 = ganti (ganti (ganti (funsname, (,),),) ,,,,,,,,
Jika isarr = 1 maka temp_isarray_type = true
Jika isReset = 1 RE_GEGCACHE = true
Jika isReset = 2 lalu
Execute (temp_getconfig = & funsname)
getCache = temp_getconfig
Fungsi keluar
Akhiri jika
Jika aplikasi (domain & _ & appfunsname & _time) = dan timeInfo <> 0 lalu re_getcache = true
Jika tidak re_getCache maka
Jika temp_isarray_type maka
Jika bukan isArray (Aplikasi (Domain & _ & AppFunSname)) maka re_getCache = true
Kalau tidak
Jika aplikasi (domain & _ & appfunsname) = lalu re_getcache = true
Akhiri jika
Akhiri jika
Jika tidak re_getcache dan timeInfo <> 0 lalu
Jika int (Dateff (S, Application (Domain & _ & AppFunSname & _Time), Now ())> TimeInfo kemudian re_getCache = true
Akhiri jika
Jika re_getCache maka
Execute (temp_getconfig = & funsname)
Application.lock
Aplikasi (Domain & _ & AppFunSname) = Temp_GetConfig
Aplikasi (Domain & _ & AppFunSname & _Time) = Now ()
Application.unlock
Kalau tidak
Temp_getconfig = Aplikasi (Domain & _ & AppFunSname)
Akhiri jika
getCache = temp_getconfig
Fungsi akhir
Saat digunakan:
Output fungsi3
output3 =
Setel newrs = const.execute (pilih 60 Top 60 CompanyName, Comid, VIPData, Ishot dari Perusahaan di mana isok = 1 dan VIPQX> 60 dan VIPQX <300 dan VIP = 1 dan comp comid dari pekerjaan di mana zt <> 1) memesan oleh newid ())
lakukan sementara bukan newrs.eof
Output3 = output3 & ............
newrs.movenext
lingkaran
newrs.close
Setel Berita = Tidak Ada
Fungsi akhir
Response.write getCache (output3 ″, 0,0,3600)