แอปพลิเคชันที่ทรงพลังของ ASP ไม่ได้อยู่ใน PHP เมื่อวานนี้เพื่อนของฉันบ่นว่าเว็บไซต์ความสามารถของเขาอ่านช้าดังนั้นฉันจึงช่วยเขาใช้ส่วนแอปพลิเคชันของ ASP เพื่ออ่าน ASP ที่ทันเวลามากขึ้น
ฟังก์ชั่น getCache จะสร้างแคชที่ต้องการโดยอัตโนมัติ
ฟังก์ชั่น getCache (funname, isreset, isarr, timeinfo))
'funsname -ฉันต้องแคชเนื้อหานี่คือพัดลมที่ต้องป้อน
'ISRESET -ไม่ว่าจะเป็นการอัปเดต [ค่า: 0 (ตามเวลาหรือแคชการตัดสินเพื่ออัปเดตโดยอัตโนมัติเมื่อว่างเปล่า), 1 (การอัปเดตที่ใช้งานอยู่)]]
'Isarr- ไม่ว่าเนื้อหาของแคชจะเป็นข้อมูล [0 คือสตริง 1 คืออาร์เรย์]
'เวลาอัปเดต TimeInfo-Cache หน่วยเป็นสองเมื่อค่าคือ 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 แล้ว
ดำเนินการ (temp_getConfig = & funsName)
getCache = temp_getConfig
ฟังก์ชั่นออก
สิ้นสุดถ้า
ถ้าแอปพลิเคชัน (โดเมน & _ & appfunsname & _time) = และ timeinfo <> 0 แล้ว re_getCache = true
ถ้าไม่ re_getCache แล้ว
ถ้า temp_isarray_type แล้ว
ถ้าไม่ใช่ isarray (แอปพลิเคชัน (โดเมน & _ & appfunsName)) แล้ว re_getCache = true
อื่น
ถ้าแอปพลิเคชัน (โดเมน & _ & appfunsName) = จากนั้น re_getCache = true
สิ้นสุดถ้า
สิ้นสุดถ้า
หากไม่ได้ re_getcache และ timeinfo <> 0 แล้ว
ถ้า int (datingiff (s, แอปพลิเคชัน (โดเมน & _ & appfunsname & _time), ตอนนี้ ())> timeinfo จากนั้น re_getCache = true
สิ้นสุดถ้า
ถ้า re_getCache แล้ว
ดำเนินการ (temp_getConfig = & funsName)
application.lock
แอปพลิเคชัน (โดเมน & _ & appfunsName) = temp_getConfig
แอปพลิเคชัน (โดเมน & _ & appfunsname & _time) = ตอนนี้ ()
application.unlock
อื่น
temp_getConfig = แอปพลิเคชัน (โดเมน & _ & appfunsName)
สิ้นสุดถ้า
getCache = temp_getConfig
ฟังก์ชันสิ้นสุด
เมื่อใช้:
ฟังก์ชันเอาต์พุต 3
เอาท์พุท 3 =
ตั้งค่า newrs = const.execute (เลือก Top 60 CompanyName, Comid, Vipdata, Ishot จาก บริษัท ที่ isok = 1 และ vipqx> 60 และ vipqx <300 และ vip = 1 และ comp ที่ comid จากงานที่ zt <> 1) สั่งซื้อโดย newid ())
ทำในขณะที่ไม่ใช่ newrs.eof
output3 = output3 & ............
newrs.movenext
วง
newrs.close
ตั้งค่าข่าว = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
Response.write getCache (output3″, 0,0,3600)