用通ASP直接获取用户真实IP地址_ASP教程

推荐：使用ASP中的VB ActiveX.dll文件
没有人会在没有必要的情况下采用更加麻烦的方法来工作，除非是没有选择的余地。所以如果我要告诉你有一种简单的技术可以使你的ASP开发更加快速，并且更加高效率，你一定对此特别感兴趣。这一方法将从你的ASP页中的绝大部分business logic转移到一个Visual Basic Active

 　　通用FUNCTION，如果不能取真实IP，就会取代理IP

　　Private Function getIP()

　　Dim strIPAddr

　　If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then

　　strIPAddr = Request.ServerVariables("REMOTE_ADDR")

　　ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then

　　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 Then

　　strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)

　　Else

　　strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

　　End If

　　getIP = Trim(Mid(strIPAddr, 1, 30))

　　End Function

分享：通过ASP自动解压RAR文件
其实想实现这种功能很简单，首先要上传一个RAR的解压程序，就是RAR自己的解压程序，只需要它的核心 程序RAR.EXE这个文件就可以了。然后就要上传一个执行RAR.EXE的程序 CMD.EXE 这个是windows里的程序（不必我在多说了吧）。最后就开始执行这些程序了。看一下下面的代码