Discuz!官方免费开源建站系统

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索

[疑难] 一段判断来访域名的asp代码,诚请高手将他转成php的

[复制链接]
itiggo 发表于 2009-5-21 13:14:14 | 显示全部楼层 |阅读模式
以下是ASP代码:

Dim domains(4)
domains(1)="www.1111.cn"
domains(2)="www.2222.cn"
domains(3)="www.3333.cn"
domains(4)="www.4444.com"

Dim authed
Dim domain
authed=false
domain=LCase(Request.ServerVariables("SERVER_NAME"))
For i=1 To 4
  If InStr(domain,domains(i))<>0 Then
   authed=True
   Exit For
  End If
Next
If Not authed Then
  Response.Redirect("http://www.5555.com")
End If


请高手将他写成PHP,谢谢!!
 楼主| itiggo 发表于 2009-5-21 13:18:15 | 显示全部楼层
((mk07))
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|Discuz! 官方站 ( 皖ICP备16010102号 )star

GMT+8, 2024-12-23 23:44 , Processed in 0.019905 second(s), 5 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.

快速回复 返回顶部 返回列表