推薦：使用ASP中的VB ActiveX.dll文件
沒有人會(huì)在沒有必要的情況下采用更加麻煩的方法來工作，除非是沒有選擇的余地。所以如果我要告訴你有一種簡(jiǎn)單的技術(shù)可以使你的ASP開發(fā)更加快速，并且更加高效率，你一定對(duì)此特別感興趣。這一方法將從你的ASP頁中的絕大部分business logic轉(zhuǎn)移到一個(gè)Visual Basic Active

 　　通用FUNCTION，如果不能取真實(shí)IP，就會(huì)取代理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自動(dòng)解壓RAR文件
其實(shí)想實(shí)現(xiàn)這種功能很簡(jiǎn)單，首先要上傳一個(gè)RAR的解壓程序，就是RAR自己的解壓程序，只需要它的核心 程序RAR.EXE這個(gè)文件就可以了。然后就要上傳一個(gè)執(zhí)行RAR.EXE的程序 CMD.EXE 這個(gè)是windows里的程序（不必我在多說了吧）。最后就開始執(zhí)行這些程序了�？匆幌孪旅娴拇�碼