プログラム修正に関する問題

プログラム変更の問題
Response.Expires= -1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>




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

' %>
dim nextpage'ジャンプ ページ
dim vipurl'プロモーション リンク
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="
"'ジャンプ先のページを定義します
'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")'有効なクリックごとに獲得されるポイント
は
rs で終了します。 close
if(len(vipurl)=0) then 'プロモーション接続ではない場合
'ジャンプ-----ここにジャンプするページを書き込みます
レスポンス.書き込み nextpage
レスポンス。 end
else 'プロモーション接続がユーザーに対して効果的な操作を実行する場合
sql="select User_ID, User_Code, User_UserName, User_Login_time, User_Login_IP, User_Login_Count from C_User 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 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)に挿入しますvalue("&userid& ","&JFValue_Every&",'プロモーション訪問','"&IP&"','"&LoginIPArea&"',"&isvalid&",'"&login_Url&"') "
'ユーザー プロモーションの詳細リストを書き込みます
rs.open SQL,conn