Suatu hari saya tiba-tiba berpikir, bukankah luar biasa jika setiap kali saya mengunjungi sebuah situs web, saya dapat langsung mendapatkan informasi yang perlu saya lihat? Selanjutnya saya ingin memikirkan hal ini lebih dalam, duduk di kursi dengan pensil dan tidak tahu apa yang saya tulis. Dalam hal ini, saya masih harus berurusan dengan pengkodeannya.
??Teman saya membuka situs kecil, yang awalnya dirancang oleh saya. Ini adalah platform yang bagus untuk menguji ide-ide saya. Jadi saya menulis kode dan mengunggah filenya. Seru banget, programnya berjalan sempurna, dan juga membuktikan kalau ide saya memang bagus.
??Saya telah membaca beberapa laporan kecenderungan pengguna Internet sebelumnya, dan ada pola di dalamnya yang sangat mengesankan saya. Dikatakan bahwa sebagian besar pengguna akan segera meninggalkan situs jika mereka tidak dapat menemukan apa yang mereka butuhkan dalam tiga klik. Kode saya dapat mengatasi masalah ini dan memastikan bahwa pengguna dapat menemukan target hanya dengan satu klik mouse. Dalam contoh saya, misalkan pengguna login ke Yahoo dan mencari Fireplace Accessories (aksesori perlengkapan penerbangan). Pada hasil yang diberikan, ketika dia mengunjungi situs teman saya, dia akan melihat layar dengan tulisan seperti "Anda sedang mencari Aksesoris Perapian". Kemudian dia akan mengikuti petunjuk di website tersebut dan langsung menuju ke halaman yang ingin dia tuju.
??Langkah pertama yang harus anda lakukan adalah membuat variabel awal pada file global.asa dan menempatkannya pada program Sub Session_onStart() anda.
??Sub Sesi_onStart()
?? Perujuk = Pangkas(Permintaan.ServerVariables("HTTP_REFERER"))
??Jika Referer = "" Lalu
??Referensi = "Tidak Ada"
?? Akhir Jika
??Sesi("Referensi") = Referensi
??End Sub
??Lalu mari kita lihat bagaimana cara menyelesaikan fungsi utama program.
??Karena URL sudah di-encode, kita harus mengembalikan data penunjuk host pengunjung terlebih dahulu menjadi sesuatu yang berguna bagi kita. Buat halaman ASP, sebut saja decode.asp, yang merupakan tulang punggung program kita. Fungsi pertama adalah untuk memecahkan kode header penunjuk yang dikodekan. Prosedurnya agak panjang, dan sangat mudah, tanpa berbelit-belit. Jika Anda merasa merepotkan, Anda sebaiknya mengunjungi "Kursus Pelatihan Cacing Internet" di www.popunet.com untuk menemukan artikel ini dan menggunakan artikel ini. metode "salin/tempel".
??Hal kedua yang harus dilakukan dalam kode sumber
adalah memisahkan bagian kueri dari informasi header URL-inilah yang kita butuhkan.
'Pisahkan bidang kueri dari URL penunjuk.
?Fungsinya adalah Produk (pStr)
?? Jika pStr <> "" Dan lCase(pStr) <> "tidak ada" Lalu
?? 'Bidang pencarian mundur
??temp = diStrRev(pStr, "/")
?? 'Dapatkan lokasi pemisahan direktori
?? tempStr = Kanan(pStr, suhu)
?? 'Dapatkan panjang data yang relevan
?? suhu2 = Len(pStr)
?? 'Dapatkan baris data kueri
??pStr = Pertengahan(pStr, suhu, suhu2)
?? 'Tetapkan nilai fungsi pengembalian
?? adalah Produk = pStr
??Kalau tidak
??adalah Produk = ""
??Akhir Jika
?Fungsi Akhir
??Langkah selanjutnya adalah menetapkan kriteria pencarian yang jelas. Untuk mencapai tujuan ini, buat dua "penunjuk" ruang statis untuk menemukan data yang ditunjuk oleh
Pencari Fungsi (byRef prodList, byVal refList)
??'permintaan kabur
??Daftar Ref = lKasus(Daftar Ref)
??' Ulangi pointer untuk menemukan bidang yang cocok
??Untuk i = 0 Ke uBound(prodList) - 1
??Jika inStr(refList, lCase(prodList(i, 0))) Lalu
??'Temukan kecocokan
??tHolder = tHolder & "Apakah Anda mencari" _
??& "" _
??& DaftarProd(i, 0) & "
??"
??Akhir Jika
??'Putaran kedua
??Berikutnya
??'mengembalikan hasil
??Finder = Fungsi tHolderEnd
??Melalui inclue, masukkan decode.asp yang kami siapkan ke halaman mana pun yang memerlukan fungsi ini, dan selesai.
Detailnya adalah sebagai berikut:
'Jika header penunjuk tidak kosong, panggil fungsi ini If lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" Lalu' Parsing data penunjuk Respon.Tulis vbCrLf & "
??" _ & Finder(pArray, URLDecode(isProduct(Session("Referer")))) _ & "
??" & vbCrLf
??Akhir Jika