% Dim IP,IPString,VisitIP '要禁止的IP地址 IPString="|218.5.74.146|61.240.131.121|127.0.0.1|211.154.44.169|219.150.14.36|" '获取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 %>
![]() | ||
![]() |
| 网站首页 | 天下沈氏 | 纪念馆 | 沈氏分支站 | 沈氏论坛 | 下载中心 | 图片中心 | 网上商城 | 华夏姓氏 | 史料研究 | 传统文化 | 我要留言 | | ![]() |
![]() |
|
![]() |
![]() |
|
![]() |
|||||
![]() | |||||||
![]() |
![]() |
![]() |
|
|
||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
![]() |
![]() |
![]() |