Kita sering menghadapi banyak masalah kueri, dan pernyataan SQL yang panjang sering kali membuat orang bingung. Terutama ketika klien mengisi sebagian kondisi kueri, akan lebih sulit lagi menggunakan metode biasa. Berikut ini dengan cerdik menggunakan identitas dimana 1=1 (sebenarnya banyak, biarkan saja nilainya TRUE) untuk menyelesaikan masalah ini. 'judul informasi subjek
'perusahaan Nama perusahaan yang menerbitkan informasi
'isi isi informasi yang dipublikasikan
'alamat alamat perusahaan
'informasi Profil Perusahaan
'catat instruksi terkait
Nilai di atas dikirimkan melalui FORM, dan kemudian nilai terkait diperoleh melalui: subjek=trim(Permintaan.Form(subjek)), dll.
<%
'Fungsi ini sangat penting! --------------------------
Fungsi sql(a,b,sql)
jika b<> maka 'Jika klien tidak mengirimkan nilai ini, pernyataan SQL yang sesuai tidak akan dihasilkan.
sqls=sqls & dan & a & suka '% & b & %'
berakhir jika
sql=sql
Fungsi Akhir
'-----------------Hubungi database
Setel koneksi=Server.CreateObject(ADODB.Connection)
DBpath=Server.MapPath(/database/mydb.mdb)
Sambungan.Buka driver={Microsoft Access Driver (*.mdb)};pwd=;dbq= & DBpath
Setel rs=Server.CreateObject(ADODB.Recordset)
sqls=pilih * dari tabel saya di mana 1=1
'Panggil saja fungsi di atas di bawah ini, Anda dapat memanggilnya berkali-kali (secara teoritis apa saja)
sqls=sql(subjek,subjek,sqls)
sqls=sql(perusahaan,perusahaan,sqls)
sqls=sql(isi,isi,sqls)
sqls=sql(alamat,alamat,sqls)
sqls=sql(informasi,informasi,sqls)
sqls=sql(catatan,catatan,sqls)
sqls=sqls & pesan berdasarkan id desc
rs.open sqls, samb.,3,2
%>
Jika tidak ada fungsi kunci Fungsi sql (a, b, sqls), kita bisa membayangkan berapa banyak penilaian yang diperlukan satu demi satu!