Recomendado: Use o arquivo vb ActiveX.dll no ASP Ninguém adotará uma abordagem mais pesada para trabalhar sem precisar, a menos que não haja escolha. Portanto, se eu vou lhe dizer que existe uma técnica simples que pode tornar seu desenvolvimento ASP mais rápido e eficiente, você deve estar particularmente interessado nele. Este método será transferido da maioria das suas páginas ASP para um Visual Basic Active
Função geral, se o IP real não puder ser obtido, substituirá o proxy IP.
Função privada getip ()
Dim Stripaddr
Se request.servervariables (http_x_forwarded_for) = ou instrum (request.servervariables (http_x_forwarded_for), desconhecido)> 0 Então
StraadDr = request.Servervariables (Remote_addr)
Elseif Instr (request.Servervariables (http_x_forwarded_for),)> 0 Então
StraadDr = 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 então
Straaddr = MID (request.Servervariables (http_x_forwarded_for), 1, instrum (request.servervariables (http_x_forwarded_for),;)-1)
Outro
StraadDr = request.Servervariables (http_x_forwarded_for)
Final se
getip = Trim (MID (Straaddr, 1, 30))
Função final
Compartilhar: descompactar automaticamente os arquivos RAR através do ASP De fato, é muito simples implementar essa função. Primeiro, você precisa fazer upload de um programa de descompressão RAR, que é o próprio programa de descompressão de RAR. Você só precisa do arquivo rar.exe do programa principal. Então você deve fazer upload de um programa que execute rar.exe. Cmd.exe. Este é um programa no Windows (não é necessário dizer mais). Finalmente, começamos a executar esses programas. Dê uma olhada no seguinte código