推薦：使用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裡的程序（不必我在多說了吧）。最後就開始執行這些程序了。看一下下面的代碼