tj.asp

一套六合彩投注程序

 <%
 ddev=session.sessionID
 idsd=request.servervariables("remote_addr")
set rso=Server.CreateObject("ADODB.Recordset")
if Session("SK2User")="" then

sql="select * from tj where tjid="&ddev&"  or ip='"&idsd&"'  order by id"
rso.Open sql,Conn,1,3
if rso.eof then 
rso.addnew
rso("tjid")=session.sessionID
rso("username")="游客"
rso("zt")=0     
rso("adddate")=now()
rso("addate")=now()

  rso("ip")=request.servervariables("remote_addr")

else 
 rso("ip")=request.servervariables("remote_addr")
rso("username")="游客"
rso("zt")=0 
 rso("adddate")=now()
end if
rso.update
rso.close

else
ip=request.servervariables("remote_addr")

sql="select * from tj where tjid="&ddev&"  or ip='"&idsd&"' or username='"&request.cookies("userid")&"'"
rso.Open sql,Conn,1,3
if rso.eof then
rso.addnew  
rso("tjid")=session.sessionID
rso("username")=Session("SK2User")
rso("zt")=1 
rso("addate")=now() 
rso("adddate")=now() 

  rso("ip")=request.servervariables("remote_addr")
else 
 rso("ip")=request.servervariables("remote_addr")
rso("username")=Session("SK2User")
rso("zt")=1 
rso("adddate")=now() 
end if 
rso.update

rso.close


end if
set rso=nothing


conn.execute("delete from tj where datediff(s,adddate,getdate())>1200") 
set rso=Server.CreateObject("ADODB.Recordset")
sql="select * from tj"
rso.Open sql,Conn,1,3
tjonon=rso.recordcount
rso.close
set rso=nothing
%>