สำหรับบทบาทของการแคชฉันไม่จำเป็นต้องพูดมากขึ้น บทบาทของมันชัดเจนมากโดยเฉพาะอย่างยิ่งสำหรับเว็บไซต์ที่มีข้อมูลจำนวนมากหรือหน้าฐานข้อมูลเต็มรูปแบบ สามารถใช้ประโยชน์จากทรัพยากรหน่วยความจำของโฮสต์ได้อย่างรวดเร็วเร่งประสิทธิภาพการดำเนินการของ ASP และลดภาระบนเซิร์ฟเวอร์ ดงวังเป็นสิ่งที่โดดเด่นที่สุดในเรื่องนี้ ตัวอย่างเช่นรุ่น DVBBS7.1.0 ปัจจุบันมันได้ก้าวไปอีกขั้นในการใช้แคช การดำเนินงานส่วนใหญ่ในสำนักงานด้านหน้าและด้านหลังเกี่ยวข้องกับแคชและตอนนี้ Dongwang ใช้คลาสแคชของ Micheng Renzi รายการต่อไปนี้คือคลาสแคช ASP ที่เขียนโดย Masters สามคนของ Dongwang
เขียนโดยนกไม้
การคัดลอกรหัสมีดังนี้:
-
＇คลาส vbscache
-
'แอตทริบิวต์ใช้ได้ไม่ว่าจะมีให้เลือกก่อนที่จะรับค่า
＇ชื่อแอตทริบิวต์ชื่อแคชกำหนดค่าหลังจากสร้างวัตถุใหม่
'วิธีเพิ่ม (ค่า, เวลาหมดอายุ), ตั้งค่าเนื้อหาแคช
'ค่าแอตทริบิวต์ส่งคืนเนื้อหาแคช
'แอตทริบิวต์ที่ไม่ได้ตั้งค่าไม่ว่าค่าจะไม่ถูกตั้งค่า
'วิธีการทำหน่วยความจำฟรี, ทดสอบ
'เมธอดเท่ากับ (ตัวแปร 1) ตรวจสอบว่าค่าแคชนั้นเหมือนกับตัวแปร 1
'วิธีการหมดอายุ (เวลา) แก้ไขการหมดอายุเป็นครั้งคราว
＇Wood Bird 2002.12.24
＇http://www.aspsky.net/
-
classcache
เนื้อหาส่วนตัว
เวลาส่วนตัว
ชื่อแอปพลิเคชัน PrivateExpireTimename'expiration Time
Privatecachename'Cache ชื่อแอปพลิเคชันเนื้อหา
PrivatePath＇uri
Privatesubclass_initialize ()
path = request.serverVariables ("url")
PATH = ซ้าย (PATH, InstrEv (Path, "/"))
enddub
Privatesubclass_terminate ()
enddub
publicpropertygetblempty
． มันว่างเปล่า
Ifsempty (OBJ) แล้ว
BLEMPTY = TRUE
อื่น
BLEMPY = FALSE
endif
ปลายทาง
publicpropertygetValid
'ไม่ว่าจะพร้อมใช้งาน (หมดอายุ)
ifsempty (OBJ) หรือ NOTISDATE (หมดอายุ) จากนั้น
ถูกต้อง = เท็จ
elseifcdate (หมดอายุ) <Nowthen
ถูกต้อง = เท็จ
อื่น
ถูกต้อง = จริง
endif
ปลายทาง
PublicPropertyletName (STR)
． ตั้งชื่อแคช
cachename = str & path
obj = แอปพลิเคชัน (cachename)
ExpireTimeName = Str & "Expires" & Path
EXPIRETIME = Application (ExpireTimename)
ปลายทาง
PublicPropertyLetexpires (TM)
'รีเซ็ตเวลาหมดอายุ
Expiretime = TM
application.lock
แอปพลิเคชัน (ExpireTimEname) = หมดอายุ
application.unlock
ปลายทาง
Publicsubadd (var, expire)
'งานที่มอบหมาย
ifsempty (var) ornotisdate (หมดอายุ) จากนั้น
exitsub
endif
obj = var
หมดอายุ = หมดอายุ
application.lock
แอปพลิเคชัน (cachename) = obj
แอปพลิเคชัน (ExpireTimEname) = หมดอายุ
application.unlock
enddub
publicpropertygetValue