Nenek, kelas ASP sangat sulit dipelajari. Ini terlihat sederhana, tetapi ketika itu benar -benar berguna, kode -kode di internet semua dilaporkan secara tidak benar! Lai
Depresi, nikmati! Lai Sudah 3 hari, dan akhirnya men -debug itu. Saya tidak berani menikmatinya sendiri. Saya akan mengeluarkannya dan membagikannya dengan Anda!
Karya ini menjadi milik Peng Peng, Webmaster China www.zzcn.net. Anda tidak diizinkan untuk menghapus hak cipta saat menyalinnya, jika tidak, seluruh keluarga akan mati! Lai Lai Lai hehe. . :)
Salinan kode adalah sebagai berikut:
<%@Language = "vbscript" codepage = "936"%>
<! Doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<%
'Peng Perd Telie Kategori Berita yang Diproduksi olehnya [Webmaster China] http: //www.zzcn.netqq: 76526211
Classnewsclass
Privatezzcn, conn, cnnstr
privatetitle_p, id_p
'Inisialisasi objek
Privatesubclass_initialize ()
'Response.write "Inisialisasi <br>"
CallNewSconStart ()
Endsub
'Destructor, dieksekusi secara otomatis saat merilis objek menggunakan setNothing
Privatesubclass_terminate ()
'Response.write "Acara Objek Rilis: Class_Terminate <br>"
CallNewSconnend ()
endsub
'Fungsi tautan basis data
Privatesubnewsconnstart ()
SetConn = server.CreateObject ("adodb.connection")
cnnstr = "driver = {microsoft accessDriver (*. mdb)};"
cnnstr = cnstr & "dbq =" & server.mappath ("admin/watavase/%29to-dream.mdb")
conn.opencnnstr
'Response.writecnnstr & "<br>"
Endsub
Privatesubnewsconnend ()
Conn.Close
setConn = tidak ada
Endsub
'==========================================================
'Fungsi nama getRs ()
'Dapatkan set rekaman untuk kolom tertentu
'Nama kolom Lanmu
'Berapa banyak catatan per halaman k
'Halaman mana
'Berapa banyak catatan yang dan
'Tanggal RIQI1 dalam urutan terbalik pada tanggal 0 adalah pesanan naik
'==========================================================
PublicFunctionGetRS (Byvallanmu, Byvalk, Byvalpage, Byvaln, Byvalriqi)
sql = "SELECT*fromisticLeClassWhereClassName = '" & lanmu & "' ordybyclassiddesc"