Berikut ini adalah fragmen kode: <% '============================================ 'Nama Proses: ShowCorrelative 'Fungsi: Tampilkan artikel terkait 'Parameter: Articlenum ---- Berapa banyak artikel yang ditampilkan paling banyak 'Titlelen ---- Jumlah karakter dalam judul, satu karakter Cina = dua karakter bahasa Inggris '============================================ Sub Showcorrelave (Articlenum, Titlelen) redup, sql Redup strkey, arrkey, i Jika Articlenum> 0 dan Articlenum <= 100 lalu SQL = Pilih Top & Articlenum kalau tidak SQL = Pilih Top 5 akhiri jika 'Gunakan |. Strkey = mid (rs (kunci), 2, len (rs (kunci))-2) if instr (strkey, |)> 1 lalu Arrkey = split (strkey, |) strkey = ((kunci seperti '% | & arrkey (0) & |%') untuk i = 1 ke ubound (arrkey) Strkey = strkey & atau (kunci seperti '% | & arrkey (i) & |%') Berikutnya Strkey = strkey &) kalau tidak Strkey = (kunci seperti '% | & strkey & |%') akhiri jika Sql = & id, judul, penulis, tanggal, hits, l.layoutfileName dari artikel A dalam tata letak gabung l pada l.layoutid = tata letak di mana dihapus = false dan lulus = true a nd & strkey & dan id <> & id & order Oleh id desc Set RS = Const.Execute (SQL) Jika titlelen <0 atau titlelen> 255 maka tintlelen = 50 Jika rs.bof dan rs.eof maka response.write tidak memiliki artikel terkait kalau tidak lakukan sementara tidak rs.eof Response.write <a href = '& rs (LayoutFileName) &? Waktu: & rs (tanggal) & vbcrlf & klik: & rs (hit) & '> & gottopic (rs (judul), titlelen) & </a> rs.movenext lingkaran akhiri jika Rs.close Setel RS = Tidak Ada akhir sub %> |
Setelah mendefinisikan proses ini, lalu ganti tanda template di file halaman statis
(Seperti: htmlmake.asp)
| Berikut ini adalah fragmen kode: Pencat = ganti (Pencat, [xianghuanlist], showcorrelative (5,20))) |
Ini akan menghasilkan halaman statis dengan daftar artikel terkait!
Bagian merah adalah pernyataan inti yang hanya dapat ditransplantasikan.
Berikut ini adalah fragmen kode: <% '============================================ 'Nama Proses: ShowCorrelative 'Fungsi: Tampilkan artikel terkait 'Parameter: Articlenum ---- Berapa banyak artikel yang ditampilkan paling banyak 'Titlelen ---- Jumlah karakter dalam judul, satu karakter Cina = dua karakter bahasa Inggris '============================================ Sub Showcorrelave (Articlenum, Titlelen) redup, sql Redup strkey, arrkey, i Jika Articlenum> 0 dan Articlenum <= 100 lalu SQL = Pilih Top & Articlenum kalau tidak SQL = Pilih Top 5 akhiri jika 'Gunakan |. Strkey = mid (rs (kunci), 2, len (rs (kunci))-2) if instr (strkey, |)> 1 lalu Arrkey = split (strkey, |) strkey = ((kunci seperti '% | & arrkey (0) & |%') untuk i = 1 ke ubound (arrkey) Strkey = strkey & atau (kunci seperti '% | & arrkey (i) & |%') Berikutnya Strkey = strkey &) kalau tidak Strkey = (kunci seperti '% | & strkey & |%') akhiri jika Sql = & id, judul, penulis, tanggal, hits, l.layoutfileName dari artikel A dalam tata letak gabung l pada l.layoutid = tata letak di mana dihapus = false dan lulus = true a nd & strkey & dan id <> & id & order Oleh id desc Set RS = Const.Execute (SQL) Jika titlelen <0 atau titlelen> 255 maka tintlelen = 50 Jika rs.bof dan rs.eof maka response.write tidak memiliki artikel terkait kalau tidak lakukan sementara tidak rs.eof Response.write <a href = '& rs (LayoutFileName) &? Waktu: & rs (tanggal) & vbcrlf & klik: & rs (hit) & '> & gottopic (rs (judul), titlelen) & </a> rs.movenext lingkaran akhiri jika Rs.close Setel RS = Tidak Ada akhir sub %> |
Setelah mendefinisikan proses ini, lalu ganti tanda template di file halaman statis
(Seperti: htmlmake.asp)
| Berikut ini adalah fragmen kode: Pencat = ganti (Pencat, [xianghuanlist], showcorrelative (5,20))) |
Ini akan menghasilkan halaman statis dengan daftar artikel terkait!
Bagian merah adalah pernyataan inti yang hanya dapat ditransplantasikan.