แนะนำ: โปรแกรมปฏิทินที่สร้างโดย ASP โปรแกรมปฏิทิน ASP ที่สร้างขึ้นบริสุทธิ์สามารถสวยงามได้ด้วยตัวเองและมีเพียงสไตล์ CSS ที่ง่ายที่สุดเท่านั้นที่มีอยู่ที่นี่ - - สไตล์ร่างกาย {ขนาดตัวอักษร: 12px; มาร์จิ้น: 20px 0 0 20px; Padding: 0} tr, td {text-allign: center;} /style % - - - -
เทมเพลตคลาส
m_filename ส่วนตัว, m_root, m_unknowns, m_lasterror, m_haltonerr
m_valuelist ส่วนตัว, m_blocklist
m_regexp ส่วนตัว
คลาสย่อย class_initialize
ตั้งค่า m_valuelist = createObject (scripting.dictionary)
ตั้งค่า m_blocklist = createObject (scripting.dictionary)
ตั้งค่า m_regexp = ใหม่ regexp
m_regexp.ignorecase = true
m_regexp.global = true
m_filename =
m_root =
m_unknowns = ลบ
m_lasterror =
m_haltonerr = true
สิ้นสุดย่อย
คลาสย่อย class_terminate
ตั้งค่า m_regexp = ไม่มีอะไร
ตั้งค่า m_blockmatches = ไม่มีอะไร
ตั้งค่า m_valuematches = ไม่มีอะไร
สิ้นสุดย่อย
ทรัพย์สินสาธารณะรับ classname ()
className = เทมเพลต
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะรับเวอร์ชัน ()
เวอร์ชัน = 1.0
จุดสิ้นสุดของทรัพย์สิน
ฟังก์ชั่นส่วนตัวโหลดไฟล์ (byval chartype)
ชื่อไฟล์สลัว, fso, hndfile
ชื่อไฟล์ = m_root
ถ้าถูกต้อง (ชื่อไฟล์ 1) <>/ และขวา (ชื่อไฟล์, 1) <>/ จากนั้นชื่อไฟล์ = ชื่อไฟล์ &///
filename = server.mappath (ชื่อไฟล์ & m_filename)
ตั้งค่า streamObject = server.createObject (adodb.stream)
streamobject.type = 1
streamobject.mode = 3
streamobject.open
StreamObject.position = 0
streamobject.loadfromfile ชื่อไฟล์
StreamObject.position = 0
streamobject.type = 2
streamobject.charset = chartType
loadfile = streamobject.readText ()
ถ้า loadfile = จากนั้นอาบน้ำ (0x11 <br> ไม่สามารถโหลดไฟล์ & m_filename &!)
ฟังก์ชันสิ้นสุด
ห้องอาบน้ำย่อยส่วนตัว (Byval MSG)
m_lasterror = msg
response.write <span style = font-size: 12px; color: red> error id: & msg & </span>
ถ้า m_haltonerr แล้วตอบกลับ
สิ้นสุดย่อย
sub สาธารณะ set_root (ค่า byval)
m_root = ค่า
สิ้นสุดย่อย
ฟังก์ชั่นสาธารณะ get_root ()
get_root = m_root
ฟังก์ชันสิ้นสุด
ทรัพย์สินสาธารณะให้รูท (ค่า byval)
set_root (ค่า)
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะรับรูท ()
root = m_root
จุดสิ้นสุดของทรัพย์สิน
Sub Public SET_FILE (Byval Handle, Byval Filename, Byval Chartype)
m_filename = ชื่อไฟล์
m_blocklist.add handle, loadfile (chartype)
สิ้นสุดย่อย
ฟังก์ชั่นสาธารณะ get_file ()
get_file = m_filename
ฟังก์ชันสิ้นสุด
sub สาธารณะ set_unknowns (Byval unknowns)
m_unknowns = unknowns
สิ้นสุดย่อย
ฟังก์ชั่นสาธารณะ get_unknowns ()
get_unknowns = m_unknowns
ฟังก์ชันสิ้นสุด
ทรัพย์สินสาธารณะให้ unknowns (ไม่ทราบ byval)
m_unknowns = ไม่ทราบ
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะได้รับสิ่งที่ไม่รู้จัก ()
unknowns = m_unknowns
จุดสิ้นสุดของทรัพย์สิน
sub สาธารณะ set_block (byval parent, byval blocktag, ชื่อ byval)
การจับคู่สลัว
m_regexp.pattern = <!-/s+เริ่ม & blocktag & /s+ -->( [/s/s.lame*)
ถ้าไม่ใช่ m_blocklist.exists (ผู้ปกครอง) จากนั้นอาบน้ำ (0x12 <br> แท็กบล็อกที่ไม่ได้กำหนดและพาเรนต์ &!)
ตั้งค่าการจับคู่ = m_regexp.execute (m_blocklist.item (parent))
สำหรับการแข่งขันแต่ละนัดในการแข่งขัน
m_blocklist.add blocktag, match.submatches (0)
m_blocklist.item (parent) = แทนที่ (m_blocklist.item (parent), match.value, {& name &})
ต่อไป
ตั้งค่าการจับคู่ = ไม่มีอะไร
สิ้นสุดย่อย
sub สาธารณะ set_var (ชื่อ byval, ค่า byval, byval tupt)
หรี่
ถ้า isnull (value) จากนั้น val = else val = value
ถ้า m_valuelist.exists (ชื่อ) แล้ว
ถ้าผนวกแล้ว m_valuelist.item (ชื่อ) = m_valuelist.item (ชื่อ) & val _
else m_valuelist.item (ชื่อ) = val
อื่น
m_valuelist.add ชื่อค่า
สิ้นสุดถ้า
สิ้นสุดย่อย
Public Sub UNSET_VAR (ชื่อ byval)
ถ้า m_valuelist.exists (ชื่อ) แล้ว m_valuelist.remove (ชื่อ)
สิ้นสุดย่อย
ฟังก์ชั่นส่วนตัว InstanceValue (byval blocktag)
คีย์สลัวฉัน
InstanceValue = m_blocklist.item (blocktag)
keys = m_valuelist.keys
สำหรับ i = 0 ถึง m_valuelist.count-1
InstanceValue = แทนที่ (InstanceValue, {& Keys (I) &}, m_valuelist.item (keys (i))))
ต่อไป
ฟังก์ชันสิ้นสุด
Public Sub Parse (ชื่อ Byval, Byval BlockTag, Byval Append)
ถ้าไม่ใช่ m_blocklist.exists (blocktag) จากนั้นอาบน้ำ (0x12 <br> แท็กบล็อกที่ไม่ได้กำหนดและพาเรนต์ &!)
ถ้า m_valuelist.exists (ชื่อ) แล้ว
ถ้าผนวกแล้ว m_valuelist.item (ชื่อ) = m_valuelist.item (ชื่อ) & instanceValue (blocktag) _
อื่น ๆ m_valuelist.item (ชื่อ) = instanceValue (blocktag)
อื่น
m_valuelist.add ชื่อ, instanceValue (blocktag)
สิ้นสุดถ้า
สิ้นสุดย่อย
ฟังก์ชั่นส่วนตัวเสร็จสิ้น (เนื้อหา byval)
เลือกกรณี m_unknowns
Case Keep Finish = เนื้อหา
เคสลบ
m_regexp.pattern =/{[^/t/r/n}]+/}
เสร็จสิ้น = m_regexp.replace (เนื้อหา)
ความคิดเห็นกรณี
m_regexp.pattern =/{([^/t/r/n}]+)/}
เสร็จสิ้น = m_regexp.replace (เนื้อหา, <!-ตัวแปรเทมเพลต $ 1 ไม่ได้กำหนด->)
กรณีอื่นเสร็จ = เนื้อหา
สิ้นสุดเลือก
ฟังก์ชันสิ้นสุด
เอาท์พุทย่อยสาธารณะ (ชื่อ Byval)
ถ้าไม่ใช่ m_valuelist.exists (ชื่อ) จากนั้นอาบน้ำ (0x13 <br> ไม่พบแท็ก & ชื่อ &!)
Response.write (เสร็จสิ้น (m_valuelist.item (ชื่อ)))))
สิ้นสุดย่อย
ชั้นเรียนจบ
แบ่งปัน: การใช้วัตถุคำขอ ASP ASP ส่วนใหญ่มีวัตถุในตัวห้าวัตถุ: เซิร์ฟเวอร์การร้องขอการตอบสนองแอปพลิเคชันและเซสชัน ทีนี้มาอธิบายพวกเขาโดยให้ตัวอย่าง อย่างแรกคือวัตถุตอบสนองที่ใช้กันมากที่สุด ตัวอย่างที่ 1 การใช้การตอบสนองต่อเอกสาร HTML ที่ส่งออกในหน้าเว็บคุณสามารถป้อนรุ่นข้างต้นใน FrontPage Editor หรือในบอร์ดการเขียนสมุดบันทึกและนักเขียนคนอื่น ๆ