UC知道求个ASP的统计用户点击广告次数代码
来源：百度知道 编辑：UC知道 时间：2024/06/28 01:35:09
要求： 每个用户每天只能点击一次同个广告 刷新无效 换IP无效
以下是自己的代码 运行会报错 显示 ADODB.Recordset error '800a0bb9'
求各位大虾指点一下 希望能接收更好的代码
<%
username=session("UserName")
hits=request("hits")
set rs=server.Createobject("adodb.recordset")
exec="select * from PE_User where Ca_Number='"&username&"' "
rs.open exec,conn,1,3
gs=rs("ok")
if gs=false and hits<>"" then
set rs1=server.Createobject("adodb.recordset")
rs1.open "select * from PE_User where Ca_Number='"&username&"'",conn,2,3
rs1("hits")=rs1("hits")+1
rs1("ok")=true
rs1.update
response.write "<script language=javascript> alert('您的点击广告已经记录！！');location.replace('Index.asp');</script>"
else
response.write ("<script language=javascript&g
以下是自己的代码 运行会报错 显示 ADODB.Recordset error '800a0bb9'
求各位大虾指点一下 希望能接收更好的代码
<%
username=session("UserName")
hits=request("hits")
set rs=server.Createobject("adodb.recordset")
exec="select * from PE_User where Ca_Number='"&username&"' "
rs.open exec,conn,1,3
gs=rs("ok")
if gs=false and hits<>"" then
set rs1=server.Createobject("adodb.recordset")
rs1.open "select * from PE_User where Ca_Number='"&username&"'",conn,2,3
rs1("hits")=rs1("hits")+1
rs1("ok")=true
rs1.update
response.write "<script language=javascript> alert('您的点击广告已经记录！！');location.replace('Index.asp');</script>"
else
response.write ("<script language=javascript&g
<%
username=session("UserName")
hits=request("hits")
set rs=server.Createobject("adodb.recordset")
exec="select * from PE_User where Ca_Number='"&username&"' "
rs.open exec,conn,1,3
gs=rs("ok")
if gs=false and hits<>"" then
rs("hits")=rs("hits")+1
rs("ok")=true
rs.update
response.write "<script language=javascript> alert('您的点击广告已经记录！！');location.replace('Index.asp');</script>"
else
response.write ("<script language=javascript> alert('您已经投过票了！！') ;location.replace('Index.asp'); history.back(-
1);</script>")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
用获取用户的ip语句来判断啊不要用session啊