用asp写的sql语句如何转变成php的哦
程序员文章站
2022-04-03 13:38:18
...
用asp写的sql语句怎么转变成php的哦
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.write nextpage
response.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
'跳转-----此处写跳转的页面
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'如果点击次数超过系统参数设定则无效
isvalid=0
end if
rs.close
sql="insert into 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
'rs.close
set rsupdate=server.createobject("adodb.recordset")'创建更新rs对象
if(isvalid=1) then'如果本次点击有效 则更新用户积分表
sql="update C_User set User_ToAllCount=isnull(User_ToAllCount,0)+1,User_JF=isnull(User_JF,0)+"&JFValue_Every&" where User_ID="&userid
rs.open sql,conn
end if
'跳转-----此处写跳转的页面
response.write nextpage
------解决方案--------------------
其实差不多的。就是那个链接符号不同而已。
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.write nextpage
response.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
'跳转-----此处写跳转的页面
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'如果点击次数超过系统参数设定则无效
isvalid=0
end if
rs.close
sql="insert into 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
'rs.close
set rsupdate=server.createobject("adodb.recordset")'创建更新rs对象
if(isvalid=1) then'如果本次点击有效 则更新用户积分表
sql="update C_User set User_ToAllCount=isnull(User_ToAllCount,0)+1,User_JF=isnull(User_JF,0)+"&JFValue_Every&" where User_ID="&userid
rs.open sql,conn
end if
'跳转-----此处写跳转的页面
response.write nextpage
------解决方案--------------------
其实差不多的。就是那个链接符号不同而已。
相关文章
相关视频