Direkomendasikan: Program kalender yang dibuat oleh ASP Program kalender yang dibuat ASP murni dapat dipercantik dengan sendirinya, dan hanya gaya CSS paling sederhana yang tersedia di sini. . . Style Body {font-size: 12px; margin: 20px 0 0 20px; padding: 0} tr, td {text-align: center;} /style % '================================================================================================= ==================================================================================================== ==================================================================================================== ====================================================================================================
Template kelas
Private m_filename, m_root, m_unknowns, m_lasterror, m_haltonerr
Private m_valuelist, m_blocklist
Private m_regexp
Private Sub Class_initialize
Set m_valuelist = createObject (scripting.dictionary)
Set m_blocklist = createObject (scripting.dictionary)
atur m_regexp = regexp baru
m_regexp.ignorecase = true
m_regexp.global = true
m_filename =
m_root =.
m_unknowns = hapus
m_lasterror =
m_haltonerr = true
Akhir sub
Sub Class_Terminate pribadi
Atur m_regexp = tidak ada
Atur m_blockmatches = tidak ada
Atur m_valueMatches = tidak ada
Akhir sub
Properti Publik Dapatkan ClassName ()
ClassName = template
Akhir properti
Properti Publik Get Version ()
Versi = 1.0
Akhir properti
Fungsi Pribadi LoadFile (ByVal Chartype)
Nama file redup, fso, hndfile
Nama file = m_root
Jika benar (nama file, 1) <>/ dan kanan (nama file, 1) <>/ lalu nama file = nama file &/
FileName = server.mappath (nama file & m_filename)
Set streamObject = server.CreateObject (adodb.stream)
StreamObject.type = 1
StreamObject.mode = 3
StreamObject.open
StreamObject.position = 0
StreamObject.LoadFromFile nama file
StreamObject.position = 0
StreamObject.type = 2
StreamObject.charset = chartType
LoadFile = streamObject.readText ()
Jika loadFile = kemudian showerror (0x11 <br> tidak dapat memuat file & m_filename &!)
Fungsi akhir
Private Sub Showerror (Byval MSG)
m_lasterror = msg
Response.write <span style = font-size: 12px; Color: Red> kesalahan ID: & msg & </span>
Jika m_haltonerr maka respons.end
Akhir sub
Sub set_root publik (nilai BYVAL)
m_root = nilai
Akhir sub
Fungsi publik get_root ()
get_root = m_root
Fungsi akhir
Properti Publik Let Root (Nilai Byval)
set_root (nilai)
Akhir properti
Properti publik mendapatkan root ()
Root = m_root
Akhir properti
Sub Set_File Publik (Pegangan ByVal, nama file Byval, ByVal Chartype)
m_filename = nama file
m_blocklist.add handle, loadfile (chartype)
Akhir sub
Fungsi publik get_file ()
get_file = m_filename
Fungsi akhir
Public sub set_unknowns (Byval tidak diketahui)
m_unknowns = tidak diketahui
Akhir sub
Fungsi publik get_unknowns ()
get_unknowns = m_unknowns
Fungsi akhir
Properti Publik Biarkan Tidak Diketahui (Byval Tidak Diketahui)
m_unknowns = tidak diketahui
Akhir properti
Properti publik tidak diketahui ()
Tidak diketahui = m_unknowns
Akhir properti
Sub Set_Block publik (ByVal Parent, Byval Blocktag, Byval Name)
Matches redup
m_regexp.pattern = <!-/s+begin & blocktag & /s+-- >(ace/s/s. media*)< !--/s+end & blocktag &/s+->
Jika tidak m_blocklist.exists (Parent) maka showerror (0x12 <br> Tag blok & induk & orang tua yang tidak ditentukan &!)
Set kecocokan = m_regexp.execute (m_blocklist.item (Parent))
Untuk setiap pertandingan dalam pertandingan
m_blocklist.add blocktag, match.submatches (0)
m_blocklist.item (Parent) = ganti (m_blocklist.item (Parent), match.value, {& name &})
Berikutnya
Setel kecocokan = tidak ada
Akhir sub
Sub set_var publik (nama BYVAL, nilai BYVAL, ByVal append)
Redup val
If isNull (value) maka val = else val = value
Jika m_valuelist.exists (nama) lalu
Jika ditambahkan maka m_valuelist.item (name) = m_valuelist.item (name) & val _
Lain m_valuelist.item (name) = val
Kalau tidak
m_valuelist.add name, nilai
Akhiri jika
Akhir sub
Sub UNSET_VAR publik (nama BYVAL)
Jika m_valuelist.exists (name) maka m_valuelist.remove (name)
Akhir sub
Fungsi Pribadi Instancevalue (Byval Blocktag)
Kunci redup, i
Instancevalue = m_blocklist.item (blocktag)
kunci = m_valuelist.keys
Untuk i = 0 ke m_valuelist.count-1
Instancevalue = ganti (instancevalue, {& keys (i) &}, m_valuelist.item (keys (i))))
Berikutnya
Fungsi akhir
Sub Parse Publik (Nama Byval, Byval Blocktag, Byval Append)
Jika tidak m_blocklist.exists (blocktag) maka showerror (0x12 <br> Tag blok & induk & orang tua yang tidak ditentukan &!)
Jika m_valuelist.exists (nama) lalu
Jika ditambahkan maka m_valuelist.item (name) = m_valuelist.item (name) & instancevalue (blocktag) _
Else m_valuelist.item (name) = instancevalue (blocktag)
Kalau tidak
m_valuelist.add name, instancevalue (blocktag)
Akhiri jika
Akhir sub
Finish Fungsi Pribadi (Konten ByVal)
Pilih case m_unknowns
Case tetap finish = konten
Case hapus
m_regexp.pattern =/{[^/t/r/n}]+/}
finish = m_regexp.replace (konten,)
Komentar kasus
m_regexp.pattern =/{([^/t/r/n}]+)/}
finish = m_regexp.replace (konten, <!-variabel template $ 1 tidak ditentukan->)
Case lagi selesai = konten
Akhiri Pilih
Fungsi akhir
Sub Output Publik (Nama ByVal)
Jika tidak m_valuelist.exists (name) kemudian showerror (0x13 <br> tidak dapat menemukan tag & nama &!)
Response.write (finish (m_valuelist.item (name)))
Akhir sub
Kelas akhir
Bagikan: Penggunaan objek permintaan ASP ASP terutama memiliki lima objek bawaan: server, permintaan, respons, aplikasi, dan sesi. Sekarang mari kita jelaskan dengan memberikan contoh. Pertama adalah objek respons yang paling umum digunakan. Contoh 1 Menggunakan respons terhadap dokumen HTML output di halaman web Anda dapat memasukkan generasi di atas di editor frontpage, atau di papan tulis, notepads dan penulis lainnya.