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