Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÖÐʹÓÃÈý²ã¼Ü¹¹] 1.Ç°ÑÔ

    Ö±±¼Ö÷Ìâ.
    Ä¿Ç°ÔÚά»¤Ò»Ì×´óÐ͵ÄASPÊÛºóϵͳ(2000¶à¸öasp page),´úÂëÊÇ2001Äê³öÀ´µÄ,ÆÚ¼ä¶àÄêδ×ö¸üÐÂ,´úÂëÖвÎÔÓ¶à¸ö³ÌÐòÔ±µÄ·ç¸ñ,½á¹¹ÉÏÖ»ÊǼòµ¥µÄ½«main function ¼¯ÖÐÆðÀ´,½«¸´ÔÓµÄsql¼¯ÖÐÆðÀ´. Ò³ÃæÉÏÏ൱»ìÂÒ.
    ûÓмòµ¥µØȥתÏò.net»·¾³,ÒòΪÕâ¸öÏµÍ³Ê¹Ó ......

ÔÚxpϵͳÏ°²×°iis²¢Çҳɹ¦µÄÔËÐÐaspÎļþ

1.ÔÚÎҵĵçÄÔÓÒ¼üµÄ”¹ÜÀí“ÖÐÕÒµ½“±¾µØÓû§ºÍ×锣¬È»ºóµ¥»÷”Óû§“£¬ÔÚÓұ߻ῴµ½Ò»¸ö½Ð"IWAM_20020101-0024"µÄÓû§£¬ÕâÊÇiiis°²×°Ê±×Ô¼º´´½¨µÄÄÚÖÃÕË»§£¬µãÓÒ¼ü“ÉèÖÃÃÜÂ딣¬µã¼ÌÐø£¬È»ºóÊäÈë“ÐÂÃÜÂ딺͓ȷÈÏÃÜÂ딡£“IWAM_20020101-0024&rdqu ......

asp¡¢·þÎñÆ÷¶Ë´ò¿ªÐ´°¿Ú

asp.netÖдò¿ªÐ´°¿ÚµÄ¶àÖÖ·½·¨(תÔØ)
1.Response.Redirect("XXX.aspx",true)——Ö±½ÓתÏòеÄÒ³Ã棬ԭ´°¿Ú±»´úÌæ;
2. Response.Write("
")——´ò¿ªÐµÄÒ³Ã棬ԭ´°¿Ú±»´úÌæ;
4.Server.Transfer("XXX.aspx")——´ò¿ªÐµÄÒ³Ãæ;
5.Response.Write("
......

FlashÓëASP½øÐÐÁ¬½ÓÊý¾Ý¿â²Ù×÷

1¡¢flash·¢ËÍÊý¾Ýµ½asp
loadVariables ("url" ,"target" [, variables])
2¡¢aspµÃµ½Êý¾Ý£¬²¢´¦Àíºó£¬½«Êý¾Ý·¢Ë͵½flash
È磺Response.Write("login=true&des=success")
3¡¢flash´¦Àí´ÓaspÊÕµ½µÄÊý¾Ý
È磺_root.gotoAndPlay(eval("login")) ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ