% Dim IP,IPString,VisitIP '要禁止的IP地址 IPString="|61.233.40.201|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 %>
![]() |
|
| | 网站首页 | COPD | 氧疗 | 哮喘 | 肺部疾病 | 支气管炎 | 呼吸影像 | 呼吸疾病 | 产品展示 | 下载中心 | COPD论坛 | | ||
|
||
|
|
| | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 网站公告 | | ||
|