ASPをPHPに変換する方法

ASP を PHP に変換する方法

Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control", "ストアなし"
%>




'------ - このページは接続を促進するために使用されます

' %>
dim nextpage'ジャンプ ページ
dim vipurl'接続を促進する
dim JF_Rule_TimeDiff,JF_Rule_Count,JFValue_Every'interval time 、間隔内の有効なクリック数、有効なクリックごとに取得されるポイント
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="
"'ジャンプ先のページを定義
'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 を取得します
If 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")'Create rs object
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
'そうでない場合はシステム パラメータ プロセスを取得します
rs.eof の場合、
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 'プロモーション接続でない場合は、
'Jump-----ここにジャンプ Page
response.write nextpage
response.end
else '接続がプロモートされると、ユーザーに対して効果的な操作が実行されます
sql="select User_ID、User_Code、User_UserName、User_Login_time、 C_User からの 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
'Jump-----ここにジャンプするページを書き込みます
response.write nextpage
response.end
end if
rs. close
end if
'--------有効なクリック数。このクリックが有効かどうかを取得します。 sql="select isnull(count(1) ,0) User_GetJF からのログインカウントとして、LoginIP='"&IP&"' および 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'クリック数がシステムパラメータ設定を超えた場合は無効となります
isvalid=0
end if
rs.close
sql ="User_GetJF(User_ID,User_GetJFValue,User_GetMethod,LoginIP, LoginIPArea,IsValid,login_Url) に挿入 value("&userid&","&JFValue_Every&",'プロモーション アクセス','"&IP&"','"&LoginIPArea&"',"&isvalid&" ,'"&login_Url&"') "
'ユーザー プロモーション詳細テーブルの書き込み<script>location.href='p_center.asp';</script> rs.open sql,conn