Direkomendasikan: Gunakan file VB ActiveX.dll di ASP Tidak ada yang akan mengambil pendekatan yang lebih rumit untuk bekerja tanpa perlu kecuali tidak ada pilihan. Jadi jika saya akan memberi tahu Anda bahwa ada teknik sederhana yang dapat membuat pengembangan ASP Anda lebih cepat dan lebih efisien, Anda harus sangat tertarik padanya. Metode ini akan ditransfer dari sebagian besar halaman ASP Anda ke Visual Basic Active
Fungsi umum, jika IP yang sebenarnya tidak dapat diperoleh, itu akan menggantikan IP proxy.
Fungsi pribadi getip ()
Redup stripaddr
Jika request.serverVariable (http_x_forwarded_for) = atau instr (request.serverVariable (http_x_forwarded_for), tidak diketahui)> 0 lalu
stripaddr = request.serverVariable (remote_addr)
Elseif instr (request.serverVariable (http_x_forwarded_for),)> 0 lalu
stripaddr = mid (request.serverVariable (http_x_forwarded_for), 1, instr (request.serverVariables (http_x_forwarded_for),)-1)
Elseif instr (request.serverVariable (http_x_forwarded_for),;)> 0 kemudian
stripaddr = mid (request.serverVariables (http_x_forwarded_for), 1, instr (request.serverVariables (http_x_forwarded_for),;)-1)
Kalau tidak
stripaddr = request.serverVariables (http_x_forwarded_for)
Akhiri jika
getip = trim (mid (stripaddr, 1, 30))
Fungsi akhir
Bagikan: secara otomatis mendekompres file RAR melalui ASP Bahkan, sangat mudah untuk mengimplementasikan fungsi ini. Maka Anda harus mengunggah program yang mengeksekusi rar.exe. Akhirnya, kami mulai menjalankan program ini. Lihatlah kode berikut