Рекомендуется: используйте файл vb activex.dll в ASP Никто не примет более громоздкий подход к работе без необходимости, если не будет выбора. Поэтому, если я собираюсь сказать вам, что есть простая техника, которая может сделать ваш ASP быстрее и эффективнее, вам должно быть особенно интересно. Этот метод будет перенесен от большинства ваших страниц ASP в ASPEAR BASIC ACTIOL
Общая функция, если реальный IP не может быть получен, он заменит прокси -IP.
Частная функция getip ()
Dim Stripaddr
Если запрос. Servervariables (http_x_forwarded_for) = или instr (request.servervariables (http_x_forwarded_for), неизвестно)> 0 тогда
stripaddr = request.servervariables (remote_addr)
Elseif instr (request.servervariables (http_x_forwarded_for) ,,)> 0 затем
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 тогда
stripaddr = mid (request.servervariables (http_x_forwarded_for), 1, instr (request.servervariables (http_x_forwarded_for),;)-1)
Еще
stripaddr = request.servervariables (http_x_forwarded_for)
Конец, если
Getip = Trim (Mid (Stripaddr, 1, 30))
Конечная функция
Поделиться: автоматически распаковывать файлы RAR через ASP На самом деле, это очень просто в реализации этой функции. Во -первых, вам нужно загрузить программу декомпрессии RAR, которая является собственной программой декомпрессии RAR. Вам нужна только его основная программа rar.exe. Затем вам нужно загрузить программу, которая выполняет rar.exe. Cmd.exe. Это программа в Windows (не нужно говорить больше). Наконец, мы начинаем выполнять эти программы. Посмотрите на следующий код