»¶ÓÄú·ÃÎÊÎÒ°®IT¼¼ÊõÍø£¬½ñÌìС±àΪÄã·ÖÏíµÄ±à³Ì¼¼ÊõÊÇ£º¡¾ÀûÓÃasp»ñÈ¡¿Í»§¶ËÕæÊµµÄIPµØÖ·¡¿£¬ÏÂÃæÊÇÏêϸµÄ·ÖÏí£¡
ÀûÓÃasp»ñÈ¡¿Í»§¶ËÕæÊµµÄIPµØÖ·
¿Í»§¶ËIPÓÐÁ½ÖÖÇé¿ö£¬Ò»¸öÊÇ´úÀí·þÎñÆ÷ÉÏÍøµÄ£¬ÁíÒ»ÖÖÊÇÖ±½ÓÉÏÍøµÄ£¬ËùÒÔÒª»ñÈ¡¿Í»§¶ËIPÒ²ÐèÒª·Ö¿ªÀ´»ñÈ¡¡£<%
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»ñÈ¡¿Í»§¶ËÕæÊµµÄIPµØÖ·£¬ÏÂÃæÊDZà¼ÎªÄãÍÆ¼öµÄÓмÛÖµµÄÓû§»¥¶¯£º
¡¡¡¡Ïà¹ØÎÊÌ⣺asp»ñÈ¡ipµØÖ·:ASPÈçºÎ»ñÈ¡ÕæÊµIPµØÖ·
¡¡¡¡´ð£ºÔÚASP ÖÐʹÓà Request.ServerVariables("REMOTE_ADDR") À´È¡µÃ¿Í»§¶ËIP µØÖ·µ«Èç¹û¿Í»§¶ËÊÇʹÓôúÀí·þÎñÆ÷À´·ÃÎÊÄÇÈ¡µ½¾ÍÊÇ´úÀí·þÎñÆ÷IP µØÖ·¶ø²»ÊÇÕæÕý¿Í»§¶Ë IP µØÖ·ÒªÏë͸¹ý´úÀí·þÎñÆ÷È¡µÃ¿Í»§¶ËÕæÊµIP µØÖ·¾ÍҪʹÓà Request.ServerVariables... >>Ïêϸ
¡¡¡¡Ïà¹ØÎÊÌ⣺asp.net Ôõô»ñÈ¡¿Í»§¶ËÕæÊµ IP£¿
¡¡¡¡´ð£ºasp.netÖлñÈ¡¿Í»§¶ËipµØÖ·µÄÁ½ÖÖ·½·¨·½·¨Ò»:/// >>Ïêϸ
¡¡¡¡Ïà¹ØÎÊÌ⣺ASPÈçºÎ»ñÈ¡ÕæÊµIPµØÖ·
¡¡¡¡´ð£º´ó¼Ò¶¼ÖªµÀ£¬ÔÚASPÖпÉÒÔʹÓÃRequest.ServerVariables("REMOTE_ADDR")À´È¡µÃ¿Í»§¶ËµÄIPµØÖ·£¬µ«Èç¹û¿Í»§¶ËÊÇʹÓôúÀí·þÎñÆ÷À´·ÃÎÊ£¬ÄÇÈ¡µ½µÄ¾ÍÊÇ´úÀí·þÎñÆ÷µÄIPµØÖ·£¬¶ø²»ÊÇÕæÕýµÄ¿Í»§¶ËIPµØÖ·¡£ÒªÏë͸¹ý´úÀí·þÎñÆ÷È¡µÃ¿Í»§¶ËµÄÕæÊµIPµØÖ·£¬¾ÍÒª... >>Ïêϸ
- ÆÀÂÛÁÐ±í£¨ÍøÓÑÆÀÂÛ½ö¹©ÍøÓѱí´ï¸öÈË¿´·¨£¬²¢²»±íÃ÷±¾Õ¾Í¬ÒâÆä¹Ûµã»ò֤ʵÆäÃèÊö£©
-
