ASP Call Pure IP Library Contoh

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