<% dim getplace,getshow,adsrs,adssql,adsrsp,adssqlp,adsrss,adssqls,getip adsconn.open adsdata set adsrsp=server.createobject("adodb.recordset") adssqlp="Select * from [ads] where act=1 and class <> 0 order by time" adsrsp.open adssqlp,adsconn,1,3 while not adsrsp.eof advertvirtualvalue=0 if adsrsp("class")=1 then if adsrsp("click")>=adsrsp("clicks") then advertvirtualvalue=1 end if elseif adsrsp("class")=2 then if adsrsp("show")>=adsrsp("shows") then advertvirtualvalue=1 end if elseif adsrsp("class")=3 then if now()>=adsrsp("lasttime") then advertvirtualvalue=1 end if elseif adsrsp("class")=4 then if adsrsp("click")>=adsrsp("clicks") then advertvirtualvalue=1 end if if adsrsp("show")>=adsrsp("shows") then advertvirtualvalue=1 end if elseif adsrsp("class")=5 then if adsrsp("click")>=adsrsp("clicks") then advertvirtualvalue=1 end if if now()>=adsrsp("lasttime") then advertvirtualvalue=1 end if elseif adsrsp("class")=6 then if adsrsp("show")>=adsrsp("shows") then advertvirtualvalue=1 end if if now()>=adsrsp("lasttime") then advertvirtualvalue=1 end if elseif adsrsp("class")=7 then if adsrsp("click")>=adsrsp("clicks") then advertvirtualvalue=1 end if if adsrsp("show")>=adsrsp("shows") then advertvirtualvalue=1 end if if now()>=adsrsp("lasttime") then advertvirtualvalue=1 end if end if if advertvirtualvalue>=1 then adsrsp("act")=2 adsrsp.update end if adsrsp.movenext wend adsrsp.close set adsrsp=nothing adsconn.close adsconn.open adsdata if request.querystring("place")<>"2" and request.querystring("place")<>"1" and request.querystring("place")<>"0"then getplace=0 else getplace=cint(request.querystring("place")) end if set adsrs=server.createobject("adodb.recordset") adssql="Select top 1 id,gif_url,window,show,place,time from [ads] where act=1 and place="&getplace&" order by time" adsrs.open adssql,adsconn,1,3 getshow=adsrs("show")+1 adsrs("show")=getshow adsrs("time")=now() adsrs.Update swf=right(adsrs("gif_url"),3) if adsrs("window")=0 then ttarg = "_blank" else ttarg="_top" end if %> <% if swf="gif" then %> document.write('\" target=\"<%=ttarg%>\">\">'); <% else %> document.write('') <% end if %> <% getip=request.ServerVariables("REMOTE_ADDR") set adsrss=server.createobject("adodb.recordset") adssqls="select * from iplist" adsrss.open adssqls,adsconn,1,3 adsrss.AddNew adsrss("adid") =adsrs("id") adsrss("time") = now() adsrss("ip") = getip adsrss("class") = 1 adsrss.update adsrss.close set adsrss=nothing adsrs.close set adsrs=nothing adsconn.close set adsconn=nothing %>