ads1.asp

电影ASP文件

<!--#include file=config.asp -->
<%
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")<>"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('<a href=\"../banner/url.asp?id=<%=adsrs("id")%>\" target=\"<%=ttarg%>\"><img border=0 width=468 height=65 src=\"../<%=adsrs("gif_url")%>\"></a>'); 
<% else %>
document.write('<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="480" height="65"><param name=movie value=\"../<%=adsrs("gif_url")%>\"><param name=quality value=high><embed src=\"../<%=adsrs("gif_url")%>\" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="480" height="65"></embed> </object>')
<% 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
%>