<%@Language = vbscript codepage = 936%>
<Html>
<head>
<Title> dokumen tanpa judul </iteme>
<meta http-equiv = konten-tipe konten = teks/html;
</head>
<body>
<%
redup finishgetip, showip, allip
'///////////////////////////////////////////////// ////////////////////Gestingead ///////////////////////////// ////////////////////////////////////////////////// ////////////////////////////////////////////////// /// gons
'Program ini tidak terlalu ramping, dan kemudian memodifikasinya nanti
'Database yang digunakan dalam program ini adalah- "Feng Zhihong" -Written- "Hunting"- database IP dan
Penulis "Guohua Software Guohua Soft"-"Feng Guohua"-"Tabel Alokasi Alamat IP Global.chm" yang ditulis oleh.
'Terima kasih atas data yang disediakan oleh "Feng Zhihong" dan "Feng Guohua"
'Masih ada banyak alamat IP duplikat dalam database.
'Program saya sangat canggung.
'///////////////////////////////////////////////// ////////////////////Gestingead ///////////////////////////// ////////////////////////////////////////////////// ////////////////////////////////////////////////// /// gons
'Larutan:
'IP klien yang diperoleh umumnya 202.11.25.1, dan format IP dalam database adalah 202.011.025.001, yang perlu diperoleh
'Klien IP mengonversi ke format yang sama dengan IP dalam database
'Karena IP yang kami gunakan saat ini dibagi menjadi 4 bagian, setiap bagian dari 3 tempat, dan tengah dipisahkan oleh "."
'Jadi ide saya adalah membagi IP klien menjadi 4 paragraf dari ".", Yaitu, 202/11/25/1
'Lalu periksa setiap paragraf secara terpisah, jika 3 digit, itu tidak akan berubah; jika ada kurang dari 3, itu adalah 2, dan 1 0 di depan bagian ini, untuk 1, alasan yang sama, lalu tambahkan 2 0
'Setelah IP pemformatan diperoleh, bagian terakhir dari IP dihapus, yaitu, 11 bit teratas termasuk ". nilai
'Karena dapat dilihat dari database, tiga paragraf pertama StartIp dan EndIP adalah sama, dan paragraf terakhir hanyalah alamat subnet internal, yang dapat dihapus
'Jadi selama Anda ambil 11 teratas dari semua bidang Startip atau EndIP, dibandingkan dengan 11 teratas IP klien, Anda dapat menemukan lokasi yang tepat
'///////////////////////////////////////////////// ////////////////////Gestingead ///////////////////////////// ////////////////////////////////////////////////// ////////////////////////////////////////////////// ////////// Gestman
Fungsi checkip_trueip ()
'Ambil IP klien nyata
getClientIP = request.serverVariable (http_x_forwardeded_for) 'Jika klien menggunakan metode proxy, gunakan metode request.servaribles (remote_addr)
Jika getClientiP = lalu
GetClientIP = equest.serverVariable (remote_addr) 'Jika klien tidak menggunakan agen, maka permintaan
akhiri jika
checkip_trueip = getClientIP
fungsi akhir
'///////////////////////////////////////////////// ////////////////////Gestingead ///////////////////////////// ////////////////////////////////////////////////// ////////////////////////////////////////////////// ////////////////////////////////////////////////// THREY///////////////////////////////////////////////////////////////////// GGIG
Fungsi GetAccessRecordset (DB, SQL, Mark, Read) 'Dapatkan Objek Recordset
Set Conn = GetAccessConn (DB) 'Parameter input adalah jalur relatif DB-Database, pernyataan SQL-SQL, Mark, Read adalah metode pembacaan database, 1,1 dibaca dan ditulis
'Constr = Provider = Microsoft.jet.oledb.4.0;
'Conn.open Constr
Setel getAccessRecordset = server.CreateObject (adodb.oldset)
GetAccessRecordset.open SQL, Conn, Mark, baca
fungsi akhir
'///////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Fungsi getAccessConn (db) '' Dapatkan objek koneksi
Setel getAccessConn = server.CreateObject (adodb.connection)
'Constr = Driver = {Microsoft Access Driver (*.mdb)};
constr = penyedia = microsoft.jet.oledb.4.0;
getAccessConn.open Constr
fungsi akhir
'///////////////////////////////////////////////// ////////////////////Gestingead /////////////////////////
redup getip
'Getip = (trim (request.serverVariable (remote_addr))') 'Dapatkan IP dari klien
'Getip = (trim (request.querystring (datang))') 'masukkan ip test sendiri
'Response.write (getip & <br>)
'///////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Fungsi checkip_locations (checkstring) 'kembali ke fungsi posisi karakter yang dipisahkan dalam IP
Checkip_locations = instr (checkstring ,.) 'untuk memberikan fungsi ke fungsi
fungsi akhir
'///////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////
'Fungsi berikut adalah IP Divisi, dan string IP yang tersisa dari IP di sebelah kanan setelah setiap segmentasi diperoleh
Fungsi checkip_left (checkstring)
Locations_left = checkip_locations (checkString) 'untuk mendapatkan tempat pertama di mana yang pertama muncul di string yang tersisa dari IP
iPlength_Left = len (checkString) 'Dapatkan panjang string yang tersisa dari IP
Divide_locations_Left = iPlength_Left-locations_Left 'untuk mendapatkan posisi "."
IPSTR_LEFT = kanan (checkString, divide_locations_left) 'Setelah mendapatkan divisi ini, string yang tersisa dari IP yang tersisa di sebelah kanan "."
Checkip_left = ipstr_left 'akan memberikan string yang diperoleh di atas ke fungsi
fungsi akhir
'///////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////
'Fungsi -fungsi berikut dibagi IP, dan string IP di sisi kiri "."
Fungsi checkip_right (checkstring)
Locations_right = checkip_locations (checkString) 'diperoleh dalam IP "."
iPlength_right = len (checkString) 'Dapatkan panjang string IP
Divide_locations_right = iPlength_right-locations_right 'untuk mendapatkan posisi "."
IPSTR11 = trim (reft (kiri (checkstring, lokal),.,.,) ')') "
'Jika IP dibagi menjadi 4 paragraf, masing -masing bagian kurang dari 3 digit, dan 0
If len (ipstr11) = 2 maka ipstr11 = 0 & ipstr11
if len (ipstr11) = 3 maka ipstr11 = ipstr11
If len (ipstr11) = 1 maka ipstr11 = 00 & ipstr11
Checkip_right = ipstr11 'Dapatkan string sebelum simbol "."
Functi Akhir
Pusat demonstrasi stasiun keren terbesar di Cina!