Direkomendasikan: Contoh ASP: Pengunjung Ruang Implementasi ASP baru -baru ini Karena hubungan kerja, kami bekerja di ruang pengguna. Untuk menggunakan pengunjung terbaru di ruang angkasa, lihat kode ASP: % username = request.querystring (nama pengguna) 'Nama pengguna di kolom ground adalah nama pengguna Anda jika trim (request.cookies (user_name)) maka' halaman beranda perlu menentukan apakah akses masuk, hanya login dapat direkam
Saat mengerjakan sebuah proyek, saya menemukan masalah ASP memanggil perpustakaan IP yang tidak bersalah. Sekarang izinkan saya berbicara tentang solusinya.
<%
'============================================================
'Mengembalikan informasi IP disp_ipaddressdata (ip, 0)
'============================================================
Function look_ip (ip)
Redup masam, iptype, qqwryversion, ipcounter
'Atur objek kelas
Atur Wry = tqqwry baru
'Mulailah mencari dan kembali ke hasil pencarian
'Anda dapat menentukan apakah alamat IP ada dalam database berdasarkan nilai pengembalian QQWRY (IP). Jika tidak ada, Anda dapat melakukan beberapa operasi lain.
'Misalnya, jika Anda membangun database untuk dikejar, saya tidak akan menjelaskan secara rinci di sini
IPTYPE = WRY.QQWRY (IP)
'Negara: Negara: Lapangan Negara
'Penduduk setempat: provinsi, kota, dan bidang informasi lainnya
Look_ip = Wry.Country & & Wry.LocalStr
'' '' 'Look_ip = Wry.Country &
Fungsi akhir
'============================================================
'Mengembalikan informasi IP JS Call
'============================================================
Fungsi disp_ipaddressdata (ip, stype)
Redup, iptype
Atur Wry = tqqwry baru
IPTYPE = WRY.QQWRY (IP)
Pilih Case Stype
Case 1 disp_ipaddressdata = ip
Case 2 disp_ipaddressdata = gre.country
Kasus 3 disp_ipaddressdata = gre.localstrtr
'Case lain disp_ipaddressdata = grey.country & & wry.localstrtr
Kasus lain disp_ipaddressdata = gre.country
Akhiri Pilih
Fungsi akhir
'============================================================
'Kembali ke Informasi QQWRY
'============================================================
Function wryinfo ()
Dim Wry, IPTYPE, QQWRY_TEM (0), QQWRY_TEM1 (1)
'Atur objek kelas
Atur Wry = tqqwry baru
IPTYPE = WRY.QQWRY (255.255.255.254)
'Baca Informasi Versi Database
Qqwry_tem (0) = Wry.Country & & Wry.LocalStr
'Baca jumlah alamat IP basis data
QQWRY_TEM1 (1) = WRY.RecordCount + 1
WryInfo = qqwry_tem (0) & & qqwry_tem1 (1)
Fungsi akhir
Bagikan: ASP mencegah get, serangan pasca injeksi dan server, dan merekam IP % 'Preven Get, Post Injection dan Server Attack' Gunakan metode untuk memasukkan file ini dalam file yang perlu dicatat, jadi harap dicatat bahwa serangan pos dan dapatkan serangan di sini tidak selalu merupakan serangan. Harap perhatikan menggunakannya di versi bahasa Inggris 'Feng Xu Modified Sesion.abandon () Dim fxjt111_attack_post, fxjt111_attack_get, fxjt111_attack_syss
4 halaman Total halaman sebelumnya 1234Next halaman