一段asp程序用php应该如何写

一段asp程序用php应该怎么写
login_Url=""'初始化网址
LoginIPArea=""'初始化客户端ip区域
login_Url= Request.ServerVariables("HTTP_REFERER") '获取客户端ip来源地址
nextpage=""'定义跳转的页面
' response.write login_Url
'response.end
if len(login_Url)>0 then '来源url的处理过程
login_Url= replace(login_Url,"http://","")
login_Url= split(login_Url,"/")
login_Url= login_Url(0)
end if
isvalid=1
validcount=0
logincount=0
vipurl=request("vip")
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '获取客户端ip
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") 'ip地址处理
' IP=getIP()
LoginIPArea=GetIpArea(IP)

------解决方案--------------------
$login_Url="";//初始化网址
$LoginIPArea="";//初始化客户端ip区域
$login_Url= $_SERVER["HTTP_REFERER"];//获取客户端ip来源地址
$nextpage="";//定义跳转的页面
// echo $login_Url
//exit
if(strlen($login_Url)>0){//来源url的处理过程
$login_Url= str_replace("http://","",$login_Url);//
$login_Url= explode("/",$login_Url);//
$login_Url= $login_Url[0];

}

$isvalid=1;
$validcount=0;
$logincount=0;
$vipurl=$_GET["vip"];
$IP = $_SERVER["HTTP_X_FORWARDED_FOR"];// '获取客户端ip

if($IP == "")
$IP = $_SERVER["REMOTE_ADDR"];// 'ip地址处理

//IP=getIP()
$LoginIPArea=GetIpArea($IP);