Direkomendasikan: ASP 3.0 Pemrograman Lanjutan (38) 8.3.3 Menggunakan status koneksi untuk menyimpan string koneksi ke dalam variabel aplikasi adalah trik umum, dan sama efektifnya dengan menggunakan file yang disertakan. Misalnya, Anda dapat menambahkan kode berikut ke file global.ASA: Sub Application_onstart () strconn = "
Di bawah ini adalah tabel Urlindex di perpustakaan: bidang URL dan kata kunci telah diindeks masing -masing.
| Teks URL (indeks: dengan (tidak ada duplikasi)) Teks judul Deskripsi Teks Ringkasan teks Teks Kata Kunci (Indeks: dengan (tidak ada duplikasi)) |
doquery.asp
| <Html> <Head> <title> Mesin Pencari Sederhana </iteme> </head> <Body bgcolor =#ffffff marginwidth = 0 marginheight = 0 LeftMargin = 0 Topmargin = 0> <Form Metode = Post Action = doQuery.asp? Act = Search> Kueri: <input type = name teks = queryString> <br> <Input Tipe = Kirim Nilai = Kirim> </form> </penter> <% Act redup Act = Request (ACT) if (act = cari) lalu QueryString = request.form (querystring) Querywords = split (querystring) strindent = 'Jika pencarian kosong, kembalikan Jika queryString = lalu Response.redirect (default.asp) Akhiri jika Session.timeout = 2 If isObject (session (Sitesearch_Conn)) lalu Set Conn = Sesi (Sitesearch_Conn) Kalau tidak Set Conn = Server.CreateObject (AdodB.Connection) conn.open driver = {Microsoft Access Driver (*.mdb)}; dbq = & server.mappath (database/sitesearch.mdb) ,,, Set Sesi (Sitesearch_Conn) = Conn Akhiri jika 'Pernyataan kueri sql = pilih * dari [urlindex] di mana 'Bidang Deskripsi Pencarian sql = sql & ([deskripsi] seperti ' % & querywords (0) & %' 'pertama Untuk i = lbound (querywords) 1 ke ubound (querywords) Jika querywords (i) <> dan ucase (querywords (i)) <> atau dan ucase (querywords (i)) <> dan kemudian Jika uCase (querywords (i-1)) = atau kemudian sql = sql & atau [deskripsi] seperti ' % & querywords (i) & %' Kalau tidak sql = sql & dan [deskripsi] seperti ' % & querywords (i) & %' Akhiri jika Akhiri jika Berikutnya 'Cari bidang Kata Kunci sql = sql &) atau ([kata kunci] seperti ' % & querywords (0) & %' Untuk i = lbound (querywords) 1 ke ubound (querywords) Jika querywords (i) <> dan ucase (querywords (i)) <> atau dan ucase (querywords (i)) <> dan kemudian Jika uCase (querywords (i-1)) = atau kemudian sql = sql & atau [kata kunci] seperti ' % & querywords (i) & %' Kalau tidak sql = sql & dan [kata kunci] seperti ' % & querywords (i) & %' Akhiri jika Akhiri jika Berikutnya 'Cari bidang judul sql = sql &) atau ([judul] seperti ' % & querywords (0) & %' Untuk i = lbound (querywords) 1 ke ubound (querywords) Jika querywords (i) <> dan ucase (querywords (i)) <> atau dan ucase (querywords (i)) <> dan kemudian Jika uCase (querywords (i-1)) = atau kemudian sql = sql & atau [judul] seperti ' % & querywords (i) & %' Kalau tidak sql = sql & dan [judul] seperti ' % & querywords (i) & %' Akhiri jika Akhiri jika Berikutnya 'Cari bidang ringkasan sql = sql &) atau ([ringkasan] seperti ' % & querywords (0) & %' Untuk i = lbound (querywords) 1 ke ubound (querywords) Jika querywords (i) <> dan ucase (querywords (i)) <> atau dan ucase (querywords (i)) <> dan kemudian Jika uCase (querywords (i-1)) = atau kemudian sql = sql & atau [ringkasan] seperti ' % & querywords (i) & %' Kalau tidak sql = sql & dan [ringkasan] seperti ' % & querywords (i) & %' Akhiri jika Akhiri jika Berikutnya SQL = SQL &) ' Set RS = Server.CreateObject (ADODB.Recordset) rs.open sql, conn, 3, 3 Response.write <br> <b> Anda mencari: </b> & querystring Response.write <br> <b> Cari kata kunci: </b> Untuk i = lbound (querywords) ke ubound (querywords) Response.write <br> & strindent & i &: & querywords (i) Berikutnya 'Cetak string SQL Response.write <br> <b> Pernyataan SQL: </b> & sql 'Cetak hasilnya Response.write <br> <b> hasil: </b> <ul> Pada kesalahan resume berikutnya rs.movefirst Lakukan sementara tidak rs.eof Response.write <br> & <a href = 'openpage.asp? IndexUrl = & rs.fields (url) .value &'> & rs.fields (judul) & </a> - Response.write rs.fields (deskripsi) & <br> Response.write <font size = 2> url: & rs.fields (url) & </font> Response.write <hr size = 1 lebar = 200 align = kiri> rs.movenext Lingkaran Response.write </ul> akhiri jika %> </body> </html> |
Bagikan: Tip ASP Contoh: Tentang Program untuk Formulir Operasi Berikut ini adalah konten yang direferensikan: memasukkan konten formulir ke dalam basis data dengan ASP. <% ' - loader.asp -' - Versi 1.5.2