Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐÈçºÎÓÃJS´Ó×Ó´°¿Ú´«µÝÖµ±äÁ¿µ½¸¸´°¿Ú±íµ¥ÖÐ?


ASPÖÐÈçºÎÓÃJS´Ó×Ó´°¿Ú´«µÝÖµ±äÁ¿µ½¸¸´°¿Ú±íµ¥ÖÐ?
 ÐüÉÍ·Ö£º15 - ½â¾öʱ¼ä£º2008-6-10 00:06
¸¸´°¿ÚÖÐÓÐÒ»±íµ¥,ÏÖÔÚÊǵã±íµ¥ºóµÄÉÏ´«´ò¿ª×Ó´°¿Ú,¾­¹ýÎÞ×é¼þÉÏ´«Îļþ³É¹¦ºó×Ó´°¿ÚÌáʾ³É¹¦,²¢ÓÃresponse.write(FileName) Êä³ö·¾¶³É¹¦.µ«ÈçºÎ´«µÝµ½¸¸´°¿ÚÎı¾ÓòÄÚÌá½»Êý¾Ý¿âÄØ?²é×ÊÁÏÊÇÓÃJS»Ø´«Ð´³É: resp ......

ASP»ñÈ¡ºÍ»¹Ô­¸´Ñ¡¿òµÄÖµ(0¡«99¶àÏîÑ¡Ôñ)

    ÔÚ¶àÏîÑ¡ÔñµÄһЩӦÓÃÖУ¬¿ÉÒÔÓöþ½øÖÆ1´ú±íÑ¡ÖУ¬0´ú±í²»Ñ¡¡£ÀýÈç¸øijÓû§½ÇÉ«·ÖÅäȨÏÞabcdefg£¬Ñ¡ÖÐÇé¿öÊÇ1001101£¬ÄÇô´Ë½ÇÉ«°üº¬ËÄÏîȨÏÞ£¬ÓÃÒ»¸ö±äÁ¿±íʾ£¬ÏàÓ¦µÄÊ®½øÖÆÊýÊÇ77¡£
    µ«ÊÇ£¬ÔÚASPÖеĶàÏîÑ¡Ôñ£¬¾Í²»ÊʺÏÕâÖÖÒÔÊýÖµµÄÐÎʽ¼Ç¼ѡÖÐÇé¿ö¡£ÒòΪ£¬µ±ÏîÄ¿ÊýºÜ¶àʱ£¨ÀýÈç6 ......

Asp ³£Óú¯Êý

1.ÊýÖµÐͺ¯Êý£º abs(num): ·µ»Ø¾ø¶ÔÖµ sgn(num): num>0 1; num=0 0; num<0 -1;ÅжÏÊýÖµÕý¸º hex(num): ·µ»ØÊ®Áù½øÖÆÖµ Ö±½Ó±íʾ£º&Hxx ×î´ó8λ oct(num): ·µ»Ø°Ë½øÖÆÖµ Ö±½Ó±íʾ£º&Oxx ×î´ó8λ sqr(num): ·µ»Øƽ·½¸ù num>0 int(num): È¡Õû int(99.8)=99; int(-99.2)=100 fix(num): È¡Õû fix(99.8)=99; fix ......

ASPÖж¯Ì¬Ê¹ÓÃMicrosoftReportÏê½â

1.ÔÚ½â¾ö·½°¸ÖÐÌí¼ÓÐÂÏîÄ¿Êý¾Ý¼¯-mydbDataSet.xsd£¬ÔÚÊý¾Ý¼¯ÀïÌí¼ÓËùÒªÓõ½µÄ±í»ò¸ù¾ÝÐèÒªÖÆ×÷ÐÂ±í¡£
2.ÔÚÉè¼ÆÒ³ÃæÖÐÀ­ÈëÒ»¸öMicrosoftReportViewer£¬Éè¼Æб¨±í£¬°´ÕÕ±¨±íÏòµ¼¸ù¾Ý×Ô¼ºµÄÐèҪѡÔñ±¨±íµÄÊý¾ÝÔ´ºÍÊý¾ÝÏÍê³Éб¨±íreport1.rdlcµÄÖÆ×÷¡£ÔÚÔ´ÂëÖÐÈçÏ£¨“¿¼ºË³É¼¨”ΪÊý¾Ý¼¯ÖеÄÒ»¸ö±í£©
<rsw ......

ÓÃASPʵÏÖ¶þ¼¶ÓòÃû

 






ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ