推荐：使用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里的程序（不必我在多说了吧）。最后就开始执行这些程序了。看一下下面的代码