Dalam proyek ASP besar, banyak halaman melibatkan fungsi Page Turn. Jika setiap halaman menulis program yang memutar halaman, pekerjaan tersebut akan mengurangi efisiensi kerja, tidak akan kondusif untuk modularisasi proyek, dan tidak dapat menggunakan kembali kode tersebut. Oleh karena itu, perlu untuk memodulasi fungsi seperti berputar halaman.
Metode Desain:
1. Saat memanggil modul ini, Anda hanya perlu melewati set rekaman dan jumlah catatan yang ditampilkan pada setiap halaman;
2. Anda dapat mengklik tautan untuk membalik halaman, atau Anda dapat langsung memasukkan nomor halaman dan memutar halaman setelah menekan;
3. Jangan pertimbangkan nama file, program dapat berada di halaman saat ini setiap kali berubah.
Setelah memikirkan tiga pertanyaan di atas, Modul Putar Halaman Publik kami dapat dimulai.
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆ Modul Nama: Modul Putar Halaman Publik
'◆ Nama file: turnpage.asp
'◆ Parameter yang masuk: RS_TMP (Set Rekam), Halamanze (Jumlah catatan yang ditampilkan per halaman)
'◆ Output: Fungsi Tampilan Putar Halaman Recordset
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
Subturnpage (byrefrs_tmp, pagesize) 'rs_tmp record set; Halaman Jumlah catatan yang ditampilkan per halaman;
Halaman dimtotalpage'total
DIMPAGENO 'Halaman mana yang saat ini ditampilkan
DiMrecordCount'total dari jumlah catatan
Rs_tmp.pagesize = halaman
RecordCount = rs_tmp.recordcount
TotalPage = int (RecordCount/PageSize*-1)*-1
Pageno = request.querystring ("pageno")
'Putar langsung masukkan jumlah halaman untuk melompat;
Ifrequest.form ("pageno") <> "" thenpageno = request.form ("pageno")
'Jika halaman tidak dipilih, halaman pertama ditampilkan secara default;
Ifpageno = "" thenpageno = 1
Ifrecordcount <> 0then
Rs_tmp.absolutepage = pageno
Endif
'Dapatkan nama file saat ini sehingga setiap halaman berbelok dilakukan pada halaman saat ini;
Dimfilename, posisi
FileName = request.serverVariable ("script_name")
postion = instrrev (nama file, "/")+1
'Dapatkan nama file saat ini sehingga tautan yang memutar halaman menunjuk ke file saat ini;
nama file = mid (nama file, postion)
%>
<TABLEBORDER = 0WIDTH = '100%'>
<tr>
<tDaLign = Left> Total Page Count: <fontColor =#ff3333> <%= TotalPage%%> </font> halaman
Halaman saat ini <fontColor =#ff3333> <%= pageno%> </font>
<tdalign = "kanan">
<%Ifrecordcount = 0ortotalPage = 1then
Response.write "Beranda | Halaman Sebelumnya | Halaman Berikutnya | Halaman Terakhir"
Lain%>
<ahref = "<%= fileName%>? pageno = 1"> home | </a>