% Dim IP,IPString,VisitIP 'Òª½ûÖ¹µÄIPµØÖ· IPString="|61.160.9.52|127.0.0.1|58.66.176.209|211.140.140.18|125.65.110.152|" '»ñÈ¡IPµØÖ· IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") End If VisitIP="|"&IP&"|" If instr(1,IPString,VisitIP)>0 Then response.write "ÄãµÄIP±»½ûÖ¹" response.end End If %>
|
![]() |
|
|
|
|
|
| ÄúÏÖÔÚµÄλÖ㺠¸Ä°ÉÆû³µ¸Ä×°Íø >> Æû³µ¸Ä×° >> ¸Äװʵս >> ÕýÎÄ |
|
|
|
||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||
| ¹ØÓÚÎÒÃÇ | ÁªÏµÎÒÃÇ | ¹ã¸æºÏ×÷ | °æÈ¨ÉùÃ÷ | ÉèΪÊ×Ò³ | ¼ÓÈëÊÕ²Ø | ÁôÑÔÖÐÐÄ |
| Copyright ©2004 - 2007 www.gaibar.com
°æÈ¨ËùÓУºÉîÛÚÊгµÊ±´úÎÄ»¯´«²¥ÓÐÏÞ¹«Ë¾ ÁªÏµµç»°£º0755-83110600 ´«ÕæºÅÂ룺0755-83116565 ÔÁICP±¸05098118ºÅ |