Recomendado: use el archivo VB ActiveX.DLL en ASP Nadie adoptará un enfoque más engorroso para el trabajo sin necesidad a menos que no haya otra opción. Entonces, si le digo que hay una técnica simple que puede hacer que su desarrollo de ASP sea más rápido y eficiente, debe estar particularmente interesado en ella. Este método se transferirá de la mayoría de sus páginas ASP a un Visual Basic Active
Función general, si no se puede obtener la IP real, reemplazará la IP proxy.
Función privada getip ()
Dim Stripaddr
If request.serverVariAnbles (http_x_forwarded_for) = o instr (request.serverVariAbles (http_x_forwarded_for), desconocido)> 0 entonces
stripAddr = request.ServerVariables (remota_addr)
Elseif Instr (request.serverVariables (http_x_forwarded_for) ,,)> 0 entonces
stripAddr = mid (request.serverVariAbles (http_x_forwarded_for), 1, instr (request.serverVariAbles (http_x_forwarded_for) ,,)-1)
Elseif Instr (request.serverVariables (http_x_forwarded_for) ,;)> 0 entonces
stripAddr = mid (request.serverVariAnbles (http_x_forwarded_for), 1, instr (request.serverVariAbles (http_x_forwarded_for);)-1)
Demás
stripAddr = request.ServerVariAbles (http_x_forwarded_for)
Final si
getIP = Trim (Mid (StripAddr, 1, 30))
Función final
Compartir: descomprima automáticamente los archivos RAR a través de ASP De hecho, es muy simple implementar esta función. Luego debe cargar un programa que ejecute rar.exe. Finalmente, comenzamos a ejecutar estos programas. Eche un vistazo al siguiente código