Direkomendasikan: Gunakan filter untuk mencapai pengambilan informasi sekunder Pikirkan tentang sebuah pertanyaan: Bagaimana cara mencapai pencarian sekunder berdasarkan pencarian pertama? Biasanya, pendekatan kami adalah menyimpan kondisi pencarian selama pencarian pertama, dan menggabungkan dua kondisi pencarian selama pencarian baris kedua untuk melakukan kueri baru pada database, seperti: pencarian pertama:
'--------------------------------------------------------------------------
'Fungsi fungsi: blok kode html
'Parameter: Informasi Input Pengguna Strinput
'--------------------------------------------------------------------------
Fungsi FunInput (Strinput)
Jika bukan isnull (str) maka
Strinput = ganti (strinput, <, <)
Strinput = ganti (strinput,>,>)
Strinput = ganti (strinput, chr (32),)
strinput = ganti (strinput, chr (34),)
strinput = ganti (strinput, chr (39), ')
strinput = ganti (strinput, chr (13),)
FunInput = Strinput
akhiri jika
fungsi akhir
'--------------------------------------------------------------------------
Fungsi fungsi: Cegah injeksi SQL
'Parameter: data yang diterapkan pengguna Strvalue
'Jenis data blotype
'Nilai Parameter: Data Numerik Sejati
'Data karakter palsu
'--------------------------------------------------------------------------
Fungsi funsql (strvalue, blotype)
Jika blotype maka
jika isnumeric (strvalue) maka
Funsql = clng (strvalue)
kalau tidak
Strvalue = 0
akhiri jika
kalau tidak
Jika bukan isnull (strvalue) maka
Strvalue = lcase (strvalue)
Strvalue = ganti (strvalue, ',' ')
Strvalue = ganti (strvalue, pilih,)
Strvalue = ganti (strvalue, pembaruan,)
Strvalue = ganti (strvalue, masukkan,)
Strvalue = ganti (strvalue, hapus,)
Strvalue = ganti (strvalue,;,)
Strvalue = ganti (strvalue ,,)
Strvalue = ganti (strvalue, chr (255),)
Strvalue = ganti (strvalue,*,)
Strvalue = ganti (strvalue,%,)
akhiri jika
akhiri jika
Funsql = strvalue
fungsi akhir
'--------------------------------------------------------------------------
'Fungsi Fungsi: Konversi Jenis Umum
'Parameter: _Type Tipe Data
'_Value data
'Nilai parameter: _type 1: Konversi ke data numerik
'_Type 2: Konversi ke data karakter
'_Type 3: Konversi ke data boolean
'--------------------------------------------------------------------------
fungsi funswitch (value_, type_)
pada kesalahan resume berikutnya
Pilih case type_
Kasus 1
jika isnumeric (value_) lalu
jika tidak isnull (value_) lalu
Funswitch = clng (value_)
kalau tidak
Funswitch = 0
akhiri jika
kalau tidak
Funswitch = 0
akhiri jika
Kasus 2
jika tidak isnull (value_) lalu
Funswitch = cstr (value_)
kalau tidak
Funswitch =
akhiri jika
Kasus 3
jika tidak isnull (value_) dan isnumeric (value_) kemudian
Funswitch = cbool (value_)
kalau tidak
Funswitch = false
akhiri jika
kasus lain
response.redirect (error.asp? err = Harap tentukan tipe data yang akan ditransfer ke dalam funswitch!)
Akhiri Pilih
Jika err.number <> 0 lalu
response.redirect (error.asp? err = kesalahan yang tidak diketahui terjadi selama konversi data!)
err.clear
akhiri jika
fungsi akhir
'' ----------------------------------------------------------------------
'Fungsi fungsi: Verifikasi apakah data berasal dari luar
'Parameter: tidak ada
'--------------------------------------------------------------------------
function checkfrom ()
server_v1 = cstr (request.serverVariable (http_referer))
server_v2 = cstr (request.serverVariable (server_name))
Jika mid (server_v1,8, len (server_v2)) <> server_v2 lalu
periksa = true
kalau tidak
periksa = false
akhiri jika
fungsi akhir
'' ----------------------------------------------------------------------
'Fungsi Fungsi: JS Prompt Box
'Parameter: Strurl: Alamat halaman dikembalikan ke setelah mengklik ok
'Strmsg: informasi prompt dialog
'--------------------------------------------------------------------------
Fungsi funmsg (strurl, strmsg)
Response.write <script language = 'javascript'> & _
VBCRLF & ALERT (& STRMSG &); & _
Vbcrlf & window.location = & strurl &; & _
Vbcrlf & </script>
Fungsi akhir
'--------------------------------------------------------------------------
'Fungsi fungsi: paging umum
'Parameter: Jumlah Halaman Total IntpageCount
'Intermypage Count Page Saat Ini
'Rekaman Total Penyerahan
'Intpages Jumlah catatan yang ditampilkan per halaman
'--------------------------------------------------------------------------
fungsi funpage (intpageCount, intmypage, intrecordcount, intpagesze)
'pada kesalahan resume berikutnya
Dimfor, intlist, intlist_b
Query redup, a, x, suhu
Tindakan = http: // & request.serverVariable (http_host) & request.serverVariables (script_name)
query = split (request.serverVariable (query_string), &)
Untuk setiap x dalam kueri
a = split (x, =)
Jika strcomp (a (0), halaman, vbtextCompare) <> 0 lalu
temp = temp & a (0) & = & a (1) & & &
Akhiri jika
Berikutnya
Jika intmypage> 1 maka
funpage = funpage & <a href = '& action &? & temp & page = 1' title = 'halaman terakhir' class = 'no'> <font face = 'webdings'> 9 </font> </a>
funpage = funpage & <a href = '& action &? & temp & page = & intmypage-1 &' title = 'halaman sebelumnya' class = 'no'> <font face = 'webdings'> 7 </font> </a>
kalau tidak
funpage = funpage & <font face = 'webdings'> 9 </font>
funpage = funpage & <font face = 'webdings'> 7 </font>
akhiri jika
Jika intlist <> 0 lalu
Jika cintmypage = intlist lalu
Intlist = Intlist 5
akhiri jika
kalau tidak
Intlist = intmypage 5
akhiri jika
Jika Intlist-9 <1 maka
intlist_b = 1
kalau tidak
intlist_b = intlist-9
akhiri jika
untuk intfor = intlist_b ke intlist
Jika intfor <= intpageCount maka
Jika intfor = intmypage maka '---- buat teks halaman saat ini merah dan tidak dapat diklik
funpage = funpage & strmode & <font color = '#ff0000'> <b> & intfor & </b> </font>
kalau tidak
funpage = funpage & strmode & <a href = '& action &? & temp & page = & intfor &' class = 'no'> & intfor & </a>
akhiri jika
akhiri jika
strmode = <font color = '#bbbbbb'> | </font>
Berikutnya
Jika intmypage <intpageCount maka
funpage = funpage & <a href = '& action &? & temp & page = & intmypage 1 &' title = 'halaman terakhir' class = 'no'> <font face = 'webdings'> 8 </font> </a>
funpage = funpage & <a href = '& action &? & temp & page = & intpageCount &' title = 'halaman terakhir' class = 'no'> <font face = 'webdings'>: </font> </a>
kalau tidak
funpage = funpage & <font face = 'webdings'> 8 </font>
funpage = funpage & <font face = 'webdings'>: </font> </a>
akhiri jika
funpage = <tabel lebar = '100%' border = '0' cellPacing = '0' cellPadding = '0'> <tr> & _
vbcrlf & <td width = '40%'style = font: 14px> saat ini & intmypage & halaman & intpagesize & daftar/halaman total & intpageCount & halaman/& catatan intrecordcount & daftar </td> & _
vbcrlf & <td width = '60%'align =' right '> & _
vbcrlf & <width tabel = '360' border = '0' cellPacing = '0' cellPadding = '0' cellPadding = '0'> <tr> & _
vbcrlf & <td align = 'kanan' style = font: 14px> & funpage & </td> & _
vbcrlf & </tr> </able> </td> </tr> & _
vbcrlf & </boable>
Jika err.number <> 0 lalu
err.clear
response.redirect (error.asp? err = fungsi pagination memiliki kesalahan, silakan hubungi administrator! |)
akhiri jika
fungsi akhir
'*********************************************************
'Nama fungsi: Sorot
'Fungsi: Kata kunci pencarian ditampilkan dalam warna yang disorot
'Parameter strtext adalah string atau variabel di mana string atau variabel yang akan disorot
'Strfind adalah string atau variabel yang harus disorot,
'Strbefore Sorotan HTML Code Prefix Is Like: <font color = red>
'Strafter menyoroti sufiks kode html: </font>
'********************************************************
Sorotan fungsi (Strtext, Strfind, Strbefore, Strafter)
Npos redup
Redup nlen
Redup
nlen = len (strfind)
nlenall = nlen len (strbefore) len (strafter) 1
Sorotan = Strtext
Jika nlen> 0 dan len (highlight)> 0 lalu
npos = instr (1, sorotan, strfind, 1)
Lakukan saat npos> 0
Sorot = Kiri (Sorot, NPO - 1) & _
Strbefore & Mid (Sorotan, NPOS, NLEN) & Strafter & _
Mid (Sorotan, NPOS NLEN)
NPOS = Instr (NPOS NLENAlall, Sorotan, Strfind, 1)
Lingkaran
Akhiri jika
Fungsi akhir
Bagikan: ASP 3.0 Pemrograman Lanjutan (31) 7.1.2 Penemuan dan penanganan kesalahan semantik atau runtime menjengkelkan, tetapi Anda akan menemukan beberapa jenis kesalahan lain yang sangat menarik dalam pemrograman - kesalahan semantik (kesalahan semantik), atau & ld