Direkomendasikan: Kode Template ASP Templat 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
Saat menulis program basis data ASP, kami biasanya menggunakan pernyataan SQL, dan ketika menambahkan dan memperbarui data, kami biasanya menggunakan metode berikut: masukkan ke dalam pesan (incept, pengirim, judul, konten, waktu kirim, bendera, issend) nilai -nilai ('& incept (i),', '& will lebih banyak. untuk memodifikasi dan menemukan kesalahan. Setelah menggunakan kelas SQL ini, dapat disederhanakan dan lebih mudah untuk memeriksa kesalahan. Menambahkan nama bidang dan nilai bidang melalui fungsi AddField dari kelas dapat dengan mudah memasukkan nama bidang dan nilai bidang ke dalam pernyataan SQL dan kemudian mengembalikan pernyataan SQL.
Mari kita lihat kode kelas ini:
＜%
kelas sqlstring
'*************************************
'Definisi variabel
'*************************************
'Stablename --- nama tabel
'isqlType --- SQL Tipe Pernyataan: 0-Add, 1-update, 2-delete, 3-Query
'SWERE --- Kondisi
'SORDER --- Urutkan oleh
'SSQL ---- Nilai
Private Stablename, isqlType, swhere, sherder, ssql
'*************************************
'Inisialisasi Kelas/Akhir
'*************************************
Private sub class_initialize ()
stablename =
isqlType = 0
swhere =
SURDER =
ssql =
Akhir sub
Private Sub Class_Terminate ()
Akhir sub
'*************************************
'milik
'*************************************
'Atur properti nama tabel
Properti Publik Biarkan Tablename (Nilai)
stablename = nilai
Akhir properti
'Tetapkan kondisinya
Properti Publik Let Where (Nilai)
swhere = nilai
Akhir properti
'Atur metode penyortiran
Properti Publik Let Order (Nilai)
SURDER = Nilai
Akhir properti
'Atur jenis pernyataan kueri
Properti Publik Biarkan SQLType (Nilai)
isqlType = nilai
Pilih kasus isqlType
Kasus 0
SSQL = Sisipkan ke Nilai#0 (#1) (#2)
Kasus 1
SSQL = UPDATE #0 Set #1 = #2
Kasus 2
SSQL = Hapus dari #0
Kasus 3
SSQL = Pilih #1 dari #0
Akhiri Pilih
Akhir properti
'*************************************
'fungsi
'*************************************
'Tambahkan bidang (nama bidang, nilai bidang)
Sub Addfield Publik (SFieldName, SValue)
Pilih kasus isqlType
Kasus 0
ssql = ganti (ssql,#1, sfieldname &,#1)
ssql = ganti (ssql,#2, '& sfieldname &',#2)
Kasus 1
ssql = ganti (ssql,#1, sfieldname)
ssql = ganti (ssql,#2, '& sfieldname &',#1 =#2)
Kasus 3
ssql = ganti (ssql,#1, sfieldname &,#1)
Akhiri Pilih
Akhir sub
'Kembalikan pernyataan SQL
Fungsi publik returnsql ()
ssql = ganti (ssql,#0, stablename)
Pilih kasus isqlType
Kasus 0
ssql = ganti (ssql ,,#1,)
ssql = ganti (ssql ,,#2,)
Kasus 1
ssql = ganti (ssql ,,#1 =#2,)
Kasus 3
ssql = ganti (ssql ,,#1,)
Akhiri Pilih
Jika swhere ＜＞ lalu
ssql = ssql & di mana & swhere
akhiri jika
Jika SURDER ＜＞ Lalu
ssql = ssql & order by & sherder
akhiri jika
Returnsql = ssql
Fungsi akhir
'Pernyataan yang jelas
Sub Clear Publik ()
stablename =
isqlType = 0
swhere =
SURDER =
ssql =
Akhir sub
kelas akhir
%＞
Bagaimana menggunakan:
Contoh: Masukkan ke dalam pesan (awal, pengirim, judul, konten, waktu kirim, bendera, issend) nilai ('& incept (i) &', '& magryName &', '& title &', '& message &', now (), 0,1)
Atur A = SQLSTRING BARU 'Buat Objek Kelas
a.tablename = pesan 'Atur nama tabel sebagai pesan
a.sqltype = 0 'atur tipe kueri untuk menambahkan catatan
A.addfield incept, incept (i)
A.Addfield pengirim, nama anggota
judul A.Addfield, nama anggota
A.Addfield pengirim, judul
konten A.addfield, pesan
A.Addfield Sendtime, SendTime ()
A.Addfield Flag, 0
A.Addfield Issend, 1
Response.write A.Returnsql
atur a = tidak ada
Bagikan: Program Kalender yang Diproduksi 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 % '================================================================================================= ==================================================================================================== ==================================================================================================== ====================================================================================================