ASPÈçºÎ»ñÈ¡¿Í»§¶ËÕæÊµIPµØÖ·
ÔÚASPÖÐʹÓà Request.ServerVariables("REMOTE_ADDR") À´È¡µÃ¿Í»§¶ËµÄIPµØÖ·£¬µ«Èç¹û¿Í»§¶ËÊÇʹÓôúÀí·þÎñÆ÷À´·ÃÎÊ£¬ÄÇÈ¡µ½µÄ¾ÍÊÇ´úÀí·þÎñÆ÷µÄIPµØÖ·£¬¶ø²»ÊÇÕæÕýµÄ¿Í»§¶ËIPµØÖ·¡£ÒªÏë͸¹ý´úÀí·þÎñÆ÷È¡µÃ¿Í»§¶ËµÄÕæÊµIPµØÖ·£¬¾ÍҪʹÓà Request.ServerVariables("HTTP_X_FORWARDED_FOR") À´¶ÁÈ¡¡£²»¹ýҪעÒâµÄÊ£¬²¢²»ÊÇÿ¸ö´úÀí·þÎñÆ÷¶¼ÄÜÓà Request.ServerVariables("HTTP_X_FORWARDED_FOR") À´¶ÁÈ¡¿Í»§¶ËµÄÕæÊµ IP£¬ÓÐЩÓô˷½·¨¶ÁÈ¡µ½µÄÈÔÈ»ÊÇ´úÀí·þÎñÆ÷µÄIP¡£»¹ÓÐÒ»µãÐèҪעÒâµÄÊÇ£ºÈç¹û¿Í»§¶ËûÓÐͨ¹ý´úÀí·þÎñÆ÷À´·ÃÎÊ£¬ÄÇôÓà Request.ServerVariables ("HTTP_X_FORWARDED_FOR") È¡µ½µÄÖµ½«Êǿյġ£Òò´Ë£¬Èç¹ûÒªÔÚ³ÌÐòÖÐʹÓô˷½·¨£¬¿ÉÒÔÕâÑù´¦Àí£º
......
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
......
¼´£ºÈç¹û¿Í»§¶Ëͨ¹ý´úÀí·þÎñÆ÷£¬ÔòÈ¡ HTTP_X_FORWARDED_FOR µÄÖµ£¬Èç¹ûûͨ¹ý´úÀí·þÎñÆ÷£¬¾ÍÈ¡ REMOTE_ADDR µÄÖµ¡£
'ͨÓú¯Êý£ºÈç¹û²»ÄÜÈ¡¿Í»§¶ËÕæÊµ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
ÁíÍâ²¹³äÒ»¾ä:
Request.ServerVariables("Remote_Addr")&"<br>" 'À´È¡µÃ¿Í»§¶ËµÄIP
Request.ServerVariables("Local_Addr")&"<br>" 'À´È¡µÃ·þÎñÆ÷IP
Õª×Ô:http://hi.baidu.com/etong168/blog/item/7439469011cd3c8da877a46c.html
Ïà¹ØÎĵµ£º
ÔÚ ASP ÖÐʹÓà Request.ServerVariables("REMOTE_ADDR") À´È¡µÃ¿Í»§¶ËµÄ IP µØÖ·£¬µ«Èç¹û¿Í»§¶ËÊÇʹÓôúÀí·þÎñ
Æ÷À´·ÃÎÊ£¬ÄÇÈ¡µ½µÄ¾ÍÊÇ´úÀí·þÎñÆ÷µÄ IP µØÖ·£¬¶ø²»ÊÇÕæÕýµÄ¿Í»§¶Ë IP µØÖ·¡£ÒªÏë͸¹ý´úÀí·þÎñÆ÷È¡µÃ¿Í»§¶ËµÄÕæÊµ
IP µØÖ·£¬¾ÍҪʹÓÃ& ......
<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from ±í”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(r ......
1.ÔÚÎҵĵçÄÔÓÒ¼üµÄ”¹ÜÀí“ÖÐÕÒµ½“±¾µØÓû§ºÍ×锣¬È»ºóµ¥»÷”Óû§“£¬ÔÚÓұ߻ῴµ½Ò»¸ö½Ð"IWAM_20020101-0024"µÄÓû§£¬ÕâÊÇiiis°²×°Ê±×Ô¼º´´½¨µÄÄÚÖÃÕË»§£¬µãÓÒ¼ü“ÉèÖÃÃÜÂ딣¬µã¼ÌÐø£¬È»ºóÊäÈë“ÐÂÃÜÂ딺͓ȷÈÏÃÜÂ딡£“IWAM_20020101-0024&rdqu ......
ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......