onlytiancai [karya asli]
<!--Untuk meningkatkan kinerja program Asp, orang sering menyimpan data yang sering digunakan dalam Aplikasi,
Namun bagaimana Anda memperbarui aplikasi setelah Anda memodifikasi database? Artikel ini memberi Anda solusi yang masuk akal.
Jika ada yang punya algoritma yang lebih baik, silakan diskusikan di thread, terima kasih
-->
<%
Kelas wawa_app_getrows
Fungsi publik wawa_Get_List(strapp,strconn,strsql)
'***************************************
'Fungsi: Ekstrak array dari Aplikasi. Jika data dalam aplikasi kosong, panggil fungsi wawa_Get_Rows() untuk memberikan nilai pada aplikasi.
' , Anda dapat mengosongkan nilai aplikasi terkait saat memodifikasi database, sehingga aplikasi akan diperbarui secara otomatis saat menjelajah.
' Jika Anda memperbarui database (misalnya, menambah, mengubah, atau menghapus data) lalu menghapus variabel aplikasi terkait setelah memodifikasi database,
'Gunakan pernyataan berikut untuk menghapus nilai aplikasi yang ditentukan, di mana parameter strapp adalah nama variabel aplikasi yang akan dihapus
' application.Contents.Remove(strapp)
' www.downcodes.com
'***************************************
Redupkan wawa
wawa = Aplikasi(tali pengikat)
Jika kosong (wawa) Lalu
wawa = wawa_Get_Rows(strconn,strsql)
Aplikasi(tali) = wawa
Akhiri Jika
wawa_Get_List = wawa
Fungsi Akhir
Fungsi publik wawa_Get_Rows(strconn,strsql)
'***************************************
'Fungsi: membaca catatan dari database dan menggunakan metode getrows
'Simpan catatan ke dalam array
'
'***************************************
Redupkan rs_wawa
Setel rs_wawa = CreateObject("ADODB.Recordset")
rs_wawa.Buka strsql,strconn,,1,1
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.Tutup
Tetapkan rs_wawa = Tidak ada
Fungsi Akhir
Kelas Akhir
%>
<!-- Berikut adalah contoh untuk mengilustrasikan cara menggunakan kelas di atas -->
<%
tali redup,strsql,strconn
strapp="xinwendongtai"
strsql="pilih 5 id teratas, judul dari wen di mana lei=161 pesan berdasarkan id desc"
strconn="Driver={sql server};server=192.168.0.110;database=baru;uid=sa;pwd=sa;"
atur wawa_temp=wawa_app_getrows baru
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<lebar tabel = "100%" perbatasan = "0" spasi sel = "1">
<% Jika ubound(arr_xinwendongtai)<>0 Lalu %>
<% untuk i=0 hingga ubound(arr_xinwendongtai,2)-1 %>
<tr>
<td><a href="view.asp?id=<%= arr_xinwendongtai(0,i) %>"><%= arr_xinwendongtai(1,i) %></a></td>
</tr>
<% berikutnya %>
<%Lain%>
<tr>
<td>Belum ada kabar</td>
</tr>
<% Selesai Jika %>
</tabel>