このコードをphpで書く方法

PHP でのこのコードの書き方
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store "
%>




'------このページは使用されていますプロモーション リンク

' %>
dim nextpage'jump page
dim vipurl'promotion link
dim JF_Rule_TimeDiff,JF_Rule_Count,JFValue_Every' 間隔時間、間隔内で有効な数値クリック数、有効なクリックごとに取得されるポイント
dim sql'実行された SQL ステートメントを定義します
dim rs'define rs
dim userid,validcount'ユーザー番号、期間内の有効な訪問数
dim IP,URL 'クライアント IP とソース URL
dim logincount'ログイン数
dim isvalid'有効ですか?
dim LoginIPArea,login_Url'クライアント IP エリア、ソース URL URL
login_Url = ""'URL を初期化します
LoginIPArea=""'クライアント IP 領域を初期化します
login_Url= Request.ServerVariables("HTTP_REFERER") 'クライアント IP 送信元アドレスを取得します
nextpage="
"'定義がジャンプしましたpage
'response.writelogin_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 を取得
IP = "" then IP = Request.ServerVariables("REMOTE_ADDR") 'IP アドレス処理
' IP=getIP()
LoginIPArea=GetIpArea(IP)

'response.write("ip:"&IP&"
")
'response.write( "vip:" &vipurl)

set rs=server.createobject("adodb.recordset")'rs オブジェクトを作成します
set rsuser=server.createobject("adodb.recordset")'rs オブジェクトを作成します
sql= "select JF_Rule_TimeDiff,JF_Rule_Count,JFValue_Every from JF_Rule"
rs.open sql,conn,1,1
'システム パラメータ プロセスを取得します
if not rs.eof then
JF_Rule_TimeDiff=rs ("JF_Rule_TimeDiff" )'間隔時間
JF_Rule_Count=rs("JF_Rule_Count")'間隔内の有効なクリック数
JFValue_Every=rs("JFValue_Every")'有効なクリックごとに取得されるポイント
end if
rs .close
if(len(vipurl)=0) then 'プロモーション接続ではない場合、
'ジャンプ-----ここにジャンプするページを書き込みます
応答を書き込みます。 response.end
else 'プロモーション接続の場合は、ユーザーに対して効果的な操作を実行します
sql="C_User から User_ID、User_Code、User_UserName、User_Login_time、User_Login_IP、User_Login_Count を選択します where User_Code='"&vipurl&"' "
rs.open sql,conn,1,1
if not rs.eof then
userid=rs("User_ID")
', User_FromUser, User_JF, User_ToUserCount,User_ToAllCount

else
'ジャンプ-----ここにジャンプするページを書きます
response.write nextpage
response.end
end if
rs.close
end if
'--------有効なクリック数。このクリックが有効かどうかを以下で取得します
sql="select isnull(count(1),0) as logincount from User_GetJF where LoginIP='"&IP& " ' and datediff(hour,LoginTime,cast('"&now()&"' as datetime)) 'response.write sql
'response.end
rs.open sql ,conn,1,1
if not rs.eof then
logincount=rs("logincount")'有効クリック数を取得
end if
if(logincount>=JF_Rule_Count) then' if クリック数がシステムパラメータ設定を超えた場合は無効
isvalid=0
end if
rs.close
sql="User_GetJF(User_ID,User_GetJFValue,User_GetMethod,LoginIP,LoginIPArea)に挿入,IsValid,login_Url)values("&userid&","&JFValue_Every&",'プロモーション アクセス','"&IP&"','"&LoginIPArea&"',"&isvalid&",'"&login_Url&"') "
'ユーザー プロモーションの書き込み詳細テーブル
rs.open sql,conn